【VBA編程】11.Application對象

Application對象常用屬性
【ActiveCell屬性】
ActiveCell屬性返回一個Range對象，表示當前窗口或指定窗口中的單元格。如果窗口沒顯示工作表，則此屬性無效。
【代碼區域】

Sub 激活單元格()
    Worksheets("sheet1").Activate '激活當前單元格
    With ActiveCell
        .Value = "娑娜"
        With .Font
            .Bold = True    '設置為粗體
            .Italic = True  '設置為斜體
            .Size = 20      '設置字體大小
        End With
    End With
End Sub

【結果展示】

注意：之所以該單詞顯示於B2，是因為在執行之前我已經將鼠標懸停此處。

【ActiveWorkbook屬性】
ActiveWorkbook是一個只讀屬性，用於返回一個Workbook對象，該對象表示活動窗口中的工作簿
沒有打開的窗口或信息窗口或剪貼板窗口作為活動窗口，則返回Nothing
【代碼區域】

Sub 測試ActiveWorkbook屬性()
    Dim obj As Object
    Set obj = ActiveWorkbook
    Debug.Print CStr(obj.Application.Value)
End Sub

【結果展示】

【Caption屬性】
Caption是一個可讀寫屬性，用於設置或返回Microsoft的主窗口標題欄上顯示的名稱，其返回的是String類型。如果沒有為Microsoft的主窗口設置標題，或者將其值設置為Empty,則將此屬性返回一個
"Microsoft Excle"作為默認標題
【代碼區域】

Sub 更改標題()
    Application.Caption = "OLIVER--Excle 2013"
End Sub

【結果展示】

 

【Range屬性】
Range屬性返回一個Range對象，表示一個單元格或單元格區域
Range實例地址：http://www.cnblogs.com/OliverQin/p/6198441.html

【Selection屬性】
Selection屬性表示為Application對象返回在活動窗口中選定對象
【代碼區域】

Sub 測試Selection屬性()
    Worksheets("sheet1").Activate
    Range("A1").Select
    Selection.Clear '清除sheet1工作表中內容
End Sub

【結果展示】

執行前

 

執行后

【sheets方法】
sheets屬性是一個只讀屬性，用於返回一個sheets集合，其類型是一個Sheets對象

 

Sub 測試sheets屬性()
     Dim wss As Sheets
     Dim i As Integer
     Application.Workbooks(1).Activate
     Set wss = Application.Sheets
     Debug.Print "當前工作簿名稱如下："
     Debug.Print
     For i = 1 To Sheets.Count
        Debug.Print Sheets(i).name
    Next
End Sub

【結果展示】