Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Target
    If C.Address = [B2].Address Then [A2].Value = Format(Now, "YYYY-MM-DD"): Exit Sub
Next
End Sub
-------------------------
以上代码是转别人的，我想实现BN改动AN填入当前日期

N=1到1000吧

求样改代码

或者有不用VB的更简单的方法实现吗

[ 本帖最后由 meizizi 于 2012-12-18 23:29 编辑 ]

posted by wap, platform: Nokia (E72)

b2如何变动？

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim iColA As Long, iColB As Long, iRowUp As Long, iRowDown As Long
   
    iColA = 66     ' 要改动的列号
    iColB = 40     ' 要填入日期的列号
    iRowUp = 2     ' 行的范围上限
    iRowDown = 1000 ' 行的范围下限
   
    If Target.Column = 66 And (Target.Row >= iRowUp And Target.Row <= iRowDown) Then
       Cells(Target.Row, iColB) = Format(Now, "YYYY-MM-DD")
    End If

End Sub

可以根据要求修改，在excel里按ctrl+F11，把这段代码复制到对应的sheet里