返回列表 上一主題 發帖

[發問] 批量超連結

jonlylovek

帖子
11 
主題
5 
精華
0 
積分
15 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-11-20 
最後登錄
2015-2-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-10 17:42 | 顯示全部帖子

[發問] 批量超連結

因為工作需要，請問一下各位，若是我要執行批量超連結，像是選取拖曳excel的超連結部分可以批量一次開啟，這部分該怎麼寫比較好。
我有上網爬了一下，但因為這部分實在是小弟無法去參透，還需要各位幫忙協助，感謝。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
For Each Rg In Target
  If Rg.Hyperlinks.Count > 0 Then
    Rg.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
  End If
Next Rg
End Sub
收藏 分享
80 字節以內
不支持自定義 Discuz! 代碼

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題