请教一下，下面代码中的问题

显示全部楼层 · 2011-1-10 15:07:27

老师们,新年好,请教下面代码中的问题
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count1 Then Exit Sub

Application.EnableEvents = False

If Target.Row > 2 And Target.Column < 13 Then

With Sheet1

.Range("a10000").End(3).Offset(1, 0) = Array(Target.Value)
问题:
A列输入内容后,同行K列输入当天日期,并保持该日期不会随系统日期改变
End With

End sub
回答满意加40分,一言九鼎

千问 · 2011-1-10 15:07:27

Sub Macro1()'
Cells(Selection.Row, 11) = "=NOW()"
Cells(Selection.Row, 11) = Cells(Selection.Row, 11)
End Sub