如何在"IF 语句"中调用 VBA 中的多个 Sheet.Names？

Question

在下面的代码中，每次我点击工作表"封面"；它隐藏功能区并放大到一组特定的单元格中。我想保留此代码，但也要隐藏另一个名为"的工作表的功能区；主页"；。我试图在IF语句中做一个Or语句，但这不起作用。任何帮助都会很棒D

If ActiveSheet.Name = "Cover" Then
'Application.CommandBars.ExecuteMso "HideRibbon"
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'code to hide ribbon.
Range("C4:S51").Select
ActiveWindow.Zoom = True
Range("a5").Select
Application.DisplayFormulaBar = False
Else
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 'code to show ribbon.
End If
End Sub
Private Sub Workbook_Deactivate()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 'code to show ribbon.
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Cover" Then
'Application.CommandBars.ExecuteMso "HideRibbon"
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'code to hide ribbon.
Range("C4:S51").Select
ActiveWindow.Zoom = True
Range("a5").Select
Application.DisplayFormulaBar = False
Else
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 'code to show ribbon.
End If
End Sub```

Answer 1

使用Select Case(这是一种更干净的方法，使其可读性更强(

Select Case ActiveSheet.Name 
Case "Cover", "Homepage", "Cover3"
' do the same thing for all 3 of these
Case "AnotherName"
' do something
Case Else
' do something else
MsgBox "This sheet name is wrong!"
End Select