选区域显值

ddz79101

老师！我希望能鼠标选行区域，则可以显示结果。因平时使用鼠标选区域的，都是加，但我这里的单元格间有减，请老师帮忙看看。谢谢

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 4 Then
        If InStr(Target.Address, "D") And InStr(Target.Address, "G") Then
            arr = Target
            n = Empty
            For i = 1 To 4
                n = IIf(n = Empty, arr(1, i), n - arr(1, i))
            Next
            MsgBox "它们差值为：" & n
        End If
    End If
End Sub

Qs18

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2. If T.Count = 4 Then
   
3.     If InStr(T.Address, "D") And InStr(T.Address, "G") Then
   
4.     sm = Selection.Cells(1, 1).Value - Application.WorksheetFunction.Sum(Selection.Cells(1, 1).Offset(0, 1).Resize(1, 3))
   
5.     MsgBox "提示差值为:  " & sm
   
6.     End If
   
7. End If
   
8. End Sub

复制代码

Qs18

试试。。。。。

Qs18

试试。。。。。。。。。

ddz79101

quqiyuan 发表于 2024-9-15 20:49
参与一下，仅供参考。。。

谢谢老师！运行完美

ddz79101

Qs18 发表于 2024-9-15 21:35
试试。。。。。。。。。

谢谢老师！运行成功

ddz79101

Qs18 发表于 2024-9-15 21:35
试试。。。。。。。。。

老师！刚发现若数据在超过第9行后就不显示了。说明原因？

ddz79101

quqiyuan 发表于 2024-9-15 20:49
参与一下，仅供参考。。。

老师！刚发现若数据在超过第9行后就不显示了。说明原因？