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

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

12^# 跳轉到 »

發表於 2012-11-6 14:39 | 只看該作者

回復 mark15jill

感謝mark15jill大的回覆

小弟的路徑裡確實少了一個反斜線，但小弟加了之後再 ...
syuan 發表於 2012-11-6 12:11

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

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

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

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

  少看=只看不做也枉然

TOP

syuan

中學生 Rank: 2

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

11^#

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

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

10^#

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

回復 9# syuan

B = "C:\11\"

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

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

  少看=只看不做也枉然

TOP

syuan

中學生 Rank: 2

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

9^#

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

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2012-2-7 10:55 | 只看該作者

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

TOP

syuan

中學生 Rank: 2

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

7^#

發表於 2012-2-6 23:06 | 只看該作者

回復 syuan
TRY IT

原始碼

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

感謝mark大～～

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

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

真的謝謝您～～

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

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

6^#

發表於 2011-11-16 11:13 | 只看該作者

本帖最後由 mark15jill 於 2011-11-16 12:00 編輯

回復 1# syuan
TRY IT

TEST.rar (104.8 KB)

原始碼

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

TOP

syuan

中學生 Rank: 2

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

5^#

發表於 2011-11-11 22:19 | 只看該作者

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

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

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

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2011-11-9 22:26 | 只看該作者

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

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

學海無涯_不恥下問

TOP

syuan

中學生 Rank: 2

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

3^#

發表於 2011-11-9 22:06 | 只看該作者

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

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

感謝downling大的回覆

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

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

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

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]