if 條件then
語句1語句2
語句nend if
if activesheet.name = "sheet1" then
activesheet.move after:=sheets _
(worksheets.count)
end if
if 條件 then
如果條件為真時要執行的語句
else
如果條件為假時要執行的語句
end if
sub whattypeofday()
dim response as string
dim question as string
dim strmsg1 as string, strmsg2 as string
dim mydate as date
question = "enter any date in the format mm/dd/yyyy:" _
& chr(13)& " (e.g., 11/22/1999)"
strmsg1 = "weekday"
strmsg2 = "weekend"
response = inputbox(question)
mydate = weekday(cdate(response))
if mydate >= 2 and mydate <= 6 then
msgbox strmsg1
else
msgbox strmsg2
end if
end sub
if 條件1 then
條件1為真時要執行的語句
elseif 條件2 then
條件2為真時要執行的語句
elseif 條件3 then
條件3為真時要執行的語句
elseif 條件n then
條件n為真時要執行的語句
else
所有條件都為假時要執行的語句
end if
一旦按下回車鍵，vb就會執行onkey方法將過程whatvalue賦予組合鍵ctrl+shift+y。這個鍵盤快捷鍵只是臨時的——當你重新啟動excel後它就不起作用了。你同樣也可以用excel介面-工具選單-巨集對話方塊裡的選項來設定快捷鍵。
if then巢狀和select case語句.
select case 測試表示式
case 表示式1
如果表示式1匹配測試表示式的語句
case 表示式2
如果表示式2匹配測試表示式的語句
case 表示式n
如果表示式n匹配測試表示式的語句
case else
如果沒有表示式匹配測試表示式要執行的語句
end select
select case mynumber
case is <10
msgbox "the number is less than 10"
case 11
msgbox "you entered eleven."
case is >=100
msgbox "the number is greater than or equal to 100."
case else
msgbox "the number is between 12 and 99."
end select
select case mymonth
case "january", "february", "march"
debug.print mymonth & ": 1st qtr."
case "april", "may", "june"
debug.print mymonth & ": 2nd qtr."
case "july", "august", "september"
debug.print mymonth & ": 3rd qtr."
case "october", "november", "december"
debug.print mymonth & ": 4th qtr."
end select
判斷語句 VBA常用語句之判斷語句
我的目標 讓中國的大學生走出校門的那一刻就已經具備這些office技能，讓職場人士能高效使用office為其服務。支援我，也為自己加油！今天我們來學習下vba中另乙個重要的語句結構，判斷語句結構。在工作中，我們經常會遇到根據不同的情況進行判斷並做出不同的操作，有時候需要的是單條件的判斷，有時候需要的...
if判斷語句
判斷語句 if if 要判斷的條件 條件成立的時，要做的事情 else 條件不成立的時候，要做的事情 注意 的縮排為乙個tab鍵，或者四個空格 tab鍵和空格不要混用 age 13 if age 18 print 允許進入網咖 else print 未成年，不允許進入網咖 邏輯運算子 and 條件1...
判斷和判斷語句
判斷它如果對了就怎麼這麼做 如果錯了就怎麼這麼做 那這我們可以使用if.else這樣的判斷語句 if 判斷條件 else這樣就是它的格式 如果判斷條件是對的程式就會執行if裡面的 塊 如果判斷條件是錯的程式就會執行else裡面的 塊 案例 int a 10 if a 10 else判斷條件裡的變數等...