[算表] 下拉選單可以列出目前資料夾的所有檔案?
軟體:excel
版本:2007以上
我想做一個下拉選單
可以列出目前這個excel檔案同個資料夾下所有檔案
要用到的巨集流程不知道要麼弄比較好?
我目前想到用collection
Sub test()
Dim mfile As String
Dim tp$
Dim mydata As New Collection
tp = ThisWorkbook.Path & "\"
mfile = Dir(tp & "*.xls*")
Do While mfile <> ""
mydata.Add = mfile <-------------------這段不知道怎麼下
mfile = Dir()
Loop
End Sub
如果有成功加進去
然後要怎麼把mydata弄到資料驗證下?
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.77
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1495699901.A.D23.html
→
05/25 16:36, , 1F
05/25 16:36, 1F
→
05/25 16:37, , 2F
05/25 16:37, 2F
→
05/25 17:03, , 3F
05/25 17:03, 3F
→
05/25 17:03, , 4F
05/25 17:03, 4F
→
05/25 17:09, , 5F
05/25 17:09, 5F
→
05/25 17:53, , 6F
05/25 17:53, 6F
→
05/25 17:53, , 7F
05/25 17:53, 7F
→
05/25 17:57, , 8F
05/25 17:57, 8F
→
05/25 17:58, , 9F
05/25 17:58, 9F
→
05/25 17:58, , 10F
05/25 17:58, 10F
→
05/25 20:39, , 11F
05/25 20:39, 11F
想問一下如果想加入用dropdown的excel表單控制
ActiveSheet.DropDowns.Add(0.5, 85.5, 170.5, 17).Select
With Selection
.ListFillRange = "$E$1:$E$3" <----------這邊用上面設定的變數
似乎不行?
.LinkedCell = ""
.DropDownLines = 8
.Display3DShading = False
End With
End Sub
不知道若要用dropdown的控制方式 該怎麼設定比較好?
※ 編輯: ptguitar (42.73.49.127), 05/25/2017 22:26:38
→
05/25 23:45, , 12F
05/25 23:45, 12F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
