林海波's blog

Private Sub Worksheet_Change(ByVal Target As Range)

     'Cells(Target.Row, 1) 获取/设置 当前行的第一列值
     'Target.Offset(0, -1) 针对当前位置进行偏移
     '
     '示例：
     '当被修改的单元格只有一个，且列号等于2，行号大于1时
    If Target.count = 1 And Target.Column = 2 And Target.Row > 1 Then
    
         '判断被修改的单元格左边一个单元格的值如果为空则将它设置为当前日期
        If Target.Offset(0, -1) = "" Then
            Target.Offset(0, -1) = Date
        End If
        
    End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i, text
    For i = 1 To Target.Count
    
        text = Target.Item(i).text
        y = Target.Item(i).Column
        x = Target.Item(i).Row        'MsgBox Cells(1, y).Value  '当前列 第一行值 
         
        MsgBox "正在更改：(第" & x & "行，第" & y & "列" & vbCrLf & "内容：" & text
    Next
End Sub