请问以下代码是什么意思？
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)OnErrorResumeNextWithActiveCel...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With ActiveCell
If .Column = 2 And .Row > 2 And .Row < 30 Then
Sheets(.Value).Visible = True
Sheets(.Value).Select
End If
End With
End Sub
Private Sub Worksheet_Activate()
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = False
Next
End Sub 展开
On Error Resume Next
With ActiveCell
If .Column = 2 And .Row > 2 And .Row < 30 Then
Sheets(.Value).Visible = True
Sheets(.Value).Select
End If
End With
End Sub
Private Sub Worksheet_Activate()
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = False
Next
End Sub 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
