如何使用vb在excel中返回日期
想求教一个VB函数在EXCEL中的应用,如A列为日期列,B为标记列,在B中做标记OK或N或T,就可以在A列中记录当时修改的日期,这个公式应该怎么遍呢?...
想求教一个VB函数在EXCEL中的应用,
如A列为日期列,B为标记列,在B中做标记OK或N或T,就可以在A列中记录当时修改的日期,这个公式应该怎么遍呢? 展开
如A列为日期列,B为标记列,在B中做标记OK或N或T,就可以在A列中记录当时修改的日期,这个公式应该怎么遍呢? 展开
2个回答
展开全部
在工作表标签上(就是显示Sheet1的地方)右键单击,选择“查看代码(V)”,在打开的VBA编辑器里把下面的代码贴进去,就可以实现你所需要的功能了。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
If .Column <> 2 Then Exit Sub
For L = .Row To .Row + .Rows.Count - 1
T=Ucase(Trim(Cells(L, 2)))
If T = "OK" Or T = "N" Or T = "T" Then Cells(L, 1) = Format(Date, "yyyy/mm/dd")
Next
End With
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
If .Column <> 2 Then Exit Sub
For L = .Row To .Row + .Rows.Count - 1
T=Ucase(Trim(Cells(L, 2)))
If T = "OK" Or T = "N" Or T = "T" Then Cells(L, 1) = Format(Date, "yyyy/mm/dd")
Next
End With
Application.EnableEvents = True
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |