uj5u.com熱心網友回復:
錄個宏,你就看到是怎么做的了。或者用cell.formula = "=Hyperlink(....
uj5u.com熱心網友回復:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
If Target <> "" Then
Worksheets(Target.Value).Activate
End If
End If
On Error GoTo 0
End Sub
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/102517.html
標籤:VBA
上一篇:請教如何獲得某網站的URL和引數
下一篇:WMI查找C盤檔案不完全
