【正文】 e） 數(shù)據(jù)是描述日期和時(shí)間的數(shù) 據(jù) ， 長(zhǎng)度固定為 8個(gè)字符 。 日期時(shí)間型數(shù)據(jù)除包括日期數(shù)據(jù)的年 、 月 、 日外 ， 還包括 時(shí) 、 分 、 秒以及上午 、 下午等內(nèi)容 。 (8) . 貨幣型（ Currency） 類型申明符為 @ 貨幣數(shù)據(jù)為表示錢款而設(shè)置的。 (9)．變體形（ Variant） 變體形是指所有未定義的變量默認(rèn)的數(shù)據(jù)類型，是一種可變的數(shù)據(jù)類型，可以表示任何值 VBA編程基礎(chǔ) VBA的基本數(shù)據(jù)類型 28 VBA編程基礎(chǔ) 常量指在程序運(yùn)行過(guò)程中其值保持不變的量。常量有兩種：直接常量和符號(hào)常量。 1．直接常量 取值直接反映了其類型；例如： abcd， 345 2．符號(hào)常量 定義符號(hào)常量，用來(lái)代替數(shù)值或字符串，提高代碼的可讀性，便于維護(hù)。 一般格式為： Const 常量名 =表達(dá)式 [, 常量名 =表達(dá)式 ]... 例如： Const PI= 程序運(yùn)行中凡是遇到 ，均可用 PI代替。 29 變量 VBA編程基礎(chǔ) 變量是指程序運(yùn)行時(shí)值會(huì)發(fā)生變化的數(shù)據(jù)。在程序運(yùn)行時(shí)數(shù)據(jù)是在內(nèi)存中存放的，內(nèi)存中的位置是用不同的名字表示的，這個(gè)名字就是變量的名稱，該內(nèi)存位置上的數(shù)據(jù)就是該變量的值。 30 變量 VBA編程基礎(chǔ) (1)以字母開(kāi)始，可以包括數(shù)字、字母和下劃線；不能多于 255個(gè)字符； (2) 不能與關(guān)鍵字重復(fù) (如 End、 Printe、 Sub等 )； (3)在同一作用域中，變量名不能重復(fù)。 1．變量命名規(guī)則 31 變量 VBA編程基礎(chǔ) 2．變量的類型和定義 使用變量前，一般必須聲明變量名和變量類型，使系統(tǒng)分配相應(yīng)的內(nèi)存間，并確定該空間可存儲(chǔ)的數(shù)據(jù)類型。 (1) 用類型說(shuō)明符來(lái)標(biāo)識(shí) 把類型說(shuō)明符放在變量名的尾部，可以標(biāo)識(shí)不同的變量類型。其中 %表示整型， amp。表示長(zhǎng)整型， !表示單精度型， 表示雙精度型， @表示貨幣型， $表示字符串型。 例如： Total% Amount Lzlame$ 32 變量 VBA編程基礎(chǔ) (2)在定義變量時(shí)指定其類型 可以用下面的格式定義變量： Dim 變量名 As 類型 例如： Dim Cj As Integer , Total As Double 2．變量的類型和定義 33 表達(dá)式 VBA編程基礎(chǔ) 表達(dá)式是將常量、變量、字段名、控件屬性值和函數(shù)用運(yùn)算符組成的式子，完成各種形式的運(yùn)算和處理。 1．算術(shù)表達(dá)式 運(yùn)算符 意義 舉例 運(yùn)算結(jié)果 + 加 2+5 7 減 27 5 * 乘 * / 除 13/5 \ 整除 13\5 2 ^ 冪運(yùn)算 2^3 8 Mod 取模 (求余 ) 13 mod 5 3 算術(shù)運(yùn)算符與操作數(shù)組合的式子稱為算術(shù)表達(dá)式。 34 表達(dá)式 VBA編程基礎(chǔ) 字符串連接運(yùn)算符是把兩個(gè)字符串首尾連接成一個(gè)字符串。 運(yùn)算符 意義 舉例 運(yùn)算結(jié)果 + 連接兩個(gè)字符 串 “2”+”5” 25 amp。 強(qiáng)制連接兩個(gè) 表達(dá)式 2 amp。 5 25 2．字符串表達(dá)式 35 VBA編程基礎(chǔ) 表達(dá)式 關(guān)系運(yùn)算符用來(lái)對(duì)兩個(gè)值進(jìn)行比較，比較的結(jié)果是一個(gè)邏輯值。如果關(guān)系成立，則結(jié)果 True，否則結(jié)果為 False。 運(yùn)算符 意義 舉例 運(yùn)算結(jié)果 小于 ababc True 大于 25 False = 小于等于 2=（ 5+3） /2 True = 大于等于 53=2 True = 等于 abc=abc True 不等于 23^ True 3．關(guān)系表達(dá)式 36 VBA編程基礎(chǔ) 表達(dá)式 邏輯運(yùn)算也稱布爾運(yùn)算。用邏輯運(yùn)算符連接兩個(gè)或多個(gè)關(guān)系式，組成一個(gè)布爾表達(dá)式。其結(jié)果為邏輯值 True或 False。 運(yùn)算符 意義 舉例 運(yùn)算結(jié)果 NOT 非 Not(38) True And 與 25 And 83 False Or 或 25 Or 83 True 37 VBA編程基礎(chǔ) 表達(dá)式 5．運(yùn)算符的優(yōu)先級(jí) 在表達(dá)式中，當(dāng)運(yùn)算符不止一種時(shí)，要先進(jìn)行算術(shù)運(yùn)算，接著進(jìn)行比較運(yùn)算，最后才是邏輯運(yùn)算。所有比較運(yùn)算符的優(yōu)先順序都相同；邏輯運(yùn)算符中先算 Not運(yùn)算，再算 And運(yùn)算，然后是 Or運(yùn)算。 可以用小括號(hào) “ ( )”改變表達(dá)式中運(yùn)算的優(yōu)先順序，強(qiáng)制表達(dá)式中的某些部分優(yōu)先進(jìn)行計(jì)算。括號(hào)內(nèi)的運(yùn)算總是優(yōu)先于括號(hào)外的運(yùn)算。在括號(hào)之內(nèi)，運(yùn)算符的優(yōu)先順序不變。 38 VBA編程基礎(chǔ) 內(nèi)部函數(shù) 在 VBA中提供了近百個(gè)內(nèi)置的標(biāo)準(zhǔn)函數(shù)，用戶可 以直接調(diào) 用標(biāo)準(zhǔn)函數(shù)來(lái)完成許多操作。標(biāo)準(zhǔn)函數(shù)的 形式如下： 函數(shù)名 (參數(shù)表列 ) 39 VBA編程基礎(chǔ) 內(nèi)部函數(shù) 函數(shù) 功能 Sin(x) 返回自變量 x的正弦值 Cos(x) 返回自變量 x的余弦值 Sqr(x) 返回自變量 x的平方根 Exp(x) 返回以 e為底、以 x為指數(shù)的值，即求 e的 x次方 Log(x) 返回自變量 x的自然對(duì)數(shù)，即相當(dāng)于數(shù)學(xué)函數(shù) Ln(x) Int(x) 返回小于或等于 x的最大整數(shù) 。 Fix(x) 返回?cái)?shù)據(jù)的整數(shù)部分 Round(x,n) 返回有 n位小數(shù)的 x， n位以后的數(shù)四舍五入 1．?dāng)?shù)學(xué)函數(shù) 40 VBA編程基礎(chǔ) 內(nèi)部函數(shù) 2．常用字符串函數(shù) 提示 :常用函數(shù)的練習(xí) 進(jìn)入 VBE,單擊 ”視圖 /立即窗口 ” ,在立即窗口中輸入相應(yīng)命令 ,敲回車執(zhí)行 41 VBA編程基礎(chǔ) 內(nèi)部函數(shù) 3．日期和時(shí)間函數(shù) 函數(shù) 功能 Date 返回當(dāng)前的日期 Year(Now) 返回當(dāng)前的年份 Month(Now) 返回當(dāng)前的月份 Day(Now) 返回當(dāng)前的天數(shù) WeekDay(Now) 返回當(dāng)前的星期 Time(Now) 返回當(dāng)前的時(shí)間 Hour(Now) 返回當(dāng)前的小(0~23) Minute(Now) 返回當(dāng)前的分鐘(0~59) Second(Now) 返回當(dāng)前的秒(0~59) 42 VBA程序的流程控制結(jié)構(gòu) VBA常用語(yǔ)句 (1)將單行語(yǔ)句分成多行 (2) 將多個(gè)語(yǔ)句合并到同一行上 VBA允許將兩個(gè)或多個(gè)語(yǔ)句放在同一行，要用冒號(hào) “ ： ”將它們分開(kāi)。 (3)在語(yǔ)句代碼中添加注釋 為了增加程序的可讀性，在程序中可以添加適當(dāng)?shù)淖⑨尅? 注釋方式有兩種 “ Rem”和 “ 39?！薄? 1．語(yǔ)句的書寫規(guī)則 43 VBA程序的流程控制結(jié)構(gòu) VBA常用語(yǔ)句 賦值語(yǔ)句用來(lái)為變量指定一個(gè)值。 格式如下： 變量名 =表達(dá)式 例如： x = 5 s = * x ^ 2 y = Int(s) x=y x=x+1 =“總成績(jī) ” 2．賦值語(yǔ)句 注 :如果變量未被賦值而直接引用，則數(shù)值型變量的值為 0，字符型變量的值為空串，邏輯型變量的值為False。 44 VBA程序的流程控制結(jié)構(gòu) VBA常用語(yǔ)句 輸入框函數(shù)用于在一個(gè)對(duì)話框中顯示提示，等待用戶輸入正文并按下按鈕，然后返回包含文本框內(nèi)容的數(shù)據(jù)信息。 函數(shù)格式： InputBox(Prompt[,Titlel(,Default[,Xpos][,Ypos][,Helpfile,Context]) 3．輸入框函數(shù) 例 :Private Sub Command1_Click() q1 = InputBox(“請(qǐng)輸入您的身份證號(hào)” ,“輸入身份證號(hào)” ,“19781201”) msgbox “你的身份證號(hào)是 :” amp。 q1 End Sub 提示 缺省 標(biāo)題 提示 標(biāo)題 45 VBA程序的流程控制結(jié)構(gòu) VBA常用語(yǔ)句 MsgBox使用消息框輸出信息。消息框由標(biāo)題欄信息、提示信息，一個(gè)圖標(biāo)和一個(gè)或多個(gè)命令按鈕 4個(gè)部分組成，圖標(biāo)的形式及命令按鈕的個(gè)數(shù)可以由用戶設(shè)置。 MsgBox函數(shù)的格式如下： 變量名 =MsgBox（提示 [,按鈕 ][,標(biāo)題 ]） MsgBox語(yǔ)句的格式如下： MsgBox（提示 [,按鈕 ][,標(biāo)題 ]） 4. MsgBox函數(shù)和 MsgBox語(yǔ)句 46 VBA程序的流程控制結(jié)構(gòu) 計(jì)算機(jī)程序的執(zhí)行控制流程有三種基本結(jié)構(gòu)：順序結(jié)構(gòu)、分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。 面向過(guò)程的程序設(shè)計(jì)中，程序不論從宏觀到微觀，都是由這三種結(jié)構(gòu)組成。 面向?qū)ο蟪绦蛟O(shè)計(jì)增加了事件驅(qū)動(dòng)機(jī)制，由用戶觸發(fā)某事件去執(zhí)行相應(yīng)的事件過(guò)程。 這些事件處理過(guò)程之間并不形成特定的執(zhí)行次序，但對(duì)每一個(gè)事件過(guò)程內(nèi)部而言，又包含