當前位置:成語大全網 - 漢語詞典 - 使用VBA select case語法

使用VBA select case語法

私有Sub CB1_Click()

選擇案例表1。範圍(" A1 ")

案例A

Sheet1。範圍(" A3") = "聯想"

案例B

Sheet1。範圍(" A3") = "華碩"

案例“C”

Sheet1。範圍(" A3") = "馬力"

案件“D”

Sheet1。範圍(" A3") = "IBM "

案例“E”

Sheet1。範圍(" A3") = "三星"

其他情況

Sheet1。範圍(" A3") = "我不知道"

結束選擇

末端接頭

擴展數據:

選擇案例結構提供?If的另壹種形式...然後...ElseIf結構,其中壹個可以從多個語句塊中執行。Select Case語句提供的函數與?如果...然後...Else語句類似,但是可以讓代碼更簡潔,可讀性更強。

Select Case結構使用壹個簡單的測試表達式,在開始時只計算壹次。表達式的結果會與每個?案子?的值的比較。如果有匹配的,執行和案件壹樣?關聯語句塊,示例代碼如下:

暗淡?價值?定義壹個變量。

值= 10?變量賦值是10Select?案子?價值?判斷變量值,如果相等則輸出變量值。

案子?0 MsgBox 0

案子?1 MsgBox 1

案子?2 MsgBox 2

案子?不然呢?MsgBox?“數值超出範圍!”?“如果所有通道不相等,則輸出”的值超出範圍!“結束?選擇?

註意:Select Case結構在開始時只計算壹個表達式(只計算壹次),但是?如果...然後...埃爾瑟夫?結構計算每個?埃爾瑟夫?語句,可以不同。只有當每個?埃爾瑟夫?只有當語句計算出的表達式相同時才能使用?選擇案例?結構替換If...然後...埃爾瑟夫?結構。