返回列表 上一主題 發帖

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

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 »
發表於 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

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2012-11-6 11:37 | 顯示全部帖子
回復 9# syuan


    B = "C:\11\"

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

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

  少看=只看不做也枉然

TOP

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
3#
發表於 2012-11-6 14:39 | 顯示全部帖子
回復  mark15jill


    感謝mark15jill大的回覆

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



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


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

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

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

  少看=只看不做也枉然

TOP

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

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
4#
發表於 2012-11-6 15:10 | 顯示全部帖子
本帖最後由 mark15jill 於 2012-11-6 15:13 編輯

以下程式分兩部份
1.列出 c:\11\ 副檔名為 " .tif  "的檔案
2.依照所列出名稱  +以連結
  1. Private Sub CommandButton1_Click()
  2.     With 工作表1
  3.     u = 1
  4.     k = 1
  5. '此區域列表
  6.             Dim mFile As String
  7.             mFile = Dir("C:\11\*.tif")
  8.             Do While mFile <> ""
  9.                
  10.                 Cells(u, 1) = mFile
  11.                 mFile = Dir()
  12.                 u = u + 1
  13.                
  14. '此區域超連結
  15.                 With Worksheets(1)
  16.                     .Hyperlinks.Add .Cells(k, 1), "c:\11\" & Cells(k, 1)
  17.                 End With
  18.                 k = k + 1
  19.             Loop
  20.             
  21.     End With
  22. End Sub
複製代碼

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

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

  少看=只看不做也枉然

TOP

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

高中生Rank: 3Rank: 3

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

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表 上一主題