mark15jill

回復 1# dakiu


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

1. Sub 巨集2()
   
2. For kka = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
   
3.     Cells(kka, 2).Select
   
4.     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"
   
5. Next
   
6. End Sub

複製代碼

mark15jill

回復 3# dakiu


    =HYPERLINK("C:\Users\user\Desktop\新增資料夾 (2)\"&A1&".bmp")


你試著把你原本的程式碼
=HYPERLINK("\\ABserver\共用\指示\U",A1&".PDF")
改成
=HYPERLINK("\\ABserver\共用\指示\U"& A1&".PDF") 試看看

mark15jill

回復 4# dakiu


    判斷? 要判斷什麼.. ?

mark15jill

回復 8# dakiu


    請先自己練習看看...
或者 您試驗完後 再把問題點提出來..

mark15jill

回復 10# dakiu

若要簡單點的話

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     For jj = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
   
3.         u1 = Cells(jj, 1)  '001 002 003  之類
   
4.         u2 = Cells(jj, 2) & "\" ' "目錄 + \"
   
5.         u3 = Cells(jj, 3)  '副檔名
   
6.         If Dir(u2 & u1 & u3) <> "" Then Cells(jj, 17) = "有檔案" Else Cells(jj, 17) = "無檔案"
   
7.         
   
8.     Next
   
9. End Sub

複製代碼

mark15jill

回復 19# whirlwind963


        ActiveCell.FormulaR1C1 = "Sheet2"
    Range("B1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Sheet2!A1", TextToDisplay:="Sheet2"


    Range("C1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "XXXXXXXXXXXXXXXXXXXX", TextToDisplay:="test.txt"

XXXXXXXXXXXXXXXXXXXX=檔案目錄+檔案名稱+檔案副檔名