excel的巨集與VBA入門（三） 流程控制

if  邏輯表示式 then

語句塊end
if

帶else的if語句：

if  邏輯表示式1 then

語句塊1
elseif  邏輯表示式2  then
語句塊2
elseif
邏輯表示式3 then 
語句塊3
…else
語句塊n
end 
if

select

case
測試表示式
case
條件表示式1
語句塊1
case
條件表示式2
語句塊2
case
條件表示式3
語句塊3
......
case
條件表示式n
語句塊n
case
else
語句塊else
endselect.

示例：

sub

test()
if [a1].value = ""
then
msgbox
"a1單元格沒有輸入數字。
"exit sub
'退出程式
endif
select
case
[a1].value
case0to
29msgbox"差
"case
30to
59msgbox
"不及格
"case
60to
79msgbox"及格
"case
80to
89msgbox"良好
"case
else
msgbox"優秀
"end
select
end sub

for 迴圈變數＝初值 to 終值 step

步長       迴圈體1
[exit
for]
迴圈體2
next 迴圈變數

示例：（步長預設為1，next後的迴圈變數可以省略 ）

sub

mysum()
dim lsum as
long, i as
long
for i = 1
to1000
lsum = lsum +i
next
msgbox
"1到1000的自然數和為：
" &lsum
end sub

for eacn 元素變數 in

物件集合或陣列名稱
語句塊1
[exit
for]
語句塊2
next 元素變數

//與上乙個迴圈類似，這裡採用元素變數從物件集合中取得方式

do

wihle 迴圈條件
語句塊1
[exitdo]
語句塊2
loop
do語句塊1
[exitdo]
語句塊2
loop wihle 迴圈條件

//示例暫略

do

until
迴圈條件
語句塊1
[exitdo]
語句塊2
loop
do語句塊1
[exitdo]
語句塊2
loop
until 迴圈條件

//與do/while相反的是為真時退出

sub

mysum()
dim lsum as
long, i as
long
i = 1
x: '
為go to 語句設定的標籤，必須以英文狀態下的冒號結尾
lsum = lsum +i
i = i + 1
if i <= 1000
then
goto x '
如果i<=1000,則程式跳到標籤x處
msgbox
"1到1000的自然數和為：
" &lsum
end sub

Excel 巨集與VBA 資料型別

允許使用英文本母 數字 見名知意 英文本母開頭 宣告乙個變數並且賦值 sub 變數 宣告乙個變數用dim，格式就是 dim 變數名 as 資料型別 dim score as integer 給score賦值為100 score 100 彈窗顯示score的值 msgbox score end sub...

java8入門（三） 流，不要再用for迴圈了

list mans new arraylist mans.add new man 001 張三 arrays.aslist new card 工商銀行 9558800001 new card 工商銀行 9558800002 new card 建設銀行 6227001234 mans.add new ...

供應鏈管理的「三流」整合

提到 鏈管理這個名詞，想必大家都很熟悉。但 鏈管理的內容究竟有哪些？一定有很多人沒辦法給出乙個準確的答覆。整體來說，鏈管理的基礎為採購管理 運營管理和物流管理。常常有人將這三個管理與 鏈管理混為一談。實際上，鏈管理是由這三大板塊共同構成的，它們各司其職，共同作用於 鏈管理。與此同時，與 鏈管理密不可...