完整的VBA代码宝助手（完全开源） |
您所在的位置：网站首页 › vba财务实例程序 › 完整的VBA代码宝助手（完全开源） |
完整的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循环 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 SubSub 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 |
【本文地址】
今日新闻 |
推荐新闻 |