消除多个Elseif语句

我试图保持我的代码清洁，特别是在用户forms中使用combobox可能会有很多，如果Elseif语句。 应该有一个更简单的方法，没有多页代码只有一个combobox在那里？

现在是如何完成的例子：

Sub Example() Dim Variable as String If Combobox1.Value = "Option1" Then Variable = "Name1" Elseif Combobox1.Value = "Option2" Then Variable = "Name2" Elseif Combobox1.Value = "Option3" Then Variable = "Name3" Elseif Combobox1.Value = "Option4" Then Variable = "Name4" Else Variable = "Name5" End if End Sub 

正如你可以想象，这可以成为一个20名的长码，想象有3-4下拉菜单的。 有没有任何（可接受/已知）的方法来简化这个？

Answer 1

我会用这样的东西：

 Sub Example() Dim arr, res Dim Variable as String arr = Array(Array("Option1", "Name1"), _ Array("Option2", "Name2"), _ Array("Option3", "Name3"), _ Array("Option4", "Name4")) res = Application.VLookup(Combobox1.Value, arr, 2, 0) If Not IsError(res) Then Variable = res Else Variable = "Name5" End If End Sub