VBA实现多级的下拉菜单输入单元格

蓝桥玄霜 · 发表于 2013-3-4 15:38

建议上传表格附件来说明问题。

zhendizhang8212 · 发表于 2013-3-6 08:39

蓝桥玄霜发表于 2013-3-4 15:38
建议上传表格附件来说明问题。

问题：建立4级下拉菜单，输入时出现5项。蓝老师辛苦了！{:soso_e163:}

zhendizhang8212 · 发表于 2013-3-6 08:41

本帖最后由 zhendizhang8212 于 2013-3-6 08:44 编辑

蓝桥玄霜发表于 2013-3-4 15:38
建议上传表格附件来说明问题。

问题：建立4级下拉菜单，输入时出现5项。蓝老师辛苦了！{:soso_e163:}
再来一次附件

4级下拉出问题.rar (47.65 KB, 下载次数: 27)

蓝桥玄霜 · 发表于 2013-3-6 10:01

请见附件。

zhendizhang8212 · 发表于 2013-3-6 12:03

蓝桥玄霜发表于 2013-3-6 10:01
请见附件。

非常感谢！！下来仔细看看原因。

Ron2000 · 发表于 2015-1-7 14:06

首先非常感谢蓝桥版主，太有用了，本人实际应用中经常是3-4级，测试了一下24楼版主改的4级，好像有重复选项，版主的代码太高深，还望高手们帮忙指点一下，不知道问题出在什么地方？

Ron2000 · 发表于 2015-1-7 16:02

竟然蒙对了，修改成功！

                  For y = 0 To UBound(k3)
'                      k4 = D4(k(i) & k1(j) & k2(x) & k3(y)).Keys
'                      ReDim Preserve Pop2(y) As CommandBarPopup
'                      Set Pop2(y) = Pop1(x).Controls.Add(msoControlPopup, , , , True)
'                      Pop2(y).Caption = k3(y)
'                      For z = 0 To UBound(k4)
                        Set myBtn = Pop1(x).Controls.Add(msoControlButton)  'Set myBtn = Pop2(y).Controls.Add(msoControlButton)
                        With myBtn
                              .Caption = k3(y) '.Caption = k4(z)
                              .HelpFile = k(i) & "|" & k1(j) & "|" & k2(x) & "|" & k3(y)
                              .OnAction = "输入"
                              .FaceId = 70 + y '.FaceId = 70 + z
                        End With
'                      Next
                  Next

aa0077321 · 发表于 2015-1-7 17:03

版主很厉害啊，不断向版主学习~

		自动登录	找回密码
密码			免费注册

[求助] VBA实现多级的下拉菜单输入单元格

最新热点 /1