中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

VBA語法概述

1，標識符:是一種標識變量、常量、過程、函數(shù)、類等語言構成單位的符號，利用它可以完成對變量、常量、過程、函數(shù)、類等的引用。命名規(guī)則如下： A, 字母打頭，由字母、數(shù)字和下劃線組成，如 A987b_23Abc B, 字符長度小于40，（Excel2002以上中文版等，可以用漢字且長度可達254個字符） C, 不能與VB保留字重名，如public, private, dim, goto, next, with, integer, single等

2,運算符:是代表VB某種運算功能的符號。

A, 賦值運算符 =

B, 數(shù)學運算符 &、+ (字符連接符)、+(加)、-（減）、Mod（取余）、\（整除）、*（乘）、/（除）、-（負號）、^（指數(shù)）

C, 邏輯運算符Not（非）、And（與）、Or（或）、Xor（異或）、Eqv（相等）、Imp（隱含）

D, 關系運算符 = （相同）、<>（不等）、>（大于）、<（小于）、>=（不小于）、<=（不大于）、Like、Is

E, 位運算符 Not（邏輯非）、And（邏輯與）、Or（邏輯或）、Xor（邏輯異或）、Eqv（邏輯等）、Imp（隱含）

3,數(shù)據(jù)類型:VBA共有12種數(shù)據(jù)類型，具體見下表，此外用戶還可以根據(jù)以下類型用Type自定義數(shù)據(jù)類型。

4, 變量與常量:

1）VBA允許使用未定義的變量，默認是變體變量Variant。

2）在模塊通用說明部份，加入 Option Explicit 語句可以強迫用戶進行變量定義。

3）變量定義語句及變量作用域

Dim 變量 as 類型   '定義為局部變量，如 Dim  xyz as integerPrivate        變量 as 類型   '定義為私有變量，如 Private         xyz as bytePublic        變量 as 類型   '定義為公有變量，如 Public         xyz as singleGlobal         變量 as 類型   '定義為全局變量，如 Globlal         xyz as dateStatic        變量 as 類型   '定義為靜態(tài)變量，如 Static  xyz as double

一般變量作用域的原則是，那部份定義就在那部份起作用，模塊中定義則在該模塊那作用。

4）常量為變量的一種特例，用Const定義，且定義時賦值，程序中不能改變值，作用域也如同變量作用域。如下定義：Const Pi=3.1415926 as single

5,數(shù)組:是包含相同數(shù)據(jù)類型的一組變量的集合，對數(shù)組中的單個變量引用通過數(shù)組索引下標進行。在內(nèi)存中表現(xiàn)為一個連續(xù)的內(nèi)存塊，必須用Global或Dim語句來定義。定義規(guī)則如下： Dim 數(shù)組名([lower to ]upper [, [lower to ]upper, ….]) as type ;Lower缺省值為0。二維數(shù)組是按行列排列，如XYZ(行，列)。

除了以上固定數(shù)組外，VBA還有一種功能強大的動態(tài)數(shù)組，定義時無大小維數(shù)聲明；在程序中再利用Redim語句來重新改變數(shù)組大小，原來數(shù)組內(nèi)容可以通過加preserve關鍵字來保留。如下例： Dim array1() as double : Redim array1(5) : array1(3)=250 : Redim preserve array1(5,10)

6,注釋和賦值語句

1）注釋語句是用來說明程序中某些語句的功能和作用；VBA中有兩種方法標識為注釋語句。

ü 單引號 ’ ;如：’定義全局變量；可以位于別的語句之尾，也可單獨一行

ü Rem ;如：Rem定義全局變量；只能單獨一行

2）賦值語句是進行對變量或對象屬性賦值的語句，采用賦值號 =，如X=123：Form1.caption=”我的窗口”。對對象的賦值采用：set myobject=object 或 myobject:=object

7,書寫規(guī)范:

1）VBA不區(qū)分標識符的字母大小寫，一律認為是小寫字母；

2）一行可以書寫多條語句，各語句之間以冒號 : 分開；

3）一條語句可以多行書寫，以空格加下劃線 _ 來標識下行為續(xù)行；

4）標識符最好能簡潔明了，不造成歧義。

8,判斷語句

1）If…Then…Else語句

If condition Then [statements][Else elsestatements]如1：If A>B And C<D Then A=B+2 Else A=C+2如2：If x>250 Then x=x-100或者，可以使用塊形式的語法：If condition Then[statements][ElseIf condition-n Then[elseifstatements] ...[Else[elsestatements]]End If如1:If Number < 10 ThenDigits = 1ElseIf Number < 100 ThenDigits = 2ElseDigits = 3End If

2）Select Case…Case…End Case語句

如1：Select Case PidCase “A101”Price=200Case “A102”Price=300……Case ElsePrice=900End Case

3）Choose 函數(shù)： choose(index, choce-1,choice-2,…,choice-n)，可以用來選擇自變量串列中的一個值，并將其返回，index 必要參數(shù)，數(shù)值表達式或字段，它的運算結果是一個數(shù)值，且界于 1 和可選擇的項目數(shù)之間。choice 必要參數(shù)，Variant表達式，包含可選擇項目的其中之一。如： GetChoice = Choose(Ind, "Speedy", "United", "Federal")

4）Switch函數(shù)： Switch(expr-1, value-1[, expr-2, value-2 _ [, expr-n,value-n]]) switch函數(shù)和Choose函數(shù)類似，但它是以兩個一組的方式返回所要的值，在串列中，最先為TRUE的值會被返回。 expr 必要參數(shù)，要加以計算的 Variant 表達式。value 必要參數(shù)。如果相關的表達式為 True，則返回此部分的數(shù)值或表達式，沒有一個表達式為 True，Switch 會返回一個 Null值。

9,循環(huán)語句

1）For Next語句 以指定次數(shù)來重復執(zhí)行一組語句

For counter = start To end [Step step]     ' step 缺省值為1[statements][Exit For][statements]Next [counter]如1：For Words = 10 To 1 Step -1             ' 建立 10 次循環(huán)For Chars = 0 To 9                    ' 建立 10 次循環(huán)MyString = MyString & Chars            ' 將數(shù)字添加到字符串中Next Chars                            ' Increment counterMyString = MyString & " "           ' 添加一個空格Next Words

2）For Each…Next語句:主要功能是對一個數(shù)組或集合對象進行，讓所有元素重復執(zhí)行一次語句

For Each element In groupStatements[Exit for]StatementsNext [element]如1：For Each rang2 In range1With range2.interior.colorindex=6.pattern=xlSolidEnd withNext這上面一例中用到了 With…End With 語句，目的是省去對象多次調(diào)用，加快速度；語法為：With object[statements]End With

3）Do…loop語句 在條件為true時，重復執(zhí)行區(qū)塊命令

Do {while |until} condition      ' while 為當型循環(huán)，until為直到型循環(huán)，顧名思義，不多說啦StatementsExit doStatementsLoop或者使用下面語法Do                                ' 先do 再判斷，即不論如何先干一次再說StatementsExit doStatementsLoop {while |until} condition

10,其他類語句和錯誤語句處理

A, 其他循環(huán)語句:結構化程序使用以上判斷和循環(huán)語句已經(jīng)足夠，建議不要輕易使用下面的語句，雖然VBA還支持。

1)Goto line 該語句為跳轉到line語句行

2)On expression gosub destinatioinlist 或者 on expression goto destinationlist 語句為根據(jù) exprssion表達式值來跳轉到所要的行號或行標記

3)Gosub line…line…Return語句， Return 返回到 Gosub line行，如下例：

Sub gosubtry()Dim numNum=inputbox(“輸入一個數(shù)字，此值將會被判斷循環(huán)”)If num>0 then Gosub Routine1 ：Debug.print num：Exit subRoutine1:Num=num/5ReturnEnd sub

4)while…wend語句，只要條件為TRUE，循環(huán)就執(zhí)行，這是以前VB老語法保留下來的，如下例： while condition 'while I<50 [statements] 'I=I+1 wend 'Wend

B, 錯誤語句處理:執(zhí)行階段有時會有錯誤的情況發(fā)生，利用On Error語句來處理錯誤，啟動一個錯誤的處理程序。語法如下：

On Error Goto Line　　　'當錯誤發(fā)生時，會立刻轉移到line行去On Error Resume Next     '當錯誤發(fā)生時，會立刻轉移到發(fā)生錯誤的下一行去On Erro Goto 0                '當錯誤發(fā)生時，會立刻停止過程中任何錯誤處理過程

11,過程和函數(shù):過程是構成程序的一個模塊，往往用來完成一個相對獨立的功能。過程可以使程序更清晰、更具結構性。VBA具有四種過程：Sub 過程、Function函數(shù)、Property屬性過程和Event事件過程。

A, Sub過程:Sub 過程的參數(shù)有兩種傳遞方式：按值傳遞(ByVal)和按地址傳遞(ByRef)。如下例： {{ Sub password (ByVal x as integer, ByRef y as integer) If y=100 then y=x+y else y=x-y x=x+100 End sub

Sub call_password () Dim x1 as integer Dim y1 as integer x1=12 y1=100 Call password (x1,y1) ‘調(diào)用過程方式：1. Call 過程名(參數(shù)1, 參數(shù)2…) ; 2. 過程名 參數(shù)1, 參數(shù)2… debug.print x1,y1 ‘結果是12、112，y1按地址傳遞改變了值，而x1按值傳遞，未改變原值 End sub }}

B, Function函數(shù):函數(shù)實際是實現(xiàn)一種映射，它通過一定的映射規(guī)則，完成運算并返回結果。參數(shù)傳遞也兩種：按值傳遞(ByVal)和按地址傳遞(ByRef)。如下例：

Function password(ByVal x as integer, byref y as integer) as booleanIf y=100 then y=x+y else y=x-yx=x+100if y=150 then password=true else password=falseEnd FunctionSub call_password ()Dim x1 as integerDim y1 as integerx1=12y1=100if password then ‘調(diào)用函數(shù)：1. 作為一個表達式放在=右端 ; 2. 作為參數(shù)使用debug.print x1end ifEnd sub

C, Property屬性過程和Event事件過程:這是VB在對象功能上添加的兩個過程，與對象特征密切相關，也是VBA比較重要組成，技術比較復雜，可以參考相關書籍。

12,內(nèi)部函數(shù)在VBA程序語言中有許多內(nèi)置函數(shù)，可以幫助程序代碼設計和減少代碼的編寫工作。

A．測試函數(shù)IsNumeric(x)                                    ‘是否為數(shù)字, 返回Boolean結果，True or FalseIsDate(x)                                       ‘是否是日期, 返回Boolean結果，True or FalseIsEmpty（x）                                   ‘是否為Empty, 返回Boolean結果，True or FalseIsArray(x)                                         ‘指出變量是否為一個數(shù)組。IsError(expression)                                ‘指出表達式是否為一個錯誤值IsNull(expression)                                ‘指出表達式是否不包含任何有效數(shù)據(jù) (Null)。IsObject(identifier)                                ‘指出標識符是否表示對象變量B．數(shù)學函數(shù)Sin(X)、Cos(X)、Tan(X)、Atan(x)  三角函數(shù)，單位為弧度Log(x) 返回x的自然對數(shù)Exp(x)返回 exAbs(x) 返回絕對值Int(number)、Fix(number) 都返回參數(shù)的整數(shù)部分，區(qū)別：Int 將 -8.4 轉換成 -9，而 Fix 將-8.4 轉換成 -8Sgn(number) 返回一個 Variant (Integer)，指出參數(shù)的正負號Sqr(number) 返回一個 Double，指定參數(shù)的平方根VarType(varname) 返回一個 Integer，指出變量的子類型Rnd（x）返回0-1之間的單精度數(shù)據(jù)，x為隨機種子C．字符串函數(shù)Trim(string)                                 去掉string左右兩端空白Ltrim(string)                                 去掉string左端空白Rtrim(string)                                 去掉string右端空白Len(string)                                 計算string長度Left(string, x)                         取string左段x個字符組成的字符串Right(string, x)                         取string右段x個字符組成的字符串Mid(string, start,x)                 取string從start位開始的x個字符組成的字符串Ucase(string)                                 轉換為大寫Lcase(string)                                 轉換為小寫Space(x)                                 返回x個空白的字符串Asc(string)                                 返回一個 integer，代表字符串中首字母的字符代碼Chr(charcode)                                返回 string，其中包含有與指定的字符代碼相關的字符D．轉換函數(shù)CBool(expression)                        轉換為Boolean型CByte(expression)                         轉換為Byte型CCur(expression)                         轉換為Currency型CDate(expression)                         轉換為Date型CDbl(expression)                         轉換為Double型CDec(expression)                         轉換為Decemal型CInt(expression)                         轉換為Integer型CLng(expression)                         轉換為Long型CSng(expression)                         轉換為Single型CStr(expression)                         轉換為String型CVar(expression)                         轉換為Variant型Val(string)                                 轉換為數(shù)據(jù)型Str(number)                                轉換為StringE．時間函數(shù)Now                    返回一個 Variant (Date)，根據(jù)計算機系統(tǒng)設置的日期和時間來指定日期和時間。Date                  返回包含系統(tǒng)日期的 Variant (Date)。Time            返回一個指明當前系統(tǒng)時間的 Variant (Date)。Timer                   返回一個 Single，代表從午夜開始到現(xiàn)在經(jīng)過的秒數(shù)。TimeSerial(hour, minute, second) 返回一個 Variant (Date)，包含具有具體時、分、秒的時間。DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])返回 Variant (Long) 的值，表示兩個指定日期間的時間間隔數(shù)目Second(time) 返回一個 Variant (Integer)，其值為 0 到 59 之間的整數(shù)，表示一分鐘之中的某個秒Minute(time) 返回一個 Variant (Integer)，其值為 0 到 59 之間的整數(shù)，表示一小時中的某分鐘Hour(time)          返回一個 Variant (Integer)，其值為 0 到 23 之間的整數(shù)，表示一天之中的某一鐘點Day(date)         返回一個 Variant (Integer)，其值為 1 到 31 之間的整數(shù)，表示一個月中的某一日Month(date)         返回一個 Variant (Integer)，其值為 1 到 12 之間的整數(shù)，表示一年中的某月Year(date)         返回 Variant (Integer)，包含表示年份的整數(shù)。Weekday(date, [firstdayofweek]) 返回一個 Variant (Integer)，包含一個整數(shù)，代表某個日期是星期幾

13, 文件操作

1）文件

Dir[(pathname[, attributes])] ；pathname 可選參數(shù)，用來指定文件名的字符串表達式，可能包含目錄或文件夾、以及驅動器。如果沒有找到 pathname，則會返回零長度字符串 ("");

attributes 可選參數(shù)。常數(shù)或數(shù)值表達式，其總和用來指定文件屬性。如果省略，則會返回匹配 pathname 但不包含屬性的文件。

2）刪除

Kill pathname 從磁盤中刪除文件, pathname 參數(shù)是用來指定一個文件名

RmDir pathname 從磁盤中刪除刪除目錄，pathname 參數(shù)是用來指定一個文件夾

3）打開

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] 能夠對文件輸入/輸出 (I/O)。

pathname 必要。字符串表達式，指定文件名，該文件名可能還包括目錄、文件夾及驅動器。

mode 必要。關鍵字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，則以 Random 訪問方式打開文件。

access 可選。關鍵字，說明打開的文件可以進行的操作，有 Read、Write、或 Read Write 操作。

lock 可選。關鍵字，說明限定于其它進程打開的文件的操作，有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。

filenumber 必要。一個有效的文件號，范圍在 1 到 511 之間。使用 FreeFile 函數(shù)可得到下一個可用的文件號。 reclength 可選。小于或等于 32，767（字節(jié)）的一個數(shù)。對于用隨機訪問方式打開的文件，該值就是記錄長度。對于順序文件，該值就是緩沖字符數(shù)。說明 對文件做任何 I/O 操作之前都必須先打開文件。Open 語句分配一個緩沖區(qū)供文件進行 I/O 之用，并決定緩沖區(qū)所使用的訪問方式。如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打開文件時，可以建立這一文件。如果文件已由其它進程打開，而且不允許指定的訪問類型，則 Open 操作失敗，而且會有錯誤發(fā)生。如果 mode 是 Binary 方式，則 Len 子句會被忽略掉。

重要 在 Binary、Input 和 Random 方式下可以用不同的文件號打開同一文件，而不必先將該文件關閉。在 Append 和 Output 方式下，如果要用不同的文件號打開同一文件，則必須在打開文件之前先關閉該文件。

4）讀入

Input #filenumber, varlist 從已打開的順序文件中讀出數(shù)據(jù)并將數(shù)據(jù)指定給變量

Get [#]filenumber, [recnumber], varname將一個已打開的磁盤文件讀入一個變量之中。

5）寫入

Write #filenumber, [outputlist] 將數(shù)據(jù)寫入順序文件

Print #filenumber, [outputlist] 將格式化顯示的數(shù)據(jù)寫入順序文件中

Put [#]filenumber, [recnumber], varname 將一個變量的數(shù)據(jù)寫入磁盤文件中。

6）關閉 Close [filenumberlist] 關閉 Open 語句所打開的輸入/輸出 (I/O) 文件

注意 如果今后想用 Input # 語句讀出文件的數(shù)據(jù)，就要用 Write # 語句而不用 Print # 語句將數(shù)據(jù)寫入文件。因為在使用 Write # 時，將數(shù)據(jù)域分界就可確保每個數(shù)據(jù)域的完整性，因此可用 Input # 再將數(shù)據(jù)讀出來。使用 Write # 還能確保任何地區(qū)的數(shù)據(jù)都被正確讀出。Write 與 Print # 語句不同，當要將數(shù)據(jù)寫入文件時，Write # 語句會在項目和用來標記字符串的引號之間插入逗號。Write # 語句在將 outputlist 中的最后一個字符寫入文件后會插入一個新行字符，即回車換行符，(Chr(13) + Chr(10))。

7）其他文件函數(shù) LOF(filenumber) 返回一個 Long，表示用 Open 語句打開的文件的大小，該大小以字節(jié)為單位。

EOF(filenumber) 返回一個 Integer，它包含 Boolean 值 True，表明已經(jīng)到達為 Random 或順序 Input 打開的文件的結尾。

Loc(filenumber) 返回一個 Long，在已打開的文件中指定當前讀/寫位置

Seek(filenumber) 返回一個 Long，在 Open 語句打開的文件中指定當前的讀/寫位置