<em>EXCEL</em> <em>VBA</em>中单元格发生改变触

点击工作表标签查看zd代码,将一下代码复制进入光标所在区域内:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
MsgBox "你选中了:" & Target.Text
End If
End Sub

****

点击A列的回单元格,且选中的是1个单答元格时触发事件

如图，一百般加个IF来判断度当前单元格专量是否是指定的单元格，是就执行代码。属

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

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count <= 1 Then

'选中的单元格zd是否只有一个，防止一次对多个单元格复制、删除等操作，专容易导致失误

  

   If Target.Column = 1 And Target.row = 1 and Trim(Target.Value) <> "" Then

    '光标在第1行第1列，并且当前单元格的值不为空

    Target.Offset(0, 1).Value = Now()

    '将当前单元格右边单元格的数值设为当前系统时间属

    End If

End If

End Sub

把代码放在Sheet客户产品及价格的
Worksheet_Change(…………)事件中
并判断Target的column=3和row>4是否满足，满足就运行

本文标签：excel vba 选择单元格(39)excel vba 单元格修改(1)