Board logo

標題: [發問] 為何連結抓不到?? [打印本頁]
作者: dakiu    時間: 2012-10-29 11:56     標題: 為何連結抓不到??

A欄是檔案名稱，B欄是連結路徑
A欄從1~100，資料夾內檔名也是1~100。例:檔名:21.PDF
A欄輸入21，則B欄自動更新路徑點下去可開啟21.PDF的檔案........

但是..我不會寫.....(下面是錯誤的打不開)........麻煩各位指點.......

=HYPERLINK("\\ABserver\共用\指示\U",A1&".PDF")
作者: mark15jill    時間: 2012-10-29 12:10

回復 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
複製代碼
作者: dakiu    時間: 2012-10-29 12:36

回復 2# mark15jill


受教了...感謝您....但不知是否有不用VB的方式...
作者: dakiu    時間: 2012-10-29 13:06

回復 3# dakiu


    =HYPERLINK("\\ABserver\共用\指示\U\"&A1&".PDF")

終於不用VB測試OK!!

但是如何在C欄使用判斷式,如果無法開啟檔案則顯示為異常(IF用不出來)
，不知哪位大大可解惑....感謝!
作者: mark15jill    時間: 2012-10-29 13:10

回復 3# dakiu


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


你試著把你原本的程式碼
=HYPERLINK("\\ABserver\共用\指示\U",A1&".PDF")
改成
=HYPERLINK("\\ABserver\共用\指示\U"& A1&".PDF") 試看看
作者: kuoliang123    時間: 2012-10-29 13:19

=HYPERLINK("\\ABserver\共用\指示\U"&A1&".PDF")
作者: mark15jill    時間: 2012-10-29 13:20

回復 4# dakiu


    判斷? 要判斷什麼.. ?
作者: dakiu    時間: 2012-10-29 13:35

回復 7# mark15jill


   就是
         A                         B                                                                                                                 C
檔案名稱              =HYPERLINK("\\ABserver\共用\指示\U\"&A1&".PDF"                 如果B欄無法開啟檔案則顯示"查無此檔"，使用IF寫不出來???:'(
作者: mark15jill    時間: 2012-10-29 13:50

回復 8# dakiu


    請先自己練習看看...
或者 您試驗完後 再把問題點提出來..
作者: dakiu    時間: 2012-10-29 14:14

回復 9# mark15jill


    [attach]12933[/attach]

如附件!請大大指點..謝謝!
作者: mark15jill    時間: 2012-10-29 14:49

回復 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
複製代碼
作者: ANGELA    時間: 2012-10-29 15:20

請參考
[attach]12935[/attach]
作者: dakiu    時間: 2012-10-29 16:03

回復 12# ANGELA


    版大:
謝謝指點，經測試OK。
但是資料多達1千筆，這樣拉下去找資料時會頓掉...很慢....如果可以是否還有其他方式???先謝謝了...
作者: ANGELA    時間: 2012-10-29 16:29

回復 13# dakiu


    這是函數的致命傷，尤其是陣列函數。計算量大速度一定慢，改用VBA會比較快。
作者: kuoliang123    時間: 2012-10-29 18:52

資料量要用VBA，不然就是電腦硬體用好一點............
作者: dakiu    時間: 2012-10-30 07:55

回復 14# ANGELA


    謝版大指點:
如果可以，可否有個範例讓我研究再提出一些問題.....謝謝您了!
作者: ANGELA    時間: 2012-10-30 09:32

一千筆用函數應還可應付，除非電腦太舊。VBA可到VBA尃區提問。
作者: dakiu    時間: 2012-10-30 09:42

回復 17# ANGELA


    收到~感謝指點....謝謝您的回覆!:)
作者: whirlwind963    時間: 2012-11-2 10:34

回復 2# mark15jill
請問TextToDisplay:="C:\Users\user\Desktop\新增資料夾 (2)\" & Cells(kka, 1) & ".bmp"
如果改能TextToDisplay:= Cells(kka, 1) 會出錯
請問有辦法將顯示出來的文字只顯示檔名嗎
作者: mark15jill    時間: 2012-11-2 11:19

回復 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=檔案目錄+檔案名稱+檔案副檔名
作者: budinlong    時間: 2012-11-20 22:52

是不是少了一個&符號跟倒斜線，多了一個,？
=HYPERLINK("\\ABserver\共用\指示\U",A1&".PDF")
改成=HYPERLINK("\\ABserver\共用\指示\U\"&A1&".PDF")



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)