【VBA編程】11.Application對象

標籤：string類   分享   sheet   工作   app   vba   cst   測試   常用   

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

Sub 啟用儲存格()    Worksheets("sheet1").Activate ‘啟用目前的儲存格    With ActiveCell        .Value = "娑娜"        With .Font            .Bold = True    ‘設定為粗體            .Italic = True  ‘設定為斜體            .Size = 20      ‘設定字型大小        End With    End WithEnd 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    NextEnd Sub

【結果展示】

 

【VBA編程】11.Application對象