1.對象清單

2.對象 Application

2.1 屬性 ScreenUpdating

作用：屏幕是否刷新的開關

Sub InputTest2()
    Cells.ClearComments
    Application.ScreenUpdating = False '暫停屏幕刷新，不能看到運算過程
    Range("A1:A10") = 100
    MsgBox "有看到100的輸入過程嗎？"
    Range("B1:B10") = 200
    MsgBox "有看到200的輸入過程嗎"
    Application.ScreenUpdating = True '解開刷新屏幕
End Sub

2.2 屬性 DisplayAlerts

作用：程序在運行過程中，是否顯示警告信息，默認值為true

Sub DelSht()
    Dim sht As Worksheet
    Application.DisplayAlerts = False '關閉警告信息顯示
    For Each sht In Worksheets
        If sht.Name = ActiveSheet.Name Then
            sht.Delete
        End If
     Next
     Application.DisplayAlerts = True '解鎖警告信息顯示
End Sub

2.3 屬性 EnableEvents

作用：限制事件的觸發(fā)

'Worksheet_SelectionChange = 工作表點擊事件'
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Target.Value = Target.Address
    Application.EnableEvents = False
    Target.Offset(1, 0).Select
    Application.EnableEvents = True
End Sub

2.4 屬性 WorksheetFunction

作用：部分excel函數(shù)在vba里并不能直接使用，只能通過 WorksheetFunction的方式來間接使用

Sub CountTest()
    Dim mycount As Integer
    mycount = Application.WorksheetFunction.CountIf(Range("A1:B50"), ">100")
    MsgBox "A1:B50中大于100的單元格個數(shù)為：" & mycount
End Sub

3.對象：Workbook

3.1 基礎屬性

Sub WBMsg()
    Range("B2:B4").ClearContents
    Range("B2") = ThisWorkbook.Name '當前工作簿的名字
    Range("B3") = ThisWorkbook.Path '當前工作簿的路徑
    Range("B4") = ThisWorkbook.FullName '當前工作簿的路徑（帶名字）
End Sub

更多的屬性，可以在幫助文檔里查看

3.2 工作簿的操作

新建

空白工作簿 Workbooks.Add
模板工作簿（以目標文件為模板） Workbooks.Add "C:\Book1.xls"

打開

Workbooks.Open "C:\Book1.xls"

激活(選中)

Workbooks("Book1"). Activate

保存

保存 ThisWorkbook.Save
另存為 ThisWorkbook.SaveAs Filename:="C:\Book2.xls"
保留原文件、另存新文件 ThisWorkbook.SaveCopyAs Filename:="C:\Book2.xls"

關閉

關閉所有 Workbooks.Close
關閉某個文件 Workbooks("Book2").Close
保存并關閉某個文件
Workbooks("Book2").Close savechanges :=True '寫法1
Workbooks("Book2").Close True '寫法2(省略參數(shù)名)

3.3 ThisWorkbook與ActiveWorkbook

前者是代碼所在的工作簿，后者是活動的工作簿

4.對象：Worksheet

索引

選擇第1個工作表 Worksheets.(1)
選擇名為"Sheet1"的工作表 Worksheets.("Sheet1")

新建

空白工作表 Worksheets.Add
插入多個工作表 Worksheets.Add Count:=3
在xx工作表前后插入工作表
Worksheets.Add before:=Worksheets(1)
Worksheets.Add after:=Worksheets(1)
在xx工作表前后插入多個工作表
Worksheets.Add after:=Worksheets(1) Count:=3

改名

改名 Worksheets(2).Name = "工資表"
新建起名

Sub ShtAdd()
    Worksheets.Add before:=worksheets(1)
    Activesheet.Name = "工資表"
End Sub

Sub ShtAdd()
    Worksheets.Add(before:=worksheets(1)).Name="工資表"
End Sub

刪除

Worksheets("Sheet1").Delete

激活

Worksheets("Sheet1").Activate
Worksheets("Sheet1").Select

復制

將"Sheet1"復制，并粘貼到"考勤表"的前&后面
Worksheets("Sheet1").copy before:=Worksheets("考勤表")
Worksheets("Sheet1").copy after:=Worksheets("考勤表")
不使用參數(shù)，默認將工作表復制到 新工作簿 中
Worksheets("考勤表").copy

移動

將"Sheet1"移動到"考勤表"的前&后面
Worksheets("Sheet1").move before:=Worksheets("考勤表")
Worksheets("Sheet1").move after:=Worksheets("考勤表")
不使用參數(shù)，默認將工作表移動到 新工作簿 中
Worksheets("考勤表").move

5.對象：Range

Range對象的內(nèi)容太大，后面開個獨立章