EXCEL 利用VBA插入时间，如何使用工作簿事件，sheetchange

10080

求助，各位大佬，

如何在工作簿thisworkbook的sheetchange事件中或者模块 程序事件中，写自动插入时间代码，

想法如下：
工作簿中的sheet1，sheet2，任意单元格发生新增，修改或者删除，sheet3中的G10单元格自动插入和更新时间。
请帮忙。谢谢了

剑指E

10080

剑指E 发表于 2023-4-29 14:59

你好，多谢，代码可以使用。

再请问一下，如果把显示时间的G10改到sheet2中的话，这个代码怎么修改，我直接把sheet3改成sheet2直接报错。好像与前面的Sh.name="sheet2" 矛盾了.
意思就是，sheet1，sheet2 中的任意单元格发生变化，sheet2的G10单元格显示时间。
多谢

mmwwdd

10080 发表于 2023-4-29 15:28
你好，多谢，代码可以使用。

再请问一下，如果把显示时间的G10改到sheet2中的话，这个代码怎么修改， ...

你是不是把语句放错位置了》？

剑指E

if  .............夹中间

10080

mmwwdd 发表于 2023-4-29 15:39
你是不是把语句放错位置了》？

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Sh.Name = "Sheet1" Or Sh.Name = "sheet2" Then Sheets("Sheet2").[G10] = Now

End Sub

这样修改的，不知道哪里出了问题

10080

剑指E 发表于 2023-4-29 15:41
if  .............夹中间

没明白怎么添加
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
if
If Application.enableEvents = false Application.enableEvents = ture
Sh.Name = "Sheet1" Or Sh.Name = "sheet2" Then Sheets("Sheet2").[G10] = Now

End Sub

剑指E

10080 发表于 2023-4-29 17:02
没明白怎么添加
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
if

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Application.enableEvents = false
If  Sh.Name = "Sheet1" Or Sh.Name = "sheet2" Then Sheets("Sheet2").[G10] = Now
Application.enableEvents = true
End Sub

10080

剑指E 发表于 2023-4-29 17:19
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Application.enableE ...

多谢，已经搞好了。