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里一個自動顯示數(shù)據(jù)更改時間的宏程式,
另外我就是想能不能幫忙做一下更改,它現(xiàn)在是顯示的是橫排任意單元格改動后的時間,我就想把它改成顯示指定單元格更改后的時間,哪位大哥能不能在忙改一下.

其他人氣：925 ℃時間：2020-03-19 06:24:09

優(yōu)質(zhì)解答

if target.col = 指定列 then
activer.= now
end if
否則其它的不進(jìn)行更改
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i '一個變量存儲當(dāng)前行
i = Target.Row '取得當(dāng)前行
if Target.col = 列 then '取得當(dāng)前列,并判斷是否是指定列（這趕的列是一個數(shù)字,你可以按自己的需要更改成數(shù)字
ActiveSheet.Cells(i,15) = Now() '如果是指定列則更改當(dāng)前行的某列的時間值
end if '結(jié)束,如果不是指定列,就退出
End Sub

我來回答

類似推薦

猜你喜歡

精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲

Private Sub Worksheet_Change(ByVal Target As Range)

精品偷拍一区二区三区,亚洲精品永久码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲