excel中a1输入数据，b1显示输入时的系统时间

显示全部楼层 · 2012-8-1 16:10:48

按ALT+F11，出现VBE窗体，在sheet1上双击，在右边的空白粘贴下面代码; Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Cells.Count = 1 And .Column = 1 Then
.Offset(0, 1).NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
.Offset(0, 1).Value = Now
End If
End WithEnd Sub 关闭VBE，回到sheet1...

千问 · 2012-8-1 16:10:48

在工作表写入事件Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 ThenTarget.Next = TimeEnd IfEnd Sub这里是只要你在A列输入东西或修改，B列都有相应的系统时间。有时间可以再找我。...

千问 · 2012-8-1 16:10:48

=IF(A1="","",NOW())先下拉，然后再填入A列的数据...