excel vba 判断表格内容变更

来源：百度知道 编辑：UC知道 时间：2024/09/28 12:49:53
刚学VBA，请教个问题。表格A1的内容每变更一次，B1的数值就会自动加1，这个功能用VBA处理需要怎么写代码啊？

打开VBA窗口，在你需要的那个sheet 内写下如下程序。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 Or Target.Column > 1 Then Exit Sub
Cells(1, 2) = Cells(1, 2) + 1
End Sub

打开VBA窗口，在你需要的那个sheet 内写下如下程序

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [B1] = [B1] + 1
End Sub