Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 2 Then For Each sht In Sheets If sht.Name <> Target.Value Then n = n + 1 Next sht If n = Sheets.Count Then MsgBox "您选择的工作表不存在": Exit Sub Sheets(Target.Value).Select End If End Sub |
时间: 2024-08-29 16:09:17