為何連結抓不到?? - Excelㄧ般區 - 麻辣家族討論版版

[發問] 為何連結抓不到??

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

2^# 跳轉到 »

發表於 2012-10-29 12:10 | 只看該作者

回復 1# dakiu

A欄位為檔案名稱
B欄位自動設定檔案目錄(程式內定)
將 bmp 改成 pdf 即可

Sub 巨集2()
For kka = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
Cells(kka, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Users\user\Desktop\新增資料夾 (2)\" & Cells(kka, 1) & ".bmp", TextToDisplay:="C:\Users\user\Desktop\新增資料夾 (2)\" & Cells(kka, 1) & ".bmp"
Next
End Sub

複製代碼

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

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

  少看=只看不做也枉然

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。