用一个字典代替字典嵌套完成多级联动功能

blackttea1 · 发表于 2016-3-1 16:15

http://club.excelhome.net/thread-1261788-1-1.html
这是一个较好的四级下拉菜单的程序,我想改成第四级出现的不是固定的第四列的数据,要根据D列出现的名称来确定后面应出现的内容,也是说先要作一个判定,此程序能改下不?老师能改下?

yhch55 · 发表于 2016-3-21 00:02

真的太强了，学习

sxz · 发表于 2016-4-4 19:03

zhaogang1960 发表于 2013-11-30 04:10
三、左键三级菜单，新加一个附件《四级菜单显示最后两级到单元格》
字典嵌套代码如下：
Sub CreatMe() ' ...

我在用上面这个代码应用于日常的一个工作表，开始使用正常，后来添加了一些代码，再打开运行时出现了错误5：无效的过程调用或参数，不能再正常运行。

我在原来的基础上只是增加了2个模块，增加的代码如下：
Sub 导出2()
Dim OperationRegistry, Desktop_Path
Dim Sh As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set OperationRegistry = CreateObject("WScript.Shell")
Desktop_Path = OperationRegistry.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop")
Set Sh = ActiveSheet
With Workbooks.Add(xlWBATWorksheet) '添加新工作簿
      .Worksheets(1).Name = Sh.Name '工作表改名
      Sh.Range("A2:T42").copy .Worksheets(1).Range("A2") '复制单元格
      Sh.Range("Q1").copy .Worksheets(1).Range("A1")
   .SaveAs Desktop_Path & "\" & Replace(Sh.[Q1], ":", "："), xlWorkbookNormal  '修改这句
      .Close True  '关闭
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

请教会可能是什么地方出了问题，怎么修正？恳请指正！

blackttea1 · 发表于 2016-4-7 21:37

做一个记号,谢谢.

一指禅62 · 发表于 2016-4-8 10:26

http://club.excelhome.net/forum. ... p;extra=#pid8627317

cheef · 发表于 2016-4-16 21:54

谢谢分享，begin learning!! thank u ,Mr.Zhao.

casinosun · 发表于 2016-7-7 14:34

谢谢!真是太强大了。。。。。

haiba_ha · 发表于 2016-7-8 08:10

赵老师的作品我只能说：一个字“好”！

Aren-1983 · 发表于 2016-7-28 10:06

太强大了，赵老师的大作！

aizaishenqiu · 发表于 2016-8-1 21:32

版主辛苦！！！！

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

[原创] 用一个字典代替字典嵌套完成多级联动功能