作者ptguitar (佩蒂吉他)
看板Office
标题[算表] 下拉选单可以列出目前资料夹的所有档案?
时间Thu May 25 16:11:38 2017
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1495699901.A.D23.html
1F：→ soyoso: 想到的是於回圈内以字串连接，逗号分隔，回圈结束後，再将 05/25 16:36
2F：→ soyoso: 该字串，置於validation formula1 05/25 16:37
3F：→ ptguitar: 该字串需要定义吗?後面逗号那个大概知道 不过字串要怎麽 05/25 17:03
4F：→ ptguitar: 设定? 05/25 17:03
5F：→ soyoso: 变数=变数 & "," & mfile 方式 05/25 17:09
6F：→ soyoso: 另外测试以字串方式，formula1可接受字元个数为2007版本 05/25 17:53
7F：→ soyoso: 8203，2010和2016为8190 05/25 17:53
8F：→ soyoso: 如超过上述个数，则可考虑将档案写入储存格内，formula1以 05/25 17:57
9F：→ soyoso: 指定储存格位置字串的方式 05/25 17:58
10F：→ soyoso: 档名 05/25 17:58
11F：→ ptguitar: 感谢S大!!又多学一招 05/25 20:39
想问一下如果想加入用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
12F：→ soyoso: 可以additem方式加入mfile 05/25 23:45