syuan

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-11-8 23:57 | 顯示全部帖子

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

本帖最後由 syuan 於 2011-11-9 00:00 編輯

版本：EXCEL 2003

各位先進

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

(以上為示意的樣子）

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

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

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

樓主熱帖

錢是很寂莫的，所以會想辦法聚在一起！

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

2^#

發表於 2011-11-9 22:06 | 顯示全部帖子

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

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

感謝downling大的回覆

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

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

錢是很寂莫的，所以會想辦法聚在一起！

TOP

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

3^#

發表於 2011-11-11 22:19 | 顯示全部帖子

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

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

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

錢是很寂莫的，所以會想辦法聚在一起！

TOP

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

4^#

發表於 2012-2-6 23:06 | 顯示全部帖子

回復 syuan
TRY IT

原始碼

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

感謝mark大～～

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

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

真的謝謝您～～

錢是很寂莫的，所以會想辦法聚在一起！

TOP

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

5^#

發表於 2012-11-6 10:05 | 顯示全部帖子

回復 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

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

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

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

錢是很寂莫的，所以會想辦法聚在一起！

TOP

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

6^#

發表於 2012-11-6 12:11 | 顯示全部帖子

回復 10# mark15jill

感謝mark15jill大的回覆

小弟的路徑裡確實少了一個反斜線，但小弟加了之後再run時，超連結的路徑依然沒改過來！

現在的語法如下：
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
Next A

明明路徑是"C:\11\"，但滑鼠游標指到儲存格而秀出的小提示卻是c:\temp\....... (小弟將這個excel檔移至c:\temp內）

好奇怪，不知哪裡出了問題？

還望各位先進不吝指導，謝謝。

錢是很寂莫的，所以會想辦法聚在一起！

TOP

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

7^#

發表於 2012-11-6 17:07 | 顯示全部帖子

回復 12# mark15jill

你檔案在 temp 還是 11底下..

回覆mark15jill大，

小弟想要被連結的檔案放在C:\11底下，而excel檔則是放在C:\temp底下

因為小弟想測試如果EXCEL檔放置在別目錄下時，那超連結是否仍然可以連結到檔案。

但目前以小弟寫的那一段語法看來，路徑並沒辦法改過來。

錢是很寂莫的，所以會想辦法聚在一起！

TOP

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

8^#

發表於 2012-11-6 22:25 | 顯示全部帖子

本帖最後由 syuan 於 2012-11-6 22:26 編輯

回復 15# mark15jill

感謝mark15jill大的回覆

小弟不死心又再試了一下這段語法，結果發現該段語法仍無法導正路徑。

明明語法寫著B="C:\11:\"，但將EXCEL檔搬至別的目錄下後，在EXCEL裡並將滑鼠指到儲存格上的超連結字串所秀出的小提示，
卻秀出C:\JIS1111-1999.PDF的提示，也就是說語法裡的B="C:\11\"是無效的。
今天一整天都在試這段語法，已經想不出到底是哪裡出問題.....

小弟附上這段語法的EXCEL檔，望各位先進不吝教導。
謝謝各位

檔案如下：

Book1.rar (11.9 KB)

錢是很寂莫的，所以會想辦法聚在一起！

TOP

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

9^#

發表於 2012-11-7 23:43 | 顯示全部帖子

回復 17# Hsieh

感謝Hsieh大

小弟試了您的這段語法，發現儲存格會變成一整串的路徑加檔名。

只是小弟想要的是儲存格字串不變，而超連結到語法裡所指的目錄下，

如excel裡儲存格的字為JISXXXX-1999.PDF，而超連結後，儲存格的字串仍然沒變。

而使用者點擊儲存格後，即能開啟PDF檔。

請問小弟的那段語法裡，該修改為什麼呢？

以上，謝謝。

錢是很寂莫的，所以會想辦法聚在一起！

TOP

syuan

中學生 Rank: 2

帖子: 50
主題: 12
精華: 0
積分: 143
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: EARTH
註冊時間: 2010-5-24
最後登錄: 2015-5-12

10^#

發表於 2012-12-4 00:29 | 顯示全部帖子

回復 19# Hsieh

回HSIEH大

小弟有加了這句語法"A.Hyperlinks.Add anchor:=A, Address:=B & A, TextToDisplay:=A＂
發現還是無法讓VBA去連結路徑，路徑C:\11\依然被程式忽略過去。

小弟的程式碼如下：

Dim A As Range
Dim B
Dim C

Worksheets("sheet1").Activate
For Each A In Worksheets("sheet1").UsedRange
If InStr(A.Value, "JIS ") > 0 And A.Value <> "" Then
B = "C:\11\"
A.Hyperlinks.Add anchor:=A, Address:=B & A, TextToDisplay:=A
End If
Next A

而如果將這句裡的 If InStr(A.Value, "JIS ") > 0 And A.Value ＝ "" Then改為 If InStr(A.Value, "JIS ") > 0 And A.Value ＜＞ "" Then

那麼執行後，就會出現一個對話框，寫著＂執行階段錯誤'5'：　程序呼叫或引數不正確＂

而這句 If InStr(A.Value, "JIS ") > 0 And A.Value ＜＞ "" Then就會被程式反黃起來。

小弟目前已經卡關了，已經不知道該怎麼除錯。

還望各位大德協助一下，指點一下小弟看看是哪裡出問題。

感謝各位。

錢是很寂莫的，所以會想辦法聚在一起！

TOP