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

置顶 Excel_VBA创维大表格จุ๊บ

已于 2022-04-03 22:43:17 修改

阅读量2w

点赞数 14

分类专栏： vsto插件开发 VBA系统出入库管理系统文章标签： css .net c# sql asp.net

于 2021-08-30 18:31:28 首次发布

本文链接：https://blog.csdn.net/weixin_44681501/article/details/120002858

版权

VBA系统同时被 3 个专栏收录

50 篇文章 9 订阅

订阅专栏

vsto插件开发

42 篇文章 12 订阅

订阅专栏

出入库管理系统

9 篇文章 5 订阅

订阅专栏

这是一个用于Excel的加载宏工具箱，它可以随Excel启动并存储VBA代码、其他编程语言知识及各类专业资料。用户可以通过新建目录、文本框输入或搜索功能来组织和查找内容。此外，还具备权限管理设置和VBA模块测试执行功能，方便进行代码调试。示例代码展示了如何使用自动筛选、For循环、Do语句和Like型似语句等VBA操作。

摘要由CSDN通过智能技术生成

本工具箱是做的加载宏工作簿，只需要放到启动路径即可随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循环
    Next
    
End Sub

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

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

Sub 连接Excel数据库()
    
    
   Dim cnn As Object
   Dim rst As ADODB.Recordset
   
   
    Dim strPath As String
    Dim str_cnn As String
    Set cnn = CreateObject("adodb.connection")
    Set rst = New ADODB.Recordset
    
    strPath = ThisWorkbook.FullName       '本工作簿为数据库
    If Application.VERSION < 12 Then
        str_cnn = "Provider=Microsoft.jet.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath
    Else
        str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & strPath
    End If
    cnn.Open str_cnn
    
    mysql = "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开始遍历，因此总数-1
        arr(i) = rst.Fields(i).name
    Next
    
    ListBox1.ColumnCount = rst.Fields.Count - 1     '设置list的列数
    ListBox1.List = rst                             '列表内容
    
    
    cnn.Close
    Set cnn = Nothing
    
    
End Sub