Switch Function

វាយ​តម្លៃ​បញ្ជី​នៃ​អាគុយម៉ង់ រួម​មាន​កន្សោម​ដែល​បន្ត​ដោយ​តម្លៃ​មួយ​ ។ អនុគមន៍ Switch ត្រឡប់​តម្លៃ​មួយ​ដែល​ត្រូវ​បាន​ភ្ជាប់​ជាមួយ​កន្សោម ដែល​ត្រូវ​បាន​ហុច​ដោយ​អនុគមន៍​នេះ ។

Syntax:


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

Parameters:

អនុគមន៍ Switch វាយ​តម្លៃ​កន្សោម​ពី​ឆ្វេង​ទៅ​ស្តាំ ហើយ​បន្ទាប់​មក​ត្រឡប់​តម្លៃ​ដែល​ត្រូវ​បាន​ផ្តល់​ទៅ​កន្សោម​អនុគមន៍ ។ ប្រសិន​បើ​កន្សោម និង​តម្លៃ​មិន​ត្រូវ​បាន​ផ្តល់​ជា​គូ កំហុស​ពេល​រត់​មួយ​នឹង​កើត​ឡើង ។

Expression ៖ កន្សោម​ដែល​អ្នក​ចង់​វាយ​តម្លៃ ។

Value ៖ តម្លៃ​ដែល​អ្នក​ចង់​ត្រឡប់ ប្រសិន​បើ​កន្សោម​ពិត ។

ក្នុង​ឧទាហរណ៍​ដូច​ខាង​ក្រោម អនុគមន៍ Switch ផ្តល់​តម្លៃ​ភេទ​ដែល​សមរម្យ​ទៅ​ឈ្មោះ ដែល​ត្រូវ​បាន​ហុច​ទៅ​អនុគមន៍ ៖

Error codes:

5 ការ​ហៅ​បែបបទ​មិន​ត្រឹមត្រូវ

Example:


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