Private Sub Worksheet_Change(ByVal Target As Range)

题目

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i
i = Target.Row
ActiveSheet.Cells(i,15) = Now()
End Sub
这是EXCEL里一个自动显示数据更改时间的宏程式,
另外我就是想能不能帮忙做一下更改,它现在是显示的是横排任意单元格改动后的时间,我就想把它改成显示指定单元格更改后的时间,哪位大哥能不能在忙改一下.

答案

if target.col = 指定列 then
activer.= now
end if
否则其它的不进行更改
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i '一个变量存储当前行
i = Target.Row '取得当前行
if Target.col = 列 then '取得当前列,并判断是否是指定列 （这赶的列是一个数字,你可以按自己的需要更改成数字
ActiveSheet.Cells(i,15) = Now() '如果是指定列则更改当前行的某列的时间值
end if '结束,如果不是指定列,就退出
End Sub