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

複製代碼

ANGELA

請參考
Book2.zip (7.56 KB)

下載次數: 7

2012-10-29 15:19

dakiu

回復 12# ANGELA


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

ANGELA

回復 13# dakiu


    這是函數的致命傷，尤其是陣列函數。計算量大速度一定慢，改用VBA會比較快。

kuoliang123

資料量要用VBA，不然就是電腦硬體用好一點............

dakiu

回復 14# ANGELA


    謝版大指點:
如果可以，可否有個範例讓我研究再提出一些問題.....謝謝您了!

ANGELA

一千筆用函數應還可應付，除非電腦太舊。VBA可到VBA尃區提問。

dakiu

回復 17# ANGELA


    收到~感謝指點....謝謝您的回覆!:)

whirlwind963

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

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=檔案目錄+檔案名稱+檔案副檔名