我试图使切换选项卡，但在编译vba我得到错误 请格式化您的代码并告诉我们您遇到的错误类型。请尝试在Excel VBA中使用msoTrue，msoFalse，msoCFalse不是有效的常量 Option Explicit Sub TabPer() Wit

我试图使切换选项卡，但在编译vba我得到错误

---

请格式化您的代码并告诉我们您遇到的错误类型。请尝试在Excel VBA中使用

msoTrue

，

msoFalse

，

msoCFalse

不是有效的常量

Option Explicit

Sub TabPer()
With Sheet3
.Shapes("PerOn").Visible = msoCTrue
.Shapes("PerOff").Visible = msoFalse

.Shapes("BusOn").Visible = msoCFalse
.Shapes("BusOff").Visible = msoCTrue

.Range("A:M").EntireColumn.Hidden = False
.Range("N:Z").EntireColumn.Hidden = True


End With
End Sub

Sub TabBus()
With Sheet3
.Shapes("PerOn").Visible = msoCFalse
.Shapes("PerOff").Visible = msoTrue

.Shapes("BusOn").Visible = msoCTrue
.Shapes("BusOff").Visible = msoCFalse

.Range("A:M").EntireColumn.Hidden = True
.Range("N:Z").EntireColumn.Hidden = False

End With
End Sub