Excel-VBA常用語句二-觸發宏

VBA常用語句二主要介紹觸發類的宏。

1、Sheet切換觸發宏

'Private Sub Worksheet_Activate()

MsgBox "歡迎訪問sheet2!"

userform1.hide

End Sub

2、單元格變化觸發宏

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Target.Column > 1 And Target.Row > 3 Then

'需要觸發後需要執行的預計

End If

Application.EnableEvents = True

End Sub

3、關閉觸發宏

Private Sub Workbook_BeforeClose(Cancel As Boolean)

XXX語句

End Sub

4、保存觸發宏

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

XXX語句

End Sub

5、打開觸發宏

Private Sub Workbook_Open()

XXX語句

End Sub

6、關閉文檔觸發備份

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

Dim mypath As String, fname As String

fname = Format(Date, "yymmdd") & ThisWorkbook.Name

mypath = ThisWorkbook.Path & "/備份/"

ThisWorkbook.SaveCopyAs mypath & fname

End Sub

閱讀更多 雲淡風輕踐行者 的文章

關鍵字: Excel 語句 常用