返回列表 上一主題 發帖

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

蝕光迴狼
　暱稱: 蝕光迴狼

中學生Rank: 2

帖子
75 
主題
6 
精華
0 
積分
83 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2014-9-22 
最後登錄
2015-3-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-10-22 23:08 | 顯示全部帖子

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

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

程式要怎麼寫比較好?
　謝謝各位熱心大大的指教∼
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  3.     Dim fd As FileDialog    '宣告一個檔案對話框
  4.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)  '設定選取檔案功能

  6.     If Target(1).Column = 3 Then   '選取指定欄位
  7.         If fd.Show Then [C2] = fd.SelectedItems(1)   '選取的檔案路徑秀在哪個欄位
  8.     End If
  9.    
  10. End Sub
複製代碼

點指定儲存格即可開資料夾.rar (7.86 KB)

收藏 分享
我很笨,所以我很用心
　我學藝不精,但我渴求知識

蝕光迴狼
　暱稱: 蝕光迴狼

中學生Rank: 2

帖子
75 
主題
6 
精華
0 
積分
83 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2014-9-22 
最後登錄
2015-3-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2014-10-23 13:30 | 顯示全部帖子
回復 2# GBKEE


親愛的超級版主大大 GBKEE：

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

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

　　　1. 目前只要點到C欄(直)的任一欄位，都會跑下面這段程式，
　　　　　可否只指定點到【C2】欄位，才執行?
  1. If fd.Show Then Target(1) = fd.SelectedItems(1) '點選哪一個儲存格,檔案路徑秀就會秀在那個欄位
複製代碼

　　　　　
我很笨,所以我很用心
　我學藝不精,但我渴求知識

TOP

蝕光迴狼
　暱稱: 蝕光迴狼

中學生Rank: 2

帖子
75 
主題
6 
精華
0 
積分
83 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2014-9-22 
最後登錄
2015-3-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2014-10-23 13:46 | 顯示全部帖子
回復 4# GBKEE

完全符合我要的結果
(興奮．．．．大聲吶喊∼謝謝 GBKEE  版主大大)
我很笨,所以我很用心
　我學藝不精,但我渴求知識

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題