VBA的變量含義和變量作用

代碼存在的位置：模塊

VBA 代碼必須存放在某個位置，這個地方就是模塊。

有兩種基本類型的模塊：標(biāo)準(zhǔn)模塊和類模塊。模塊中的每個過程可能是函數(shù)過程，也可能是子程序。

本課的最后部分將討論函數(shù)過程和子程序的區(qū)別。

模塊：它是作為一個單元保存在一起的VBA定義和過程的集合。

類模塊：VBA允許你創(chuàng)建自己的對象，對象的定義包含在類模塊中。

你的大部分工作集中在標(biāo)準(zhǔn)模塊中（簡稱為模塊）。

當(dāng)錄制宏時如果不存在模塊，EXCEL 會自動創(chuàng)建一個。

EXCEL 和 VBA 不關(guān)心代碼存放在哪一個模塊中，只要代碼存在于打開的工作簿中即可。

對模塊的概覽

過程被定義為 VBA 代碼的一個單元，過程中包括一系列用于執(zhí)行某個任務(wù)或是進(jìn)行某種計算的語句。工作簿的每個過程都有唯一的名字加以區(qū)分。

有兩種不同的過程：子程序和函數(shù)過程。子程序只執(zhí)行一個或多個操作，而不返回數(shù)值。當(dāng)錄制完宏查看代碼時，所看到的就是子程序。宏只能錄制子程序，而不能錄制函數(shù)過程。一個子程序的例子如下所示：

例：

Sub cmdSmallFont_Click()
    With Selection.Font
        .Name="Arial"
        .FontStyle="Regular"
        .Size=16
    End With
End sub

上面列出的過程實際上是一個事件過程。通過它的名字，就可以知道這是一個事件過程。這個過程的名字是由一個對象的名字CmdSmallFont和一個事件的名字Click組成的，兩者之間用下劃線分開。如果還不明白，可以告訴你，CmdSmallFont是一個命令按鈕的名字。也就是說，當(dāng)單擊這個命令按鈕時，就會運行這個事件過程。

函數(shù)過程通常情況下稱為函數(shù)，要返回一個數(shù)值。這個數(shù)值通常是計算的結(jié)果或是測試的結(jié)果，例如False 或True。

正如前面所說，可以用VBA創(chuàng)建自定義函數(shù)。實際上可以在工作表上使用你創(chuàng)建的函數(shù)。下面是一個計算價格的10%為運費的簡單例子。

簡單的用戶定義函數(shù)示例：

Public Function Shipping(Price)
    Shipping = Price * 0.1
End Function

請注意，這個函數(shù)使用一個參數(shù)（Price)。子程序和函數(shù)都可以使用參數(shù)。不論Price的值是多少，它都將決定運費額。

Price 可以是數(shù)字或單元格引用。

函數(shù)返回計算出來的運費，這個函數(shù)可以用在單元格中(B2為表達(dá)式)。

創(chuàng)建過程

創(chuàng)建第一個過程需要兩個基本步驟。首先，需要向工作簿中添加一個模塊。接著需要向模塊中添加一個工程。對于創(chuàng)建的每一個應(yīng)用程序，只需添加一次模塊。可以使用多個模塊，但這是不必要的。某些開發(fā)者喜歡使用多個模塊，以便根據(jù)他們的目的或者窗體對過程進(jìn)行組織。在本練習(xí)中，創(chuàng)建的過程只顯示一個消息框。

在本練習(xí)中使用Msgbox是為了提供一個可見的例子，雖然我們還沒有介紹過Msgbox語句，但是在本例中將使用它。要創(chuàng)建該過程，請按如下步驟進(jìn)行：

1、打開一個新工作簿。

2、選擇"工具"-"宏"-"Visual Basic編輯器"，打開VBA編輯器窗口。

3、在`VBA 編輯器的左面，可以看到"工程資源管理器"窗口。在工程資源管理器窗口的"Thisworkbook"上單擊鼠標(biāo)右鍵，選擇"插入"-"模塊"，這樣就將一個模塊添加到應(yīng)用程序中了。(如果你沒有看見"工程資源管理器"窗口，可以按Ctrl+R)

4、選擇"插入""過程"，顯示"添加過程"對話框。

5、輸入"第一個工程"作為過程名字。在"類型"分組框中，確認(rèn)選擇了"子程序"。單擊"確定"按鈕。這樣一個新的過程就添加到模塊中了?？梢栽谀K中看到以 P?ublicSub 第一個過程（）?開始，以?End Sub?結(jié)束的語句結(jié)構(gòu)。

6、在過程中插入光標(biāo)，輸入以下語句并回車：

?Msgbox "這是我的第一個過程"?

在輸入Msgbox后，會自動彈出一個消息框告訴你有關(guān)這條命令的信息，稱之為自動列表技術(shù)。

輸入完成的過程如下所示：

Public Sub 第一個過程（）
    Msgbox "這是我的第一個過程"
End Sub

VBA對子程序和函數(shù)有如下的命名規(guī)則：

* 名字中可以包含字母數(shù)字和下劃線。

* 名字中不能包含空格句號驚嘆號，也不能包含字符@ & $ #.

* 名字最多可以包含255個字符。  

運行宏

創(chuàng)建這個過程后，可以運行一下。運行一個過程有幾種方法：可以直接使用"運行"菜單，"運行子程序/用戶窗體"工具欄按鈕或按下F5鍵。要運行一個過程，可以按照如下步驟：

1、單擊"運行子程序/用戶窗體"工具欄按鈕，過程執(zhí)行并顯示一個消息框。

2、單擊消息框之中的"確定"按鈕，關(guān)閉該消息框。

保存對模塊所做的改變

要保存新過程,需要保存過程所駐留的工作簿.可以用 VBA 編輯器保存工作簿.具體步驟如下:

1、選擇"文件"-"保存工作簿".因為本工作簿還沒有保存過,所以要給它命名.

2、輸入"HOUR4"作為文件名并按回車鍵,則工作簿和模塊與過程都保存下來了.。

變量

變量是用于臨時保存數(shù)值的地方.每次應(yīng)用程序運行時,變量可能包含不同的數(shù)值,而在程序運行時,變量的數(shù)值可以改變.

為了說明為什么需要變量,可以按照如下步驟創(chuàng)建一個簡單的過程:

1、創(chuàng)建一個名為"你叫什么名字"的過程。

2、在過程中輸入如下代碼:?Inputbox "輸入你的名字:"?

現(xiàn)在不要擔(dān)心inputbox語句的語法,將在第六小節(jié)中了解到有關(guān)這條命令的更多信息。

3、按下F5鍵運行過程,這時會顯示一個輸入框,要求輸入你的名字。

4、輸入你的名字按"確定"按鈕,則結(jié)束該過程。

你輸入的名字到那里去了?如何找到用戶在輸入框中輸入的信息?在這種情況下,需要使用變量來存儲用戶輸入的結(jié)果。

變量的數(shù)據(jù)類型

使用變量的第一步是了解變量的數(shù)據(jù)類型.變量的數(shù)據(jù)類型控制變量允許保存何種類型的數(shù)據(jù).下表列出了VBA支持的數(shù)據(jù)類型,還列出了各種類型的變量所需要的存儲空間和能夠存儲的數(shù)值范圍。

注： Currency是vb獨有的一種數(shù)據(jù)類型，他用來進(jìn)行貨幣的換算和定點計算特別方便（他的精度是確定的，不會出現(xiàn)精度帶來的舍入誤差）。
decimal與single和double的區(qū)別是，前者不是浮點數(shù)據(jù)類型，他的精度是確定的。因為使用的內(nèi)存空間極大，他可以將精度控制得很準(zhǔn)確（比后兩者更準(zhǔn)確），但因此犧牲了其性能，在有精度要求（無法容忍精度帶來的舍入誤差，比如財務(wù)計算）的情況下建議使用decimal。

作為 VBA 程序員，一個目標(biāo)是選擇需要存儲空間盡量小的數(shù)據(jù)類型來保存所需要的數(shù)據(jù)，這正是上表提供各種數(shù)據(jù)類型存儲空間的原因。例如，要保存諸如班級學(xué)生總數(shù)這樣的小數(shù)字，那么Byte數(shù)據(jù)類型就足夠了。在這種情況下，使用Single數(shù)據(jù)類型只是對計算機存儲空間的浪費。

用Dim語句創(chuàng)建變量(聲明變量)

現(xiàn)在,你對變量可以使用的數(shù)據(jù)類型已經(jīng)比較熟悉了,接下來我們將創(chuàng)建變量。創(chuàng)建變量可以使用Dim語句,創(chuàng)建變量通常稱為"聲明變量"  Dim語句的基本語法如下:

?Dim 變量名 AS 數(shù)據(jù)類型?

這條語法中的變量名代表將要創(chuàng)建的變量名。對變量的命名規(guī)則和對過程的命名規(guī)則相同。

這條語句中的數(shù)據(jù)類型部分可以是上表中的任何一種數(shù)據(jù)類型。

變量名必須以字母開始,并且只能包含字母數(shù)字和特定的特殊字符,不能包含空格句號驚嘆號,也不能包含字符@ & $ #。

名字最大長度為255個字符。

在接下來的練習(xí)中將說明如何在 VBA 中使用變量。你將要輸入你的名字,并用一個消息框?qū)⑵滹@示出來。具體步驟如下:

1、創(chuàng)建一個名為"顯示你的名字"的子程序.

2、輸入以下代碼:

Public Sub 顯示你的名字()
    Dim s名字 As String
    s名字 = Inputbox("請輸入你的名字:")
    Msgbox "你好"& s名字
End Sub

3、將鼠標(biāo)放到過程中的任何地方,按下F5鍵運行過程,會顯示一個輸入框。

4、輸入你自己的名字并按回車鍵,會顯示一個消息框,顯示的文字中包含你自己的名字。

5、單擊"確定"按鈕,返回過程中。

在 Dim 語句中不必提供數(shù)據(jù)類型.如果沒有數(shù)據(jù)類型,變量將被定義為 Variant 類型,因為VBA 中默認(rèn)的數(shù)據(jù)類型是 Variant.你知道這一點后,最初的反應(yīng)也許是覺得應(yīng)該不用自己決定數(shù)據(jù)類型,而將一切拋給VBA.這種觀念是完全錯誤的。你必須決定選擇使用何種數(shù)據(jù)類型。因為Variant數(shù)據(jù)類型占用存儲空間較大（16或22字節(jié)）而且它將影響程序的性能。VBA必須辨別Variant類型的變量中存儲了何種類型的數(shù)據(jù)。

變量命名的慣例

下表給出了推薦的變量命名慣例

使用數(shù)組

如果你使用過其他編程序語言,可能對數(shù)組已經(jīng)比較熟悉了.數(shù)組是具有相同數(shù)據(jù)類型并共同享有一個名字的一組變量的集合.數(shù)組中的元素通過索引數(shù)字加以區(qū)分,定義數(shù)組的方法如下:

?Dim array_name(n) As type? (其中n是數(shù)組元素的個數(shù))

例如,如果要創(chuàng)建保存10個學(xué)生名字的數(shù)組,可以用以下語句:

?Dim s學(xué)生名字(9) As Integer?

注意,括號中的數(shù)字是9而不是10.這是因為在默認(rèn)的情況下,第一個索引數(shù)字是0.數(shù)組在處理相似信息時非常有用.假設(shè)要處理15門考試成績,可以創(chuàng)建15個獨立的變量,這意味著要使用15個Dim語句。也可以創(chuàng)建一個數(shù)組來保存考試成績，具體如下：

Dim s學(xué)生名字(14) As Integer?

聲明數(shù)組時的另一種方法是不給定大小?？梢栽诔绦蜻\行時定義其大小。通過創(chuàng)建動態(tài)數(shù)組就可以做到。例如，你的程序要創(chuàng)建一表格，可以提示用戶輸入表格的行和列的數(shù)目。聲明動態(tài)數(shù)組的語法如下：

?Dim dyn_array() As type?

對數(shù)組聲明后可以在程序運行時用：ReDim語句指定數(shù)組的大?。?/p>

?ReDim dyn_array()(array_size)?

參數(shù)array_size代表數(shù)組的新大小。如果要保留數(shù)組的數(shù)值，請在ReDim語句后使用保留字Preserve,具體語法如下：

?ReDim Preserve dyn_array(array_size)?

變量賦值

聲明變量后就可以給變量賦值。請注意下列語句中為數(shù)組變量賦值時索引數(shù)字的使用。

Dim i人數(shù) As Integer
Dim i考試成績() As Integer
Dim i As Integer
i人數(shù) = inputbox("輸入學(xué)生的人數(shù)：")
ReDim Preserve i考試成績(i人數(shù))
For i = 1 to i人數(shù)
    i考試成績(i) = inputbox("輸入考試成績"& i )
Next