excel - 我正在尝试制作可切换选项卡，但在编译 vba 期间出现错误

Question

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

标签： excelvba