幾個語句

If…then語句

If A then B:如果A判斷條件成立，則執(zhí)行B語句；

Eg：if time >0.5 then msgbox”下午好”

“time>0.5”:time函數(shù)返回當前時間，大于0.5指現(xiàn)在是12點后，即顯示下午好。

也有if A then B else C:如果判斷條件A成立，則執(zhí)行B語句，如果A不成立，則執(zhí)行C語句。（個人注意，不能像C語言那樣回車跳行，整句語句需在同一行，如果需要跳行，則需要在最后加上endif ）

Eg:

If time >0.5then

 Msgbox”下午好”

Else

 Msgbox”早上好”

End if

同時，此語句也有elseif的情況。就是多重條件。

Eg：

If time<0.5 then

 Msgbox”早上好”

Elseif time <0.75

 Msgbox”下午好”

Else

 Msgbox”晚上好”

Endif

Select…case語句

在判斷或者選擇條件較多時，使用if…then語句就比較麻煩，這是可以使用select…case語句。和C語言中的相近。

Eg：

Select case time     'select case 后面跟判斷表達式，可數(shù)值表達式，字符串表達式

 Case is<0.5       'case后跟表達式列表，用來判斷的值，可以使to或者is，如case 1 to 5，表示case 1,2,3,4,5.

 Msgbox”早上好”

 Case 0.5 to 0.75

 Msgbox”下午好”

 case else

 msgbox”晚上好”

end select

實例，利用select   case語句寫一個分數(shù)判斷程序，判斷所給分數(shù)是否及格或者優(yōu)良。

 

如上。

For … next 語句

此語句用于循環(huán)。比如在需處理的數(shù)據(jù)有很多行時，我們不能為每一行都寫一句代碼。多用在不同對象的選擇引用上。

格式：

For <</span>循環(huán)變量>=<</span>初值> to <</span>終值> [step步長，默認為1]

   <</span>循環(huán)體>

   [exit for]   '跳出循環(huán)觸發(fā)語句，執(zhí)行next后的語句

   [循環(huán)體]   

Next [循環(huán)變量，變量名可省略]

Eg：將1到100中的奇數(shù)按順序放入表單中的A列。

首先分析需要怎么把奇數(shù)調(diào)出來：1開始，按順序加上2就行。一個循環(huán)。

然后是放入單元格，需要按順序，所以要單獨對單元格引用定義。1開始，每次循環(huán)加上1.

 

結(jié)果：

我另外試了下，cells函數(shù)選擇單元格也可以橫向，將其中的列參數(shù)換為變量即可：

注意數(shù)值變量就不用打引號了。

Do while 語句

條件語句，格式：

Do [while 邏輯表達式]   

   <</span>循環(huán)體>

   [exit do]  '跳出循環(huán)，執(zhí)行l(wèi)oop后的語句

   [循環(huán)體]

   [循環(huán)體]

Loop     'do while語句結(jié)束標志，返回do語句處，再次判斷循環(huán)條件

也可以在結(jié)尾判斷，即：

Do 

   <</span>循環(huán)體>

   [exit do]     

Loop [while 邏輯表達式]

  一個是先判斷后執(zhí)行，一個是先執(zhí)行，后判斷。注意，這兩個不同，在如判斷條件為數(shù)值時，注意取值大小。

Dountil語句

和do while語句相似，格式：

Do [until 邏輯表達式]    '當條件滿足時，退出，直到型

 <</span>循環(huán)體>

 [exit do]

Loop

另一種結(jié)尾判斷式：

Do

 <</span>循環(huán)體>

 [exit do]

Loop [until 邏輯表達式]   '當條件滿足時，退出

似乎和C語言有些不一樣，不過分開記就行。

Eg：

其他幾個函數(shù)相近，自行練習?；蛘哌@樣：Loop Until Cells(i, 'A') = ''

For each…next語句

一個循環(huán)語句，用于在某一集合內(nèi)部選擇對象的語句，

格式：

For each 元素變量 in 集合名稱或數(shù)組名稱

   <</span>語句塊>

   [exit for]

Next [元素變量]

這里需要注意，我們是將集合或數(shù)組中的元素變量進行選擇，因此在提前定義元素變量時，需要定義類型和集合或數(shù)組一致。

Eg：下面的代碼會在數(shù)組的每個元素中循環(huán)，并且將每個值設置成它的索引變量 I的值。（來自百度）

DimTestArray(10) As Integer, I As Variant

For Each I InTestArray

    TestArray(I) = I

Next I

Goto語句

用于直接跳轉(zhuǎn)指定位置的語句，和C語言的相近。在VBA中，指定位置可以在目標代碼所在行前加上一個帶冒號的字符串或不帶冒號的數(shù)字作為標簽，然后在goto的后面寫上標簽。

Eg：

Dim sum as long,Ias integer

i=1

x:sum=sum+i

i=i+1

if i<=100then goto x

msgbox”1到100的和為：”&sum

利用goto語句達到循環(huán)，其中“x：”即為跳轉(zhuǎn)位置標識。不過一樣，為了日后維護方便，不建議多用。

With語句

With語句的作用是，在處理同一對象的不同屬性時，可以簡化代碼。

Eg：對某一單元格進行格式設置：

With worksheets(“sheet1”).range(“A1”).font

  .name=”仿宋”    '前面的小點不要忘了

  .size=12

  .bold=true

  .colorindex=3

End with

此過程用來設置sheet1表單中A1單元格的格式，字體為仿宋，大小為12，加粗選擇true，顏色代碼為3.注意每個設置選項前有小點。