[ExcelVBA] Switch関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
Switch(expr-1, value-1[, expr-2, value-2 ... [, expr-n,value-n]])

■説明
式と値を１セットのリストを引数として渡し、最初に真となった式に関連づけられている値を返します。
真となるものがない時はNullを返します。
第一引数：式
第二引数：値

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     Dim Score As Integer  
5.   
6.     Score = 70  
7.     Debug.Print Switch(80 < Score, "優", 40 < Score, "良", 0 <= Score, "可") '良  
8.       
9.     Score = -2  
10.     Debug.Print Switch(80 < Score, "優", 40 < Score, "良", 0 <= Score, "可") 'Null  
11. End Sub  

Option Explicit

Sub SampleCode()
    Dim Score As Integer

    Score = 70
    Debug.Print Switch(80 < Score, "優", 40 < Score, "良", 0 <= Score, "可") '良
    
    Score = -2
    Debug.Print Switch(80 < Score, "優", 40 < Score, "良", 0 <= Score, "可") 'Null
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧