选区域显值

Qs18

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2. If T.Column = 4 Then
   
3.     If T.Count <> 4 Then Exit Sub
   
4.     If InStr(Selection.Cells(1, 1).Address, "D") Then
   
5.     sm = Selection.Cells(1, 1).Value - Application.WorksheetFunction.Sum(Selection.Cells(1, 1).Offset(0, 1).Resize(1, 3))
   
6.     MsgBox sm
   
7.     End If
   
8. End If
   
9. End Sub

复制代码

Qs18

试试。。。。。。。。

Qs18

再试试。。。。。。。。。

ddz79101

Qs18 发表于 2024-9-16 06:56
再试试。。。。。。。。。

谢谢老师！被减数3列的代码运行成功。老师，我若增加被减数H，I列，将老师的代码修改为
Private Sub Worksheet_SelectionChange(ByVal T As Range) '240915选区域现结果Qs18
If T.Column = 6 Then
    If T.Count <> 6 Then Exit Sub
    If InStr(Selection.Cells(1, 1).Address, "D") Then
    sm = Selection.Cells(1, 1).Value - Application.WorksheetFunction.Sum(Selection.Cells(1, 1).Offset(0, 1).Resize(1, 5))
    MsgBox sm
    End If
End If
End Sub
则无反应，老师可以帮我看看吗？谢谢

ddz79101

Qs18 发表于 2024-9-16 06:56
再试试。。。。。。。。。

老师！在吗

ddz79101

Qs18 发表于 2024-9-16 06:56
再试试。。。。。。。。。

我发了条，若增加2列被减数H,I列，静你代码中4改为6,3改为5.运行没有反应。可以帮忙看看吗

ddz79101

quqiyuan 发表于 2024-9-15 20:50
代码如下。。。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count =  ...

老师！在吗？原代码可以修改为超9行，即另增H列和I列，为被减数情况下的运行吗

Qs18

ddz79101 发表于 2024-9-16 10:58
我发了条，若增加2列被减数H,I列，静你代码中4改为6,3改为5.运行没有反应。可以帮忙看看吗

我看看。。。。。

Qs18

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2. If T.Column = 4 Then
   
3.     If T.Count <> 6 Then Exit Sub
   
4.     If InStr(Selection.Cells(1, 1).Address, "D") Then
   
5.     sm = Selection.Cells(1, 1).Value - Application.WorksheetFunction.Sum(Selection.Cells(1, 1).Offset(0, 1).Resize(1, 5))
   
6.     MsgBox sm
   
7.     End If
   
8. End If
   
9. End Sub
   

复制代码

Qs18

在试试。。。。。。