VBA 入门级自学

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

都很简单的自学小代码，自己看就能看懂。 不适合大神，但是比较适合刚接触的。 sucai_excel14.rar (1.34 MB) 本附件包括：

• 14-9.工作表的显示隐藏设置.xlsm
• 14-1.幼儿园开票系统功能介绍.xlsm
• 14-2.系统界面制作.xlsm
• 14-3.系统单据初始资料设置.xlsm
• 14-4.学生管理模块(增加功能).xlsm
• 14-5.学生管理模块(查询与修改功能).xlsm
• 14-6.主要单据的自动化设置.xlsm
• 14-7.单据查询系统.xlsm

2016-7-20 23:31:29 上传

sucai_excel13.rar (3.42 MB) 本附件包括：

• 13-5.初识RibbonX.xlsm
• 13-6.XML语法结构讲解.xlsm
• 13-7.OpenXML架构元素(一).xlsm
• 13-8.OpenXML架构元素(二).xlsm
• 13-9.OpenXML架构元素(三).xlsm
• 13-10.group元素-分组.xlsm
• 13-11.button元素-按钮.xlsm
• 13-12.button元素-按钮（让控件运行起来）.xlsm
• 13-13.CallBacks-回调（点击控件访问网站）.xlsm
• 13-14.CallBacks-回调（让按钮产生变化）.xlsm
• 13-15.CallBacks-回调（让按钮产生变化）.xlsm
• 13-16.给控件自定义图标.xlsm
• 13-17.给控件自定义图标 .xlsm
• 13-18.动态变幻自定义图标.xlsm
• 13-19.checkBox 元素-复选框(根据复选框状态录入数据).xlsm
• 13-20.editBox元素-文本编辑框.xlsm
• 13-21.editBox元素-文本编辑框(较酷的用户名验证).xlsm
• 13-22.toggleButton元素-切换按钮.xlsm
• 13-23.toggleButton元素-切换按钮(字母大小写切换按钮订制).xlsm
• 13-24.item元素-条目.xlsm
• 13-25.comboBox元素-组合框.xlsm
• 13-26.comboBox元素-组合框(利用组合框录入与筛选) .xlsm
• 13-27.comboBox元素-组合框(动态填充组合框).xlsm
• 13-28.dropDown元素-下拉列表.xlsm
• 13-29.Gallery元素-库(确实很酷).xlsm
• 13-30.Gallery元素-库(动态装载图片).xlsm
• 13-31.menu元素-菜单.xlsm
• 13-32.menu元素-菜单 ( 定制系统登录和超链接).xlsm
• 13-33.splitButton元素-拆分按钮.xlsm
• 13-34.splitButton元素-拆分按钮.xlsm
• 13-35、36.dynamicMenu元素-动态菜单(动态获取单元格值为菜单项目).xlsm
• 13-37.dynamicMenu元素-动态菜单(动态筛选指定目录下的文件).xlsm
• 13-38.menuSeparator元素-菜单分割符 (动态变化的菜单标题).xlsm
• 13-39.separator元素-控件分隔线(动态显示分隔线).xlsm
• 13-40.box元素-控件框.xlsm
• 13-41.dialogBoxLauncher元素-对话框启动器.xlsm
• 13-42.Ribbon控件综合运用（制作通用插件）.xlsm
• 13-43.Ribbon控件综合运用（制作登录界面）.txt
• 13-1.自定义功能区的应用（演示）.xlsm
• 13-2解析excel 2010文件.xlsm
• 13-3.认识功能区Ribbon.xlsm
• 13-4.代码自定义功能区.xlsm

2016-7-20 23:31:20 上传

sucai_excel12.rar (1.1 MB) 本附件包括：

• 12-1.窗体基础.xlsm
• 12-2.窗体属性.xlsm
• 12-3.窗体属性 .xlsm
• 12-4.窗体事件.xlsm
• 12-5.窗体按钮控件.xlsm
• 12-6.制作变幻的登录界面.xlsm
• 12-7.标签与按钮控件(登录界面控件设计).xlsm
• 12-8.标签与按钮控件(登录界面控件设计) .xlsm
• 12-9.文本框控件(注册界面控制设计).xlsm
• 12-10.单选框控件(员工单设计) .xlsm
• 12-11.复选框控件(员工单设计).xlsm
• 12-12.复合框控件(员工单设计) .xlsm
• 12-13.列表框控件(员工单设计) .xlsm
• 12-14.切换按钮控件(基础产品单设计).xlsm
• 12-15.图像控件(员工信息查询设计) .xlsm
• 12-16.表单控件 .xlsm
• 12-17.表单控件.xlsm
• 12-18.ActiveX控件组合框.xlsm
• 12-19.ActiveX控件 (组合框实例-入库自动查询).xlsm
• 12-20.图像控件.xlsm
• 12-21.日历控件.xlsm

2016-7-20 23:31:09 上传

sucai_excel11.rar (178.43 KB) 本附件包括：

• 11-1.一封情报引发的知识.xlsm
• 11-2.类模块基础.xlsm
• 11-3.类的实例应用(等级判断).xlsm
• 11-4.属性过程中对象的操作(模板定制).xlsm
• 11-5.属性过程中对象的操作(条件累加).xlsm
• 11-6.用Function过程创建方法.xlsm
• 11-7.综合应用方法.xlsm
• 11-8.用sub过程创建方法.xlsm
• 11-9.类模块与程序事件.xlsm

2016-7-20 23:31:04 上传

sucai_excel10.rar (99.89 KB) 本附件包括：

• 10-2.MSGBOX第二参数详解.xlsm
• 10-3.MSGBOX返回值.xlsm
• 10-4.InputBox基础与区别.xlsm
• 10-5.InputBox实例(用户与密码校验).xlsm
• 10-6.InputBox方法Type参数详解1.xlsm
• 10-1.消息框基础.xlsm

2016-7-20 23:30:55 上传

sucai_excel09.rar (315.22 KB)

2016-7-20 23:30:51 上传

sucai_excel08.rar (144.99 KB) 本附件包括：

• 8-1.自定义函数基础(小试牛刀).xlsm
• 8-2.自定义函数的调用与存放位置.xlsm
• 8-3.自定义函数小实例（等级函数）.xlsm
• 8-4.自定义函数-返回不重复随机数（结果是数组）.xlsm
• 8-5.自定义函数(参数默认值设置).xlsm
• 8-6.自定义函数（参数不定）.xlsm
• 8-7.自定义函数实例-身份证信息提取.xlsm
• 8-8.自定义函数实例-单元颜色求和(字典+自定义函数).xlsm
• 8-9.自定义函数实例-反转字符与数字求和（正则+自定义函数）.xlsm
• 8-10.自定义函数实例-提取不重复值（字典+正则+自定义函数）.xlsm

2016-7-20 23:30:47 上传

sucai_excel07.rar (374.02 KB) 本附件包括：

• 7-4.正则表达式(普通字符).xlsm
• 7-5.正则表达式（元字符）.txt
• 7-6.元字符应用（数字、字符提取）.xlsm
• 7-7元字符之量词.txt
• 7-8.元字符之量词实例.xlsm
• 7-9.分组.xlsm
• 7-10.后向引用与非捕获.xlsm
• 7-11.字符组（拆分单词）.xlsm
• 7-12.字符组(去编号).xlsm
• 7-13.首尾锚定.xlsm
• 7-14.循环多个正则表达式.xlsm
• 7-15.综合练习（重新排列）.xlsm
• 7-16.零宽断言（有条件添加修改记录）.xlsm
• 7-17.正向零宽断言(汇总凌乱的开销记录).xlsm
• 7-18.负向零宽断言（给单词加分隔符）.xlsm
• 7-19.懒惰与贪婪模式(乱中取目录).xlsm
• 7-20.正则表达式属性(计算工作时间).xlsm
• 7-21.分组的妙用 .xlsm
• 7-22.分组运用（提取身份证信息）.xlsm
• 7-23.正学表达式总结.txt
• RegexTest.exe
• 7-1.从通配符到正则表达式.txt
• 7-2.VBA中引入正则表达式.xlsm
• 7-3.正则表达式基础.xlsm

2016-7-20 23:30:45 上传

sucai_excel06.zip (1001.2 KB)

2016-7-20 23:30:42 上传

sucai_excel05.zip (342.96 KB)

2016-7-20 23:30:38 上传

sucai_excel04.zip (156.55 KB)

2016-7-20 23:30:35 上传

sucai_excel03.zip (1.64 MB)

2016-7-20 23:30:28 上传

sucai_excel02.rar (199.58 KB) 本附件包括：

• 2-1.工作簿的表示方法.xlsm
• 2-2.当前工作簿与活动工作簿.xlsm
• 2-3.工作簿基础操作.xlsm
• 2-4.工作簿实例应用.xlsm
• 2-5.工作表的表示方法.xlsm
• 2-6.工作表集合应用.xlsm
• 2-7.工作表增加与删除.xlsm
• 2-8.工作表增加删除实例.xlsm
• 2-9.工作表移动与复制.xlsm
• 2-10.工作表选择与激活.xlsm

2016-7-20 23:30:23 上传

sucai_excel01.rar (571.72 KB) 本附件包括：

• 第一章.课堂笔记.doc
• 1-12B.If条件判断小结.xlsm
• 1-18B.DO...LOOP 语法小结.xlsm
• 1-20B.For...NEXT小结与实例.xlsm
• 1-32.综合运用(盘点清单核对).xlsm

2016-7-20 23:30:21 上传

一共14个小单元。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏9 回帖

关键词：VBA

谢谢分享，VBA在Excel二次开发领域就是神器

thanks for sharing。。。。

分这么多个压缩包下的累啊

赞 多谢分享！！！！！！！！！11

下载学习
谢谢楼主的分享

当然，我很乐意帮助初学者理解VBA（Visual Basic for Applications）。这是一门用于自动化Microsoft Office应用程序如Excel和Word的强大脚本语言。下面我将列出一些基础的入门级自学代码片段，适合刚接触VBA的同学：

### 第一单元：基本语法

1. **打印“Hello, World!”**
   ```vba
   Sub HelloWorld()
       Debug.Print "Hello, World!"
   End Sub
   ```

2. **声明变量和赋值**
   ```vba
   Sub DeclareVariables()
       Dim myVar As Integer
       myVar = 10
       Debug.Print "myVar is " & myVar
   End Sub
   ```

### 第二单元：输入/输出

3. **从用户获取输入**
   ```vba
   Sub GetUserInput()
       Dim input As String
       input = InputBox("Enter your name:")
       MsgBox "Hello, " & input & "!"
   End Sub
   ```

4. **显示消息框**
   ```vba
   Sub ShowMessage()
       MsgBox "This is a message."
   End Sub
   ```

### 第三单元：条件语句

5. **使用If-Then-Else语句**
   ```vba
   Sub IfStatementExample()
       Dim x As Integer
       x = 10
       If x > 0 Then
           Debug.Print "x is positive."
       Else
           Debug.Print "x is not positive."
       End If
   End Sub
   ```

### 第四单元：循环

6. **使用For-Next循环**
   ```vba
   Sub ForLoop()
       Dim i As Integer
       For i = 1 To 5
           Debug.Print i
       Next i
   End Sub
   ```

7. **使用While-Wend循环**
   ```vba
   Sub WhileLoop()
       Dim x As Integer
       x = 0
       While x < 5
           Debug.Print x
           x = x + 1
       Wend
   End Sub
   ```

### 第五单元：数组

8. **声明和使用数组**
   ```vba
   Sub ArrayExample()
       Dim numbers(3) As Integer
       numbers(0) = 1
       numbers(1) = 2
       numbers(2) = 3
       Debug.Print Join(numbers, ", ")
   End Sub
   ```

### 第六单元：函数

9. **创建自定义函数**
   ```vba
   Function AddNumbers(a As Integer, b As Integer) As Integer
       AddNumbers = a + b
   End Function

   Sub CallFunction()
       Debug.Print "The sum is: " & AddNumbers(5, 3)
   End Sub
   ```

### 第七单元：错误处理

10. **使用On Error语句**
    ```vba
    Sub ErrorHandlerExample()
        On Error GoTo ErrorHandler
        
        ' This will generate an error:
        Debug.Print 5 / 0
        
    ExitSub:
        Exit Sub
        
    ErrorHandler:
        MsgBox "An error occurred: " & Err.Description
        Resume ExitSub
    End Sub
    ```

这些代码片段可以作为你学习VBA的起点，通过实践和修改它们来加深你的理解。当你掌握了基础知识后，就可以开始探索更复杂的功能，如操作Excel工作表、自动化Word文档等。

希望这能帮助你入门VBA编程！如果你有任何问题或需要进一步的帮助，请随时提问。

此文本由CAIE学术大模型生成，添加下方二维码，优先体验功能试用