標題:
[發問]
點指定儲存格，即可打開指定資料夾
[打印本頁]
作者:
蝕光迴狼
時間:
2014-10-22 23:08
標題:
點指定儲存格，即可打開指定資料夾
請問各位高手大大：
我想點指定【儲存格】就可以彈出視窗,並在做完路徑資料夾確認完後，
同樣欄位【儲存格】顯示選取後的路徑。
程式要怎麼寫比較好?
謝謝各位熱心大大的指教∼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim fd As FileDialog '宣告一個檔案對話框
Set fd = Application.FileDialog(msoFileDialogFolderPicker) '設定選取檔案功能
If Target(1).Column = 3 Then '選取指定欄位
If fd.Show Then [C2] = fd.SelectedItems(1) '選取的檔案路徑秀在哪個欄位
End If
End Sub
複製代碼
作者:
GBKEE
時間:
2014-10-23 05:30
回復
1#
蝕光迴狼
同樣欄位【儲存格】顯示選取後的路徑。
是這樣嗎?
If fd.Show Then Target(1) = fd.SelectedItems(1) '選取的檔案路徑秀在哪個欄位
複製代碼
作者:
蝕光迴狼
時間:
2014-10-23 13:30
回復
2#
GBKEE
親愛的超級版主大大 GBKEE：
真的再次對你的景仰有如黃河滔滔不絕，非常感謝超級版主大大的幫助。
另有一問題可否出手相救？
1. 目前只要點到C欄(直)的任一欄位，都會跑下面這段程式，
可否只指定點到【C2】欄位，才執行?
If fd.Show Then Target(1) = fd.SelectedItems(1) '點選哪一個儲存格,檔案路徑秀就會秀在那個欄位
複製代碼
作者:
GBKEE
時間:
2014-10-23 13:36
回復
3#
蝕光迴狼
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim fd As FileDialog '宣告一個檔案對話框
Set fd = Application.FileDialog(msoFileDialogFolderPicker) '設定選取檔案功能
With Target(1)
If .Address(0, 0) = "C2" Then If fd.Show Then .Cells = fd.SelectedItems(1) '選取的檔案路徑秀在哪個欄位
'If .Address = "$C$2" '.Address傳回大寫的英文字母
End With
End Sub
複製代碼
作者:
蝕光迴狼
時間:
2014-10-23 13:46
回復
4#
GBKEE
完全符合我要的結果
(興奮．．．．大聲吶喊∼謝謝 GBKEE 版主大大)
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
