[已解决]VBA工作表变化事件如何

laoau138

VBA工作表变化事件如何

最佳答案

月排行榜 / 总排行榜

327718098

2017-5-8 16:17

这个要同时选中多个单元格，输入后按回车键输入下一个
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, s As Long, u As String, v
s = Application.WorksheetFunction.CountA(Target.Value)
If Target.Count > 1 And s > 1 Then
For Each rng In Target
u = u & "," & rng.Address
v = v & "," & rng.Value
Next
MsgBox u & "单元格变化" & v
End If
End Sub

跳转到最佳答案楼层

327718098

这个要同时选中多个单元格，输入后按回车键输入下一个
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, s As Long, u As String, v
s = Application.WorksheetFunction.CountA(Target.Value)
If Target.Count > 1 And s > 1 Then
For Each rng In Target
u = u & "," & rng.Address
v = v & "," & rng.Value
Next
MsgBox u & "单元格变化" & v
End If
End Sub

laoau138

327718098 发表于 2017-5-8 16:17
这个要同时选中多个单元格，输入后按回车键输入下一个
Private Sub Worksheet_Change(ByVal Target As Ran ...

果然是高手