ni kankan zhege
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Target = Target * 10000
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Target * 10000
Application.EnableEvents = True
End Sub
只能工作簿事件了
ni kankan zhege
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Target = Target * 10000
Application.EnableEvents = True
End Sub