VBA程序設(shè)計初步

1/11/20231第7章

VBA程序設(shè)計初步1/11/20232要點

7.1VBA概述

7.2對象模型

7.3數(shù)據(jù)類型

7.4程序語句

7.5數(shù)組1/11/202337.1VBA概述1、VBA簡介

VBA（VisualBasicApplication）是MicrosoftOffice系列軟件的內(nèi)置編程語言，VBA的語法與獨立運行的VisualBasic編程語言互相兼容。它使得在MicrosoftOffice系列軟件中快速開發(fā)應(yīng)用程序更加容易，且可以完成特殊的、復(fù)雜的操作。1/11/202347.1VBA概述1、VBA簡介

VBA是面向?qū)ο蟮某绦蛟O(shè)計語言。面向?qū)ο蟪绦蛟O(shè)計是一種以對象為基礎(chǔ)，以事件來驅(qū)動對象的程序設(shè)計方法。1/11/202357.1VBA概述1、VBA簡介(續(xù))VBA和常用的程序開發(fā)語言VB非常相似，二者來自同一種編程語言，即BASIC。 VBA與VB所包含的對象級是相同的，也就是說，對于VB所支持對象的多數(shù)屬性和方法，VBA也同樣支持。但兩者并非完全一致，在許多語法和功能上有所不同，VBA從VB中獲得了主要的語法結(jié)構(gòu)，另外又加上Office中的一些功能。1/11/202362、VBA編程環(huán)境

Office中提供的VBA開發(fā)界面稱為VBE(VisualBasicEditor)，即可視化的Basic編程環(huán)境。 在Access中，打開VBE窗口的方法有多種。在模塊對象窗口單擊“新建”按鈕，或打開一個已存在的模塊，都會打開VBE窗口。選擇工具菜單中“宏”子菜單的“VisualBasic編輯器”命令。使用Alt+F11快捷鍵打開VBE界面，或切換數(shù)據(jù)庫窗口和VBE窗口。1/11/202372、VBA編程環(huán)境

1/11/20238工具欄工程資源管理器窗口屬性窗口代碼窗口1/11/202397.2對象模型1、Access對象

Access中的對象大多都有父子關(guān)系，有根對象，也有子對象（包括子對象的子對象等等）。 在VBA代碼中訪問對象，必須從根對象開始，逐步取其子對象，直到需要訪問的對象為止。1/11/202310Access根對象有6個，如表所示：對象名說明Application應(yīng)用程序，即Access環(huán)境。DBEngine數(shù)據(jù)庫管理系統(tǒng)，表對象、查詢對象、記錄對象、字段對象等都是它的子對象。Debug立即窗口對象，在調(diào)試階段可用其Print方法在立即窗口顯示輸出信息。Forms所有處于打開狀態(tài)的窗體所構(gòu)成的對象。Reports所有處于打開狀態(tài)的報表所構(gòu)成的對象。Screen屏幕對象。1/11/202311Forms是一個集合對象,包括當(dāng)前數(shù)據(jù)庫中所有打開的窗體對象。引用窗體對象的語法為Forms!formname,其中的formname

是窗體名每個Form對象都有一個

Controls

集合 例如 要引用窗體Form_窗體1上的控件Text1，可以顯式或隱式地引用Controls集合。

Forms!Form_窗體1!Text1‘隱式引用

Forms!Form_窗體1.Controls!Text1'顯示引用1/11/2023122、對象的屬性

在程序代碼中，通過賦值的方式來設(shè)置對象的屬性。格式為：對象.屬性=屬性值

例如：Label1.Caption=“學(xué)生成績表”1/11/2023133、對象的事件

事件是發(fā)生在對象上的事情或消息。系統(tǒng)為每個對象預(yù)先定義了一系列的事件，如:Click（單擊）、DblClick（雙擊）等等。例如：按下按鈕Command1時,文本框Text1的字體改變。

PrivateSubCommand1_Click()

Text1.FontSize=14EndSub1/11/2023144、對象的方法

方法是一些系統(tǒng)封裝起來的通用過程和函數(shù)，以方便用戶的調(diào)用。對象方法的調(diào)用格式為：[對象.]方法[參數(shù)名表]

例如：在立即窗口輸出2+3的結(jié)果 Debug.Print2+3Subq1() ‘定義了一個宏,名為”q1”. Debug.Print2+3EndSub1/11/2023154、對象的方法

除窗體、控件的SetFocus（獲得控制焦點）、Requery（更新數(shù)據(jù)）等方法外，用得最多的是DoCmd對象的一些方法。 使用DoCmd對象的方法，可以在VBA中運行Access的操作，如執(zhí)行打開窗體（OpenForm）、關(guān)閉窗體（Close）、SelectObject（指定數(shù)據(jù)庫對象）等操作。例如:打開”學(xué)生資料瀏覽”窗體的語句是

DoCmd.OpenForm”學(xué)生資料瀏覽”1/11/202316例7-2-1：制作一個顯示歡迎信息的窗體。(P169)

新建一個窗體，放置兩個按鈕和一個文本框。OptionCompareDatabase PrivateSubCommand1_Click() Me.Text1.SetFocus Me.Text1.Text="您好！歡迎您學(xué)習(xí)VBA“EndSubPrivateSubCommand2_Click()Me.Text1.SetFocusMe.Text1.Text=""EndSubPrivateSubForm_Load()Me.Caption="歡迎"EndSub在”工具”菜單的”選項”的“編輯器格式”中,調(diào)整字體1/11/2023177.3數(shù)據(jù)類型1、變量

變量是在程序運行時發(fā)生變化的量。作用:

保存計算結(jié)果設(shè)置屬性指定方法的參數(shù)在過程間傳遞數(shù)據(jù)1/11/2023187.3數(shù)據(jù)類型變量名是內(nèi)存中存放數(shù)據(jù)的緩沖區(qū)的名字。 在使用變量前必須先聲明，通知VBA變量的名字和數(shù)據(jù)類型。變量命名應(yīng)注意：變量名必須以字母開頭，其最大長度為255。變量名不能包含下列字符：

+/*!<>.@$&等。變量名不能包含空格，可以包含下劃線。不能包括VBA中的關(guān)鍵字(在程序中有特定含義的詞）、運算符Or內(nèi)置函數(shù)名Len、Abs等等。1/11/202319變量的類型(P170)數(shù)據(jù)類型關(guān)鍵字占字節(jié)數(shù)取值范圍字節(jié)型Byte10~255布爾型Boolean2True或False整型Integer2-32768~32767長整型Long4-2147483648~2147483647單精度浮點型Single4負(fù)數(shù)：-3.402823E38~-1.401298E-45正數(shù)：1.401298E-45~3.402823E38雙精度浮點型Double8負(fù)數(shù)：-1.79769313486232E308~-4.94065645841247E-324正數(shù)：4.94065645841247E-324~1.79769313486232E308小數(shù)型Decimal12小數(shù)點右邊的數(shù)字個數(shù)為0~28貨幣型Currency8-922337203685447.5808~922337203685447.5807日期型Date8100年1月1日~9999年12月31日字符型String與字符串有關(guān)定長：1~65400變長：0到20億對象型Object4任何對象引用變體型Variant數(shù)字：16；字符：22+字符串長0到20億1/11/202320聲明變量 作用:指定變量的數(shù)據(jù)類型,變量的適用范圍(作用域)。顯式聲明變量:可以在變量被使用之前，在代碼的任意位置進行聲明。最好在程序的開始位置聲明所有變量。 可以用Dim語句聲明變量，其格式為：Dim變量名[As類型]

例如：DimxAsInteger即Dimx%

Dimx1AsInteger,x2AsInteger,x3AsSingle隱式聲明變量:使用變量前不對變量類型進行明確聲明，系統(tǒng)會默認(rèn)為Variant數(shù)據(jù)類型。1/11/2023212、常量

常量在程序運行期間，其值保持不變。 常量可以是數(shù)字、字符串，也可以是其他值。每個應(yīng)用程序都包含一組常量，用戶也可以定義新常量。定義了常量，就可以在程序中使用它，不必再用實際值。VBA支持兩種類型的常量，即內(nèi)置常量和用戶定義的常量。1/11/2023222、常量

用戶自定義常量 在程序中經(jīng)常用到某個常數(shù)值，或為了程序的閱讀或修改方便。聲明常量使用Const關(guān)鍵字，其格式為：

Const常量名[As類型]=表達式

例如：ConstPI=3.141593

1/11/2023233、運算符及優(yōu)先級

算術(shù)運算

+（加）、-（減、取負(fù)）、*（乘）、/（除）、Mod（取模）、

\（整除）、^（乘方）連接運算符

&1/11/2023243、運算符及優(yōu)先級

關(guān)系運算符

=（等于）、<>（不等于）、>（大于）、<（小于）、

>=（大于等于）、<=（小于等于）邏輯運算符

Imp（包含）、Eqv（等價于）、Xor（異或）、Or（或）、

And（與）、Not（非）1/11/2023253、運算符及優(yōu)先級

優(yōu)先級(P173)算術(shù)運算符

>

連接運算符

>

關(guān)系運算符>

邏輯運算符1/11/2023264、表達式

定義：表達式由運算符、數(shù)值和標(biāo)識符組成。(P172)表達式書寫規(guī)則：（1）每個符號占一格，所有符號必須并排寫在同一橫線上，不能在右上角或右下角寫方次或下標(biāo)。 例如：X3寫成X^3

，X1+X2

寫成X1+X2

（2）所有運算符都不能省略。 例如：2X寫成2*X1/11/2023274、表達式

（3）所有括號都用小括號，成對出現(xiàn)。例如：5[X+2(Y+Z)]必須寫成5*(X+(Y+Z))

（4）數(shù)學(xué)表達式中的有些符號需要修改。 例如：2ΠR可改寫為2*PI*R

例如：數(shù)學(xué)表達式

寫成VBA表達式為：(-b+sqr(b^2-4*a*c))/(2*a)1/11/2023285、內(nèi)置函數(shù)

VBA提供的內(nèi)置函數(shù)按其功能可分為數(shù)學(xué)函數(shù)、字符串函數(shù)、日期函數(shù)、轉(zhuǎn)換函數(shù)等。

(常用內(nèi)置函數(shù)見P174表7.3.3)1/11/2023291MsgBox函數(shù)MsgBox(提示[,按鈕][,標(biāo)題])例7-3-1：(P175)PrivateSubForm_Load()DimIntResponseAsInteger,StrTitleAsStringStrTitle=“MsgBox示例"IntResponse=MsgBox(“停止處理!",19,StrTitle)IfIntResponse=vbYesThenMsgBox“你按下的是””確認(rèn)””鍵."ElseMsgBox“你按下的不是””確認(rèn)””鍵."EndIfEndSub1/11/2023302InputBox函數(shù)

InputBox(提示[,標(biāo)題][,默認(rèn)][,X坐標(biāo)位置][,Y坐標(biāo)位置])

例7-3-2：PrivateSubForm_Load()DimStrMsgAsString,StrTitleAsString,StrNameAsStringStrMsg="請輸入你的名字："StrTitle="InputBox示例"StrName=InputBox(StrMsg,StrTitle,"李四")EndSub1/11/2023317.4程序語句

VBA中的語句是執(zhí)行具體操作的指令，每個語句以Enter(回車)結(jié)束。 語句由VBA關(guān)鍵字、屬性、函數(shù)、運算符以及VBE可以識別的指令符號組合而成。1/11/2023327.4程序語句 書寫程序語句時遵循的構(gòu)造規(guī)則稱為語法。 缺省情況下，輸入語句時，VBA將自動對輸入的內(nèi)容進行語法檢查，發(fā)現(xiàn)錯誤會彈出一個信息框提示出錯的原因。

VBA按約定對語句進行簡單的格式化處理，例如關(guān)鍵字、函數(shù)的第一個字母自動變?yōu)榇髮憽?/11/2023337.4程序語句 書寫程序的語法規(guī)則一般情況下，一行輸入一個語句。 允許使用復(fù)合語句，即把幾個語句放在一行中，各語句間用冒號“：”分隔。 一個語句也可分若干行書寫，在要續(xù)行的行尾加入續(xù)行符（空格和下劃線）。

(見P176)1/11/2023347.4程序語句

VBA具有結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)：順序結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)1/11/2023351、賦值語句

賦值語句是程序語言中最基本的語句，其格式為：

<變量名>=<表達式>例如：Total=100ReadOut="GoodMorning!"Text1.Text="請輸入您的姓名："A=35+Total/21/11/2023361、賦值語句

注意(P177)賦值語句兼有計算與賦值的雙重功能。右邊表達式類型與左邊變量類型不同時,要進行類型的轉(zhuǎn)換。賦值號左邊只能是變量，不能是常量或表達式。1/11/2023371、賦值語句

不能在一條賦值語句中，同時給多個變量賦值。反例：Dimx%,y%,z%: x=y=z=50

運行結(jié)果為x=0

因為系統(tǒng)只將最左邊的“=”作為賦值符號,另外兩個“=”當(dāng)作關(guān)系運算符。

（y，z默認(rèn)初值為0）則y=z比較，結(jié)果為真：-1,

而-1與50比較，結(jié)果為假：0用With語句可以給一個對象的多個屬性同時賦值。(P177例7-4-1)1/11/2023381/11/2023391/11/2023401/11/202341例7-4-3：某商場促銷采用購物打折的辦法，顧客一次購物在1000元以上者，按八折優(yōu)惠；在500元以上，但不足1000元者，按八五折優(yōu)惠；在300元以上，但不足500元者，按九折優(yōu)惠；在100元以上，但不足300元者，按九五折優(yōu)惠；不足100元者，沒有優(yōu)惠。(P179)則計算折扣的程序代碼為：DimaAsSingle,bAsSingle‘a(chǎn)為原價,b為折扣后應(yīng)付款I(lǐng)fa>=1000Thenb=0.8*aElseIfa>=500Thenb=0.85*aElseIfa>=300Thenb=0.9*aElseIfa>=100Thenb=0.95*aElseb=aEndIf1/11/2023421/11/2023433、條件語句二SelectCase語句

例7-4-5SelectCasea CaseIs>=1000 b=0.8*a CaseIs>=500 b=0.85*a CaseIs>=300 b=0.9*a CaseIs>=100 b=0.95*a CaseElse b=aEndSelect

表達式1表達式2表達式n語句塊1語句塊2語句塊n語句塊n+1……FFFTTT1/11/202344

在實際中遇到操作過程不太復(fù)雜，但需要重復(fù)相同處理的問題，比如，統(tǒng)計本單位所有人員的工資，求全班同學(xué)各科的平均成績等等。如果用順序結(jié)構(gòu)來處理，是一個非常乏味且冗長的程序。 例如:求自然數(shù)1～100的和，用順序結(jié)構(gòu)，程序如下：4、循環(huán)語句1/11/202345PrivateSubForm_Click（）

Dims&，x%s=0x=1s=s+xx=x+1s=s+xx=x+1s=s+x……x=x+1'x的值累加到99s=s+xEndSub4、循環(huán)語句

解決這類問題最好用循環(huán)語句。

循環(huán)就是重復(fù)地執(zhí)行同一組語句。

1/11/202346 新建一個窗體,添加一個文本框,名稱為text0。在窗體上添加如下代碼:PrivateSubForm_Click（）

Dims&，x% s=0

Forx=1To99

Step1

s=s+x Nextxtext0.value=“自然數(shù)1～100的和=”&sEndSub4、循環(huán)語句1/11/202347

VBA提供兩種不同風(fēng)格的循環(huán)語句：

For…Next語句

Do…Loop語句 循環(huán)結(jié)構(gòu)適合處理過程相同、數(shù)據(jù)相關(guān)，但具體值不同的問題。4、循環(huán)語句1/11/202348For循環(huán)的一般格式：

For

循環(huán)變量=初值To

終值[Step步長][循環(huán)體]

Next[循環(huán)變量]參見下頁圖示4、循環(huán)語句一For循環(huán)例:

Forn=1To10 s=s+n

Nextn1/11/2023494、循環(huán)語句一For循環(huán)執(zhí)行過程

1）系統(tǒng)將初值賦給循環(huán)變量，并自動記下終值和步長。

2）檢查循環(huán)變量的值是否超過終值。如果超過就結(jié)束循環(huán)，執(zhí)行Next后面的語句；否則，執(zhí)行一次循環(huán)體。

3）執(zhí)行Next語句，將循環(huán)變量增加一個步長值再賦給循環(huán)變量，轉(zhuǎn)到（2）繼續(xù)執(zhí)行。1/11/202350說明

循環(huán)變量：或循環(huán)控制變量，必須為數(shù)值型

初值、終值：數(shù)值型，可以是數(shù)值表達式。

步長：循環(huán)變量的增量，是數(shù)值表達式。其值為正，初值應(yīng)小于終值；若為負(fù)，初值應(yīng)大于終值。

步長不能是0。如果步長是1，Step1可略去不寫。

循環(huán)體：在For和Next之間的語句序列。

Next后面的循環(huán)變量與For語句中的循環(huán)變量必須相同。4、循環(huán)語句一For循環(huán)1/11/202351注意:

For語句和Next語句必須成對出現(xiàn)，缺一不可，且For語句必須在Next語句之前。 循環(huán)次數(shù)由循環(huán)的初值、終值和步長確定，計算公式為：

循環(huán)次數(shù)=Int（（終值－初值）/步長）+14、循環(huán)語句一For循環(huán)1/11/202352【例】求

N！（N為自然數(shù)）。 分析：由階乘的定義N！=1*2*…*（N-2）*（N-1）*N

=（N-1）！*N

即自然數(shù)的階乘，等于該自然數(shù)與前一個自然數(shù)階乘的乘積。4、循環(huán)語句一For循環(huán)1/11/202353程序如下：PrivateSubcmd1_Click()DimIAsIntegerDimfAsLongDimnAsIntegern=InputBox("輸入一個自然數(shù)：","輸入提示","10")f=1ForI=1Tonf=f*INextIlabel1.Caption=n&"的階乘是"&fEndSub4、循環(huán)語句一For循環(huán)1/11/202354

For循環(huán)需要預(yù)先知道循環(huán)次數(shù)。對于不能預(yù)先確定循環(huán)次數(shù)，只知道控制條件的情況，可以使用Do循環(huán)。

Do…Loop循環(huán)可以根據(jù)需要決定是條件滿足時執(zhí)行循環(huán)體，還是一直執(zhí)行循環(huán)體直到條件滿足，具有很強的靈活性。5、循環(huán)語句二Do…Loop循環(huán)語句1/11/202355形式1：Do[While|Until<條件>] [語句塊]

[ExitDo] [語句塊]

Loop1/11/202356形式2： Do [語句塊]

[ExitDo] [語句塊] Loop[While|Until<條件>]1/11/202357例：以下循環(huán)的執(zhí)行次數(shù)是_____。

k=0dowhilek<=2k=k+1loop例：以下循環(huán)的執(zhí)行次數(shù)是_____。

k=0dountilk<=2k=k+1loop1/11/202358例：閱讀程序，結(jié)果是____。

n=0don=n+1debug.printnloopuntiln>2例：閱讀程序，結(jié)果是____。

n=0don=n+1debug.printnloopwhilen>21/11/202359注意：Do循環(huán)中，While語句指定循環(huán)開始的條件（當(dāng)……）。Until語句指定循環(huán)結(jié)束的條件（直到……）。Do循環(huán)本身不能修改循環(huán)條件，必須在循環(huán)體內(nèi)設(shè)置相應(yīng)語句（如：n=n+1），使得整個循環(huán)趨于結(jié)束，以避免死循環(huán)。能用For…Next循環(huán)編寫的程序，都可以用Do循環(huán)來實現(xiàn)。反之，則不盡然。1/11/202360循環(huán)的嵌套

For循環(huán)和Do循環(huán)都可以嵌套,且可以互相嵌套。但必須滿足以下條件：外循環(huán)必須完全包含內(nèi)循環(huán),不能交叉。外循環(huán)變量與內(nèi)循環(huán)變量不能同名。例:

i=1:j=1:s=0:n=0 Fori=1to3

Forj=1to4 s=i*j:n=n+s Next Next1/11/202361循環(huán)的強制退出 在某些情況下，為了減少循環(huán)次數(shù)或便于程序調(diào)試，需要提前強制退出循環(huán)。

VBA為For…Next和Do…Loop循環(huán)語句提供了相應(yīng)的強制退出循環(huán)的語句：1/11/2023621．ExitFor

該語句用于For…Next循環(huán)，在循環(huán)體中可以出現(xiàn)一次或多次。當(dāng)系統(tǒng)執(zhí)行到該語句時，就強制退出當(dāng)前循環(huán)。常用格式是：

If條件ThenExitFor

即當(dāng)循環(huán)執(zhí)行過程中滿足某個條件時，就結(jié)束循環(huán)。循環(huán)的強制退出1/11/2023632．ExitDo

該語句用于Do…Loop循環(huán)，具體用法同ExitFor一樣。循環(huán)的強制退出1/11/2023647.5數(shù)組1、數(shù)組的定義數(shù)組是一組相同類型變量的集合。必須先聲明后使用。 在程序中使用數(shù)組的好處是用一個數(shù)據(jù)名代表邏輯上相關(guān)的一批數(shù)據(jù)，用下標(biāo)表示該數(shù)組中的各個元素。數(shù)組的形式：數(shù)組名(下標(biāo)1[,下標(biāo)2…])例如:name(30)或A(2,3)1/11/2023657.5數(shù)組 數(shù)組分為兩類：靜態(tài)(定長)數(shù)組 動態(tài)(可變長)數(shù)組靜態(tài)數(shù)組的聲明Dim數(shù)組名(下標(biāo)1[,下標(biāo)2…])[As數(shù)據(jù)類型]例如：DimS(10)AsSingleDimSu(3,4)AsInteger,Sd(1To3,3To4)AsInteger

數(shù)組中元素的排列（見P185表7.5.1）1/11/202366

說明:

聲明了數(shù)組名、維數(shù)、大小、類型維數(shù)：幾個下標(biāo)為幾維數(shù)組。下標(biāo)：必須為常數(shù)。

[下界To]上界

,省略下界為0。每一維大?。荷辖纾陆?1

數(shù)組大?。好恳痪S大小的乘積例1：Dimmark(1to100)AsInteger1/11/202367例2：

DimlArray(0To3，0To4)AsLong

數(shù)組lArray

共有4×5個元素等價于:DimlArray(3，4)AsLong

1/11/202368注意：

數(shù)組聲明中的下標(biāo)說明了數(shù)組的整體，即每維的大小；而在程序其他地方出現(xiàn)的下標(biāo)表示數(shù)組中的一個元素。兩者寫法形式相同，但意義不同。例如：

Dimx(10)AsInteger‘聲明x數(shù)組有11個元素

而x(10)=100‘對x()數(shù)組中下標(biāo)為10的元素賦值1/11/202369動態(tài)數(shù)組的聲明

動態(tài)數(shù)組在聲明數(shù)組時,不指定數(shù)組中的元素個數(shù)。使用它時，再按需要用ReDim語句指定數(shù)組的大小。ReDim語句的格式為：ReDim數(shù)組名(下標(biāo)1[,下標(biāo)2…])[As數(shù)據(jù)類型]

例如：聲明數(shù)組時,不指定元素個數(shù)。

DimS()AsSingle DimScore()AsSingle1/11/202370例7-5-1：使用動態(tài)數(shù)組。（P185）OptionCompareDatabaseDimStname()AsString,Strecord()AsIntegerPrivateSubCommand2_Click() … n=50 i=3 ReDimStname(n) ReDimStrecord(1Toi,n) …EndSub1/11/2023712、數(shù)組處理

定義數(shù)組時，用數(shù)組名表示該數(shù)組的整體。 例如：DimA(10)表示數(shù)組中有10個