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裡儲存格的主檔名來與檔案進行超連結呢？

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

樓主熱帖

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

21^#

發表於 2012-12-4 08:30 | 只看該作者

回復 20# syuan
沒有錯誤啊!

Sub Ex()
Dim A As Range
With Worksheets("Sheet1")
.[b5] = "JIS" '測試用
For Each A In .UsedRange
If InStr(A.Value, "JIS") > 0 And A.Value <> "" Then
'If InStr(A.Value, "JIS ") > 0 And A.Value <> "" Then '這是你的程式碼
MsgBox A.Address
End If
Next
End With
End Sub

複製代碼

TOP

syuan

中學生 Rank: 2

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

20^#

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 109
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-11

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

19^#

發表於 2012-11-8 12:09 | 只看該作者

回復 18# syuan

A.Hyperlinks.Add anchor:=A, Address:=B & A, TextToDisplay:= A

學海無涯_不恥下問

TOP

syuan

中學生 Rank: 2

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

18^#

發表於 2012-11-7 23:43 | 只看該作者

回復 17# Hsieh

感謝Hsieh大

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

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

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

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

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

以上，謝謝。

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 109
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-11

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

17^#

發表於 2012-11-6 22:46 | 只看該作者

回復 16# syuan
若B的字串目錄存在則，C = Dir(B & A)將會傳回與A相同字串否則傳回空字串

Sub test()
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
End If
Next A
End Sub

複製代碼

學海無涯_不恥下問

TOP

syuan

中學生 Rank: 2

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

16^#

發表於 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

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

15^#

發表於 2012-11-6 17:13 | 只看該作者

本帖最後由 mark15jill 於 2012-11-6 17:15 編輯

回復 mark15jill

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

回覆mark15jill大，

小弟想要被連結的檔案 ...
syuan 發表於 2012-11-6 17:07

Excel 檔案 (來源) 和被連結檔案(目的)
不用放在一起也可以
只要路徑改掉即可..

原始設定
PDF檔案在 C:\11\
Excel檔案在 C:\temp

基本上除非程式碼有將PDF 和 Excel 歸類同資料夾底下
不然的話 Excel檔案所在不用理會 ( 路徑指向須正確)
若 PDF 檔案原本從 C:\11\ 改成 C:\99\
只須將指向C:\11\ 改成 C:\99\

就好比
小學生上學
學校是固定地點
但小學生可能因搬家而導致地址不同

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

syuan

中學生 Rank: 2

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

14^#

發表於 2012-11-6 17:07 | 只看該作者

回復 12# mark15jill

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

回覆mark15jill大，

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

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

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

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

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

13^#

發表於 2012-11-6 15:10 | 只看該作者

本帖最後由 mark15jill 於 2012-11-6 15:13 編輯

以下程式分兩部份
1.列出 c:\11\ 副檔名為 " .tif "的檔案
2.依照所列出名稱 +以連結

Private Sub CommandButton1_Click()
With 工作表1
u = 1
k = 1
'此區域列表
Dim mFile As String
mFile = Dir("C:\11\*.tif")
Do While mFile <> ""
Cells(u, 1) = mFile
mFile = Dir()
u = u + 1
'此區域超連結
With Worksheets(1)
.Hyperlinks.Add .Cells(k, 1), "c:\11\" & Cells(k, 1)
End With
k = k + 1
Loop
End With
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP