如何大量連結sheet裡的儲存格

syuan

版本：EXCEL 2003

各位先進

小弟在EXCEL的SHEET裡，已經有先列出了檔案的主檔名， 想要用超連結的方式來連結檔案與儲存格，如下圖

下載 (157.9 KB)

2011-11-9 00:00

(以上為示意的樣子）


但SHEET裡的主檔名太多（近一萬多筆，而且有好幾個sheet），一個一個去連結實在太花時間，

故而想請問各位先進，要如何一次搜尋sheet裡儲存格的主檔名來與檔案進行超連結呢？

以上，感謝各位先進～祝立冬愉快～～

downling

假設你的檔名叫"N00-0000-2004螺絲.pdf"

可以試一下

1. f2=HYPERLINK("檔案所在資料夾名稱\"&B2&C2&".pdf","B2"&"c2")

複製代碼

syuan

假設你的檔名叫"N00-0000-2004螺絲.pdf"

可以試一下
downling 發表於 2011-11-9 10:57

    感謝downling大的回覆

小弟試了一下，結果出現＂變數未定義＂的訊息！

而且Hyperlink的字串被系統給圈選了起來，不知道是哪出了問題！{:2_28:}

Hsieh

回復 3# syuan
樓上是教你使用函數做超連結，必須在儲存格內輸入公式

要使用VBA可依下列方式加入超連結
Sub nn()
Dim A As Range
For Each A In 檔案名稱的儲存格範圍(檔案名稱必須包含副檔名)
   A.Hyperlinks.Add A, "E:\檔案目錄\" & A
Next
End Sub

syuan

回復  syuan
樓上是教你使用函數做超連結，必須在儲存格內輸入公式

要使用VBA可依下列方式加入超連結
...
Hsieh 發表於 2011-11-9 22:26

    感謝hsieh大的回覆～
小弟沒注意到那是函數的用法，結果一直在那鑽牛角尖，真是不好意思了～～

mark15jill

回復 1# syuan
TRY IT


TEST.rar (104.8 KB)

下載次數: 23

2011-11-16 11:13

原始碼

Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: Ctrl+Shift+Y
'

For XX = 1 To 65535
    If Range("A" & XX).Value <> "" Then
   
        RQ = Range("A" & XX).Value & Range("B" & XX).Value
        Range("C" & XX).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=RQ & ".xlsx", _
            TextToDisplay:=RQ
    End If
Next XX
End Sub

syuan

回復  syuan
TRY IT






原始碼

Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: Ctrl+Shift ...
mark15jill 發表於 2011-11-16 11:13

感謝mark大～～

實在很抱歉，到現在才回覆！

目前小弟正在試著悟這段程式，待有問題再來請問您！

真的謝謝您～～

PJChen

回復 6# mark15jill
真是好用的連結,又上了寶貴的一課!

syuan

回復 4# Hsieh
    Hsieh您好

小弟依您所po的語法測試後，的確能連結並開啟所點選的檔案。

不過小弟將這個excel檔移到別處並加入修改後的路徑時，它就無法開啟所連結的檔案了。

也就是說這段語法似乎只能將excel檔與連結的檔放在同目錄下。

小弟寫的語法如下，請參考。


Dim A as range
Dim B
Dim C

Worksheets("sheet1").Activate
For Each A In Worksheets("sheet1").UsedRange
If InStr(A, "JIS ") And A.Value = "" Then
   B = "C:\11"
   C = Dir(B, ".PDF")
   A.Hyperlinks.Add A, C & A
   End If

不過小弟發現如果將...... and A.value="" Then改為......and A.value <>""Then 時

那麼儲存格的字串會變成一大串的路徑，例如：C:\11\aa.pdf

但這時點它時，卻是可以開啟超連結的檔案.........=="

小弟一直百思不解，不知到底是哪裡出問題。

還望各位先進不吝指教，以上～謝謝。

mark15jill

回復 9# syuan


    B = "C:\11\"