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

更新日志

2025/2/16 23:37

查看所有更新日志

• 0e103-fix:全文搜索样式于 2025/2/16
• 51ebd-docs: 初始版本于 2024/9/22

版权所有

版权归属：passwordgloo

许可证：署名-相同方式共享 4.0 国际 (CC-BY-SA-4.0)