Excel完美工具箱(更新到9.7.1版,兼容07,10,13,16)多功能插件

xiaojun0301

      老师，昨晚我发了个帖子，没人会这个，你帮我看下能否实现，亲
http://club.excelhome.net/thread-904703-1-2.html

佛山小老鼠

xiaojun0301 发表于 2012-8-11 05:05
老师，昨晚我发了个帖子，没人会这个，你帮我看下能否实现，亲
http://club.excelhome.net/thread-9 ...

看了，你用这个试试
Sub test()
    For i = 1 To 3
    Application.CommandBars("你的自定义菜单名字").Controls(i).Delete
    Next i
End Sub

xiaojun0301

佛山小老鼠 发表于 2012-8-11 09:01
看了，你用这个试试
Sub test()
    For i = 1 To 3

    先谢谢老师的回复！不过还是不行，报错


社区监察：AVEL 给出下列代码，是直接把整个自定义菜单全部删除后在重新建，而我想要的结果是只删除某个子菜单和添加子菜单。
Sub Del()
    Application.CommandBars("Worksheet menu bar").Controls("自定义(&B)").Delete
    Set Newmenu = CommandBars("Worksheet menu bar").Controls.Add(Type:=msoControlPopup, Before:=11)
    Newmenu.Caption = "自定义(&B)"
    Set zcd = Newmenu.Controls.Add(msoControlButton)
    zcd.Caption = "删除后新建菜单"
    zcd.FaceId = 2
End Sub

xlcsfa

做些临时处理表格数据还可以，但是真正要进行数据自动处理等的还得使用函数或者VBA，安装了又卸载了。感觉没起什么作用，弄不好还会将数据损坏

佛山小老鼠

xlcsfa 发表于 2012-8-11 16:57
做些临时处理表格数据还可以，但是真正要进行数据自动处理等的还得使用函数或者VBA，安装了又卸载了。感觉没 ...

谢谢你的使用

linqh323

好东西，很实用。

xiaojun0301

     老师：提个小建议哦
在使用身份证工具时，查询的结果能否显示在窗体上，而不是直接替换身份证号码。如果替换了，就没法撤销，导致号码丢失。

佛山小老鼠

xiaojun0301 发表于 2012-8-12 18:39
老师：提个小建议哦
在使用身份证工具时，查询的结果能否显示在窗体上，而不是直接替换身份证号码。如 ...

好的，下一个版本我加上一个这样的功能
是这样的，你先输入一个身份证号，然后填充到各列里，如出生日期，性别，年龄，地址列
具体操作你看一下我的动画谢谢你建议，这个建议不错，我以上去弄

xiaojun0301

佛山小老鼠 发表于 2012-8-12 18:55
好的，下一个版本我加上一个这样的功能
是这样的，你先输入一个身份证号，然后填充到各列里，如出生日期 ...

    老师，我的意思是现在原有的功能不要变，在添加一个子菜单“身份证信息一览”，点击时弹出对话框罗列出
真假，出生日期，性别，住址（这个功能只做查看）。现在的功能其实够好了，正如你演示的，我就是用
来提取相关数据，可有时只是看下信息，没必要拷贝好几次查看，然后又删掉辅助列。如下图，我自己用加载宏
也可以做到，不过能少个程序就少装个，呵呵！

佛山小老鼠

xiaojun0301 发表于 2012-8-12 19:16
老师，我的意思是现在原有的功能不要变，在添加一个子菜单“身份证信息一览”，点击时弹出对话框罗列 ...

更新好，你可以下载了