作业帮 > 综合 > 作业

Private Sub Worksheet_Change(ByVal Target As Range)

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/11/08 08:39:09
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 Su
Private Sub Worksheet_Change(ByVal Target As Range) Private Sub Worksheet_Change(ByVal Target As Range)帮我解释一下,下面 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 逐句讲解下面宏的含义Private Sub Worksheet_SelectionChange(ByVal Target 麻烦解释这个程序Private Sub pl(x As Integer,ByVal y As Integer)x = 4 Private Sub remove(La As ListBox,Lb As ListBox) Private Sub Form_Click() Dim a As Integer,b As Integer,k As Private Sub Form_Click() private sub score_lostfocus( ) Private Sub Command1_Click() Private Sub Command_1Click() vb Private Sub Command1_Click()