[發問] 點指定儲存格，即可打開指定資料夾

蝕光迴狼

請問各位高手大大：
　　我想點指定【儲存格】就可以彈出視窗,並在做完路徑資料夾確認完後，
　　同樣欄位【儲存格】顯示選取後的路徑。

程式要怎麼寫比較好?
　謝謝各位熱心大大的指教～

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. 
   
3.     Dim fd As FileDialog    '宣告一個檔案對話框
   
4.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)  '設定選取檔案功能
   
5. 
   
6.     If Target(1).Column = 3 Then   '選取指定欄位
   
7.         If fd.Show Then [C2] = fd.SelectedItems(1)   '選取的檔案路徑秀在哪個欄位
   
8.     End If
   
9.    
   
10. End Sub

複製代碼

GBKEE

回復 1# 蝕光迴狼
   

同樣欄位【儲存格】顯示選取後的路徑。

是這樣嗎?

1.   If fd.Show Then Target(1) = fd.SelectedItems(1)   '選取的檔案路徑秀在哪個欄位

複製代碼

蝕光迴狼

回復 2# GBKEE


親愛的超級版主大大 GBKEE：

　　　真的再次對你的景仰有如黃河滔滔不絕，非常感謝超級版主大大的幫助。

　　　另有一問題可否出手相救？

　　　1. 目前只要點到C欄(直)的任一欄位，都會跑下面這段程式，
　　　　　可否只指定點到【C2】欄位，才執行?

1. If fd.Show Then Target(1) = fd.SelectedItems(1) '點選哪一個儲存格,檔案路徑秀就會秀在那個欄位

複製代碼

　　　　　

GBKEE

回復 3# 蝕光迴狼

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim fd As FileDialog    '宣告一個檔案對話框
   
4.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)  '設定選取檔案功能
   
5.     With Target(1)
   
6.         If .Address(0, 0) = "C2" Then If fd.Show Then .Cells = fd.SelectedItems(1) '選取的檔案路徑秀在哪個欄位
   
7.         'If .Address = "$C$2"  '.Address傳回大寫的英文字母
   
8.     End With
   
9. End Sub

複製代碼

蝕光迴狼

回復 4# GBKEE

完全符合我要的結果
(興奮．．．．大聲吶喊～謝謝 GBKEE  版主大大)