[已解决]能不能通用？

ykfexcel

以下是点击单元格I2，则显示当天的日期：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 9 And Target.Row = 2 Then
        ActiveCell.Value = Year(Date) & "-" & Month(Date) & "-" & Day(Date)
    End If
End Sub
请问：怎么样才能做到，在同一个工作簿的各表中通用（不想每个表都写这样程序）
先谢了！

最佳答案

月排行榜 / 总排行榜

zjdh

2014-9-12 17:28

放在ThisWorkbook中的
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  ............
End Sub

跳转到最佳答案楼层

zjdh

放在ThisWorkbook中的
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  ............
End Sub

su45

楼上所说正确