| 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 |
原文：http://www.cnblogs.com/sinodragon21/p/4832510.html