当选择的单元格地址显示在状态栏上方法VBA

nnsea

'当选择的单元格地址显示在状态栏上方法一
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = "当前选择的区域是：" & Target.Address(0, 0)
End Sub

Private Sub Worksheet_Deactivate()
Application.StatusBar = ""
End Sub