学习vba 事件中遇到的问题

EXCEL渣渣

各位老师，请问如何将下面的代码 改为所有工作表都能使用，而不是在一张工作表内。谢谢
Public Sub Worksheet_Change(ByVal Target As Range)
Dim r, c
r = Target.Cells.Row
c = Target.Cells.Column
If Target.Cells.Count = 1 Then
If Target.Cells.Column = 1 And Target.Cells.Value <> 0 Then
Target.Cells.Offset(0, 1) = Format(Now(), "yyyy.mm.dd hh:mm")
MsgBox r
MsgBox c
End If

End If
End Sub

盼盼198310

Workbook_SheetChange  放到这个事件下试试

EXCEL渣渣

盼盼198310 发表于 2023-4-23 18:10
Workbook_SheetChange  放到这个事件下试试

好的，我试试

niko88819

试一试这方法

1. Public WithEvents App As Application
   
2. 
   
3. Private Sub Workbook_Open()
   
4.     Set App = Application
   
5. End Sub
   
6. 
   
7. Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
8.     Dim r, c
   
9.     r = Target.Cells.Row
   
10.     c = Target.Cells.Column
    
11.     If Target.Cells.Count = 1 Then
    
12.         If Target.Cells.Column = 1 And Target.Cells.Value <> 0 Then
    
13.             Target.Cells.Offset(0, 1) = Format(Now(), "yyyy.mm.dd hh:mm")
    
14.             MsgBox r
    
15.             MsgBox c
    
16.         End If
    
17.     End If
    
18. End Sub

复制代码

EXCEL渣渣

盼盼198310 发表于 2023-4-23 18:10
Workbook_SheetChange  放到这个事件下试试

测试过了，可行。谢谢。