VBA事件与典型案例
约 105 字小于 1 分钟
2024-07-07
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call gys
End Sub自动筛选
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call shaixuan
Application.EnableEvents = True
End Sub自动更新
Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub数据备份
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs "d:\data\" & Format(Now(), "yyyymmddhhmmss") & ".xls"
End Sub其他对象事件
Private Sub CommandButton1_Click()
MsgBox "点我干嘛"
End Sub