Excel VBA的語(yǔ)法就不多說(shuō)了, 從最重要的Application開(kāi)始

Application對(duì)象代表Excel程序本身, 對(duì)Application的操作會(huì)直接影響Excel程序

廢話不多說(shuō), 直接上代碼

先來(lái)介紹一下Application的常用屬性:

1.ActiveCell 當(dāng)前激活的(1個(gè))單元格, 一個(gè)Range對(duì)象, 注意是一個(gè)格子

獲取到單元格的Range對(duì)象就能對(duì)其進(jìn)行操作了:(語(yǔ)法就不介紹了)

    With ActiveCell                         '獲取當(dāng)前激活的單元格
        .Value = '哈哈'
        With .Font
            .Bold = True
            .Italic = True
            .Size = 18
        End With
    End With

2. Selection 基本概念和ActiveCell類似, 與之不同的是Selection可以表示多個(gè)單元格, 依然是一個(gè)Range對(duì)象

3.ActiveWorkbook 當(dāng)前激活的一個(gè)工作簿,是一個(gè)Workbook對(duì)象

    Dim wb As Workbook
    '下述兩種寫法等同
    Set wb = Application.ActiveWorkbook
    Set wb = ActiveWorkbook                   '又是懶人寫法

如果當(dāng)前的Excel是空的, 就是說(shuō)沒(méi)有打開(kāi)任何一個(gè)Workbook(工作簿) 上面的wb會(huì)是Nothing (VBA里的空)

4.Workbooks, Worksheets, Sheets

Application.Workbooks用于獲取當(dāng)前打開(kāi)的(多個(gè))工作簿

    For i = 1 To WorkBooks.Count          '這里也可以寫全Application.WorkBooks.Count
        Debug.Print WorkBooks(i).name
    Next

    For i = 1 To Application.Worksheets.Count
        Debug.Print Application.Worksheets(i).name
    Next

注意一點(diǎn), 這個(gè)可是沒(méi)有'懶人寫法'的. 如果你想懶一下 Caption = 'Haha' VBA會(huì)把Caption當(dāng)作一個(gè)新變量的

試試下面這個(gè)

    Application.Caption = ''

6. Range 上面在提到ActiveCell時(shí)說(shuō)過(guò)Range, ActiveCell是一個(gè)Range對(duì)象, 這里的Range是一個(gè)屬性, 但它同時(shí)也是一個(gè)Range對(duì)象, 是不是有點(diǎn)暈. 別擔(dān)心

可以把Application.Range理解為一個(gè)方法(或者函數(shù)), Application.Range需要一個(gè)參數(shù), 來(lái)返回參數(shù)指定的(n個(gè))單元格, 看個(gè)例子先:

這句話, 把Application(就是Excel) 當(dāng)前激活的Workbook(工作簿)下的激活的Worksheet(工作表)下的Range('A1') (這里就是A1單元格) 的值設(shè)置為數(shù)字100

完整寫法就是:

    Dim r As range       'r是一個(gè)Range對(duì)象
    Set r = Application.Range('A1')
    r.Value = 100

再看看這個(gè):

也許你會(huì)問(wèn), 這樣用Range屬性太麻煩了 ,還必須有前面激活的工作簿,工作表, 太不靈活了.

沒(méi)錯(cuò), Range屬性不僅僅在Application下, 同樣也存在于Worksheet下, OK, 聰明的你估計(jì)已經(jīng)想到該怎么寫了:

只要獲取到了一個(gè)我想要的Worksheet對(duì)象(工作表), 我就能訪問(wèn)指定的范圍Range(...)

    Application.Worksheets('Sheet1').Range('A1').Value = 76000

7. ScreenUpdating 屏幕更新, 用于設(shè)置是否將VBA的執(zhí)行的中間結(jié)果顯示在Excel表中

顯然, 關(guān)閉屏幕更新, 會(huì)使得VBA的執(zhí)行速度更快.

我們可以做個(gè)實(shí)驗(yàn), 比較關(guān)閉前后的用時(shí).

ScreenUpdating Disabled: 0 sec.
ScreenUpdating Enabled: 3.99999999999743 sec.

所以,執(zhí)行復(fù)雜操作時(shí)很慢, 有可能就是沒(méi)有關(guān)閉ScreenUpdating屬性

8. StatusBar和DisplayStatusBar  

Application.StatusBar就是Excel的狀態(tài)欄,， 而Application.DisplayStatusBar意思是否顯示狀態(tài)欄，一個(gè)Boolean變量

    Application.DisplayStatusBar = True
    Application.StatusBar = '正在打開(kāi)文檔...'
    Application.StatusBar = False              '設(shè)為False就是恢復(fù)Excel狀態(tài)欄的原來(lái)狀態(tài)