Elseif在Excel Makro（VBA）中不起作用

Question

我的Excel宏中有一个小问题。

问题描述：

我想创建一个宏，如果使用的是下拉菜单，则可以隐藏/取消隐藏特殊工作表。

下拉式菜单：

澳洲人

奥地利

德国

如果选择其中之一，例如德国->应该隐藏带有德国的工作表，而隐藏带有澳大利亚和奥地利的工作表。

我尝试使用ElseIf命令：

Sub Choose_Country()

If (c2 = "Germany") Then

Sheet8.Visible = True
Sheet9.Visible = False
Sheet10.Visible = False

ElseIf (C2 = Australia) Then

Sheet8.Visible = False
Sheet9.Visible = True
Sheet10.Visible = False

ElseIf (C2 = Austria) Then

Sheet8.Visible = False
Sheet9.Visible = False
Sheet10.Visible = True

End if 
End sub

错误是，每次看到德国表而其他都不可见时，我选择什么都没有关系。

任何想法我的错误是什么？

问候

Answer 1

我想您忘记了很多“”，就像@Raph所说的那样，选择外壳看起来更干净。

提示：始终使用Option Explicit，您会发现这一点！！！

提示2：您可以使用lcase（）比较不区分大小写的内容

Sub Choose_Country()
c2 = something I dare hope :D
select case c2
case "Germany"

Sheet8.Visible = True
Sheet9.Visible = False
Sheet10.Visible = False

case "Australia"

Sheet8.Visible = False
Sheet9.Visible = True
Sheet10.Visible = False

case "Austria"

Sheet8.Visible = False
Sheet9.Visible = False
Sheet10.Visible = True
case else
      msgbox "unknown country"
End select
End sub