Excel双击“单元格”后，自动跳转到相关“工作表

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

转载于:https://www.cnblogs.com/sinodragon21/p/4832510.html