Question

excel表格中～如何用Vba编写程序～A1单元格变化时～在A2显示更改时的时间

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim x As Integer
x = Target.Row
If x > 7 And x < 200 Then
If Target.Column = 1 And Target <> "" Then
Cells(x, 2) = Now()
ElseIf Target.Column =1 And Target = "" Then
Cells(x, 2) = ""
End If
End If
End Sub

Answer 2

...
dim a
a=A1
...
Private Sub Worksheet_Change()
If A1=a then exit sub
A2=Now()
End Sub

追问

好像不可以，你有试过吗？

追答

Private Sub Worksheet_Change(ByVal Target As Range)

有点要死机的倾向，不停闪啊，还是用的别的方法吧。