完整的VBA代码宝助手（完全开源）

本工具箱是做的加载宏工作簿，只需要放到启动路径即可随excel启用，可存放VBA代码，其他编程语言，或者您学习的医学知识，会计知识存啥都可以，如只是存储数据，可不看代码，直接使用即可，

把内容放到白色文本框，点击新增，输入目录名称

或者新建目录后，选中目录在复制内容进去，点击保存

如果是VBA代码，还可以将代码插入到VBA模块里面测试或执行

当您需要查找时，可以关键字模糊搜索，源码开放

工程窗口界面

还有权限管理设置

按钮类模块的使用

还有一些写好的实例代码

VBA界面

创建VBE菜单

新建加载宏菜单等等

Sub 自动筛选()Selection.AutoFilter         '选中部分自动筛选range("A1:C10").AutoFilter   '指定区域筛选End Sub

Private Sub For循环()For i = 1 To 10 Step 2       '指定i从1开始，step步长为2，直到大于最大值10，即i>10退出中止本次for循环MsgBox "这是第" & i & "次循环"      '循环语句，把想要重复执行的语句放在for 和 Next 之间'想退出for循环时，可以加一句 Exit For 即可退出本次for循环NextEnd Sub

Private Sub Do语句()i = 0           '初始值Do While i < 10     '先判断，再决定是否进入循环体，本例子是i小于10才进入循环体i = i + 1       '执行循环语句,这里表示i每次循环增加1LoopMsgBox "此时i 已经大于等于10"       '退出循环体，说明i已经不满足循环条件，即i已经不小于10了End Sub

Sub Like型似语句()If ActiveCell Like "*大表格*" Then    '如果单元格 包含 "大表格" 这3个字，即满足条件，*号代表任意个数的任意字符ActiveCell.Value = 1         '如果单元格包含 "大表格" 这3个字，就让这个单元格的值等于1Else                         '如果不包含ActiveCell.Value = 0         '如果不包含 "大表格" 这3个字，让该单元格等于0End IfEnd Sub

Sub 连接Excel数据库()Dim cnn As ObjectDim rst As ADODB.RecordsetDim strPath As StringDim str_cnn As StringSet cnn = CreateObject("adodb.connection")Set rst = New ADODB.RecordsetstrPath = ThisWorkbook.FullName       '本工作簿为数据库If Application.VERSION < 12 Thenstr_cnn = "Provider=Microsoft.jet.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPathElsestr_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPathEnd Ifcnn.Open str_cnnmysql = "select * from [" & TextBox2.Text & "$] where " & TextBox1 & " like '%" & TextBox3 & "%'"         '查询文本框的还是要'" & aaa & "'Set rst = cnn.Execute(mysql)ListBox1.Clear  '清除list以前记录ReDim arr(0 To (rst.Fields.Count - 1))'标题For i = 0 To rst.Fields.Count - 1'利用fields属性获取所有字段名，fields包含了当前记录有关的所有字段,fields.count得到字段的数量'由于Fields.Count下标为0，又从0开始遍历，因此总数-1arr(i) = rst.Fields(i).nameNextListBox1.ColumnCount = rst.Fields.Count - 1     '设置list的列数ListBox1.List = rst                             '列表内容cnn.CloseSet cnn = NothingEnd Sub

完整的VBA代码宝助手（完全开源）相关推荐

简单代码大全_VBA爱好者请进：VBA代码宝概述
VBA 代码宝是 ExcelHome 出品的共享工具类软件之一. 虽然 Office 软件本身已经足够强大,但仍然有很多特色功能,需要使用 VBA 来进行定制开发.无论是VBA小白还是经验丰富资深开发 ...
VBA代码宝--免费下载路径（管理自己平时使用的代码，程序）-- ExcelHome
ExcelHome - VBA代码宝简介及免费下载 http://club.excelhome.net/thread-1440316-1-1.html 个人真心推荐,获益匪浅.在此感谢~(非商业 / ...
VBA代码助手,代码库收藏管理工具,代码对齐，破解Excel工程密码，设置隐藏模块
历时一个月的紧张开发,VBA代码助手专业版终于问世了,对原加载宏版VBA代码助手进行了全面升级,焕然一新的代码助手重装上阵,希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该 ...
VBA字符串智能拼接与自动换行 VBA代码助手独家功能
VBA字符串智能拼接与自动换行 VBA代码助手下载地址 VBA代码助手独家特有功能视频演示 Alt+L变量拼接字符串 VBA新手噩梦,在一个VBA字符串中插入变量,许多人要经过很多次的挫折才能正确书 ...
vba excel 开发游戏_VBA代码助手专业版正式发布，让天下没有难写的VBA代码
历时一个月的紧张开发,VBA代码助手专业版终于问世了,对原加载宏版VBA代码助手进行了全面升级,焕然一新的代码助手重装上阵,希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该 ...
就挺凡尔赛的！李开复谈20年后的AI，崔宝秋论开源之道，清华唐杰的PPT成了“香饽饽” | MEET2021智能未来大会...
编辑部发自凹非寺量子位报道 | 公众号 QbitAI 2020年,这个特殊的年份即将过去. 在这一年中,我们的生活遭受重创,但AI技术和应用仍在加速脚步. "重启.重塑.重构&qu ...
淘宝助手替代品！【淘宝登货员】研发中
我是珠宝商,也是程序员,很稀有的搭配吧,嘿嘿 N年前我注册了帐号,就拿淘宝助手发商品,结果使用起来非常痛苦,放弃-. 前几天重归淘宝,再用淘宝助手发布商品,用了一天还是感觉太难用了,跟几年前没什么变化 ...
崔宝秋国际开源经验在小米开花 | 开源英雄
[编者按]崔宝秋的开源人生,来源于内心的真正热爱,和一路的升级打怪.从少时与计算机结缘到成为自由软件信徒,从IBM.雅虎.LinkedIn 到小米这一路走来,从一个开源的追随者成长为开源的推动者,小米 ...
VBA代码自学收集（150例）
1.Application.CommandBars("Worksheet Menu Bar").Enabled = false 2.cells(activecell.row,&qu ...
1个人，3个月业余时间，采用Flutter，居然仿写了一个淘宝电商开源项目
来源 | https://www.jianshu.com/p/194448388ce9 前言 Flutter现在如火如荼,Google也在大力推广,是到了学习Flutter的时候了,今天推荐一款用Fl ...

完整的VBA代码宝助手（完全开源）

完整的VBA代码宝助手（完全开源）相关推荐

最新文章

热门文章