【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      

【結果展示】