选区域显值

Qs18

试试。。。。。。。

ddz79101

Qs18 发表于 2024-9-16 12:08
试试。。。。。。。

谢谢老师！运行成功！一再帮忙，谢谢

xjl565135022

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2. If T.Column = 4 And T.Count > 1 And Selection.Rows.Count = 1 Then
   
3.     If InStr(Selection.Cells(1, 1).Address, "D") Then
   
4.     sm = Selection.Cells(1, 1).Value - Application.WorksheetFunction.Sum(Selection.Cells(1, 1).Offset(0, 1).Resize(1, UBound(T.FormulaR1C1, 2) - 1))
   
5.     Application.StatusBar = sm
   
6.     Application.DisplayStatusBar = True
   
7.     End If
   
8. Else
   
9.     Application.StatusBar = ""
   
10.     Application.DisplayStatusBar = True
    
11. End If
    
12. End Sub
    

复制代码

结果在左下角的状态栏...