如何实现填写入账，左边列显示时间
时间:2014-03-26 15:22来源:excel.org.cn 作者:admin 点击:
次
excel 2007 跟excel 2003 差别不大，只是升级了一些功能。 这里用excel2007 Private Sub Worksheet_SelectionChange(ByVal Target As Range) For i = 2 To 999 If Target.Address = $B$ i Then Range(A i) = Now() Next i End Sub 吧这个
|
excel 2007 跟excel 2003 差别不大，只是升级了一些功能。
这里用excel2007
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 999
If Target.Address = "$B$" & i Then Range("A" & i) = Now()
Next i
End Sub
吧这个代码复制到vba的编辑器 即可。 A B 代表A B列
(责任编辑：admin) |
------分隔线----------------------------
