excel - 对象_worksheet的爸爸代码方法范围失败

Question

我的代码支持单击它时移动选项卡，但我不断收到对象_worksheet的方法范围失败错误，有什么解决方法吗？

如果您需要更多信息，请告诉我

Sub switchhorizontaltabs()
Dim SelCol As Long
Dim FirstRow As Long
With Sheet11
SelCol = .Range("B2").Value
.Range("5:396").EntireRow.Hidden = True
FirstRow = 5 + ((SelCol - 5) * 50)
.Range(FirstRow & ":" & FirstRow + 49).EntireRow.Hidden = False
End With
End Sub 

Sub weeklytabs2()
Dim SelCol As Long
Dim FirstRow As Long
With Sheet11
SelCol = .Range("B3").Value
.Range("4:403").EntireRow.Hidden = True
.Range("404:404").EntireRow.Hidden = False
.Range("405:454").EntireRow.Hidden = False
End With
End Sub

Sub switchhorizontaltabs2()
Dim SelCol As Long
Dim FirstRow As Long
With Sheet11
SelCol = .Range("B4").Value
.Range("405:780").EntireRow.Hidden = True
FirstRow = 405 + ((SelCol - 405) * 50)
**.Range(FirstRow & ":" & FirstRow + 49).EntireRow.Hidden = False**
End With
End Sub

Sub Weeklytabs1()
Dim SelCol As Long
Dim FirstRow As Long
With Sheet11
SelCol = .Range("B3").Value
.Range("4:396").EntireRow.Hidden = False
.Range("404:780").EntireRow.Hidden = True
End With
End Sub

`Firstrow 的值是 -19595 而不是 405

错误是底部的代码.Range(FirstRow & ":" & FirstRow + 49).EntireRow.Hidden = False

标签： excelmacos