Question

EXCEL 怎么设置一个按钮控件，每点击一次，下拉菜单就会一次下选？

如图所示：

备注，这个按钮控件已经定义了其他事件，需再不冲突的前提下实现。
已有代码如下
---------------------------------------------
Sub 按钮()Dim fso, f1 Dim s As String Dim FullName As String, rng As RangeSet fso = CreateObject("scripting.filesystemobject") If (fso.folderexists("" & Cells(36, 4) & ":\" & Cells(37, 12) & "")) Then '判断是否存在以“L37”格为工点名称的文件夹存在，如果存在则生成柱状图 '----------------开始------------------ Application.ScreenUpdating = False
FullName = "" & Cells(36, 4) & ":\" & Cells(37, 12) & "\" & Cells(31, 1) & ".JCD" 'A31格数据为JCD文件名
Open FullName For Output As #1 '以读写方式打开文件，每次写内容都会覆盖原先的内容
'参考帮助，fullname为文件全名
For Each rng In Range("a1").CurrentRegion
s = s & rng.Value
If rng.Column = Range("a1").CurrentRegion.Columns.Count Then
Print #1, s '把数据写到文本文件里
s = ""
End If
Next
Close #1 '关闭文件
Application.ScreenUpdating = True
MsgBox "“" & Cells(31, 1) & "”柱状图已经保存至" & Cells(36, 4) & ":\“" & Cells(37, 12) & "”文件夹中！"
'---------------结束----------------- Else '如果不存在以“L37”格为工点名称的文件夹存在则建立该文件夹 Set f1 = fso.createfolder("" & Cells(36, 4) & ":\" & Cells(37, 12) & "\") '创建文件夹 '---------------生成柱状图开始------------------- Application.ScreenUpdating = False
FullName = "" & Cells(36, 4) & ":\" & Cells(37, 12) & "\" & Cells(31, 1) & ".JCD" 'A31 格数据为JCD文件名
Open FullName For Output As #1 '以读写方式打开文件，每次写内容都会覆盖原先的内容
'fullname为文件全名
For Each rng In Range("a1").CurrentRegion
s = s & rng.Value
If rng.Column = Range("a1").CurrentRegion.Columns.Count Then
Print #1, s '把数据写到文本文件里
s = ""
End If
Next
Close #1 '关闭文件
Application.ScreenUpdating = True
MsgBox "“" & Cells(31, 1) & "”柱状图已经保存至" & Cells(36, 4) & ":\“" & Cells(37, 12) & "”文件夹中！"
'---------------生成柱状图开始结束------------------------
End IfEnd Sub

Answer 1

你所谓的下拉菜单是组合框吗，如果是的话，可以在Sub 按钮()中加入 Combo1.ListIndex = Combo1.ListIndex + 1

追问

改为组合框了~但不会自动递增！何故？

Answer 2

同意楼上说法