TGFC Lifestyle - Powered by Discuz! Board

标题: [其他] 我想在excel里实现B2变动，A2就自动输入当前日期，有代码，求一个改动 [打印本页]

作者: meizizi 时间: 2012-12-18 23:24 标题: 我想在excel里实现B2变动，A2就自动输入当前日期，有代码，求一个改动

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 编辑 ]

作者: Benthal 时间: 2012-12-19 07:41

posted by wap, platform: Nokia (E72)

b2如何变动？

作者: sowo 时间: 2012-12-19 08:36

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里

欢迎光临 TGFC Lifestyle (http://bbs.tgfcer.com/)