Switch Function

Mengevaluasi daftar argumen, yang terdiri dari ekspresi diikuti oleh nilai. Fungsi Switch mengembalikan nilai yang dikaitkan dengan ekspresi yang dilewati oleh fungsi ini.

Sintaksis:


Switch (Expression1, Value1[, Expression2, Value2[..., Expression_n, Value_n]]) As Variant

Parameter:

Fungsi Switch mengevaluasi ekspresi dari kiri ke kanan, dan kemudian mengembalikan nilai yang ditugaskan ke ekspresi fungsi. Jika ekspresi dan nilai tidak diberikan sebagai pasangan, kesalahan runtime terjadi.

Ekspresi1, Ekspresi2: Ekspresi apa saja yang hendak dibandingkan.

Nilai: Nilai yang ingin Anda kembalikan jika ekspresi itu Benar.

Pada contoh berikut, fungsi Switch menetapkan jenis kelamin yang sesuai dengan nama yang diteruskan ke fungsi:

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

Contoh:


Sub ExampleSwitch
Dim sGender As String
    sGender = GetGenderIndex( "John" )
    MsgBox sGender
End Sub
 
Function GetGenderIndex (sName As String) As String
    GetGenderIndex = Switch(sNama = "Jane", "female", sNama = "John", "male")
End Function

Choose Function

Select...Case Statement