基础部分
一、窗体的基本操作
1、窗体插入
2、运行窗体

要么直接在窗体的界面点击运行按钮
要么用代码调用窗体的 show 方法

3、关闭窗体

代码关闭是 unload testform方法

4、显示设置

窗体标题：caption
背景色：backcolor
背景图片：picture，代码里面可以使用loadpicture()方法进行加载


属性窗口里面可以查看

5、位置大小

top、left、height、width
startupPosition 启动显示位置

6、显示行为

showModal 的值就是 true 或者false 可以设置显示窗体的时候是否可以进行其他的操作

7、删除窗体
二、控件的基本操作
1、控件插入

2、删除
3、对齐

菜单栏格式里面
可以选中多个控件进行布局的操作

4、tab键相关

5、控件循环

所有控件集合 controls
controls(index) controls("name")可以选定具体的控件

6、控件类型判断

typename 判断控件类型

Private Sub UserForm_Click()
    For i = 0 To Controls.Count - 1
        If TypeName(Controls(i)) = "TextBox" Then
            MsgBox Controls(i).Value
        End If
    Next i
End Sub


窗体事件

和前面讲的工作表事件等是一样的，只需要特别注意一下键盘事件和鼠标事件



一、键盘事件
1、keydown

keyCode 唯一，shift 参数不同的值分别代表ctrl、shift、alt

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
''''''''''''''code
End Sub

2、keyup
Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
''''''''''''''code
End Sub

3、keypress
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
''''''''''''''code
End Sub


keydown keypress 都是按键按下，但是一般使用keydown，功能更加强大

二、鼠标事件
1、mousedown

button不同的值分别代表左右和中键
shift 也是和上面一样
x 和 y 就是鼠标的位置坐标

Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub

2、mouseup
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub

3、mousemove
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub


vba一行的代码很长的话可以使用空格加下划线然后enter的方式进行换行


标签和按钮
一、按钮
1、快捷键设置

就是设置 Accelerator 属性，然后通过 alt 键加设置的键就可以激活按钮的 click 事件

2、enter 和 esc 响应

就是 default 和 cancel 属性都设置为true，然后窗体显示并且焦点在按钮上的时候按 esc 和 enter 就会激发按钮的 click 事件

二、标签

label 标签基本就是用来显示一定的提示内容
具体的属性使用的时候可以通过属性窗口进行摸索


文字框

maxLength 和 autoTab 属性可以实现输入多少个字符自动切换
基本的事件也是可以通过名字完全看懂的，不多说
其他的使用基本上也是琢磨属性窗口的内容


列表和组合框

这两个的用法基本是一致的，就是下拉框比一般的列表更加节省空间而已
选项的填充可以使用 additem 方法，可以用数组赋值给 list 属性，可以直接引用单元格区域赋值到RowSource 属性
选项的移除使用 removeitem 方法

一、combobox

listIndex 代表当前选中项的索引：ComboBox1.List(ComboBox1.ListIndex, 2)
list 可以获取到具体的某个行列的值，第一个参数是行数，后一个是列数

二、listbox

multiselect 设置是否可以选中多行
selected 方法可以判断选项是否选中

Private Sub ComboBox1_Change()
    Label1.Caption = "选中项的返回值是：" & ComboBox1.Value
End Sub

Private Sub CommandButton1_Click()
    Dim arr
    arr = Sheets(1).Range("a8:e15")
    ComboBox1.ColumnCount = 5 '设置下拉框显示的列数
    ComboBox1.BoundColumn = 3 '设置选中返回的列的数据
    ComboBox1.TextColumn = 3 '设置选中下拉框的显示列
    ComboBox1.List = arr
End Sub
Private Sub CommandButton2_Click()
    ListBox1.RowSource = "Sheet1!A8:E12"
    ListBox1.ColumnCount = 5
    ListBox1.ColumnHeads = True
    ListBox1.BoundColumn = 3
    ListBox1.TextColumn = 2
End Sub

Private Sub CommandButton3_Click()
    MsgBox ComboBox1.List(ComboBox1.ListIndex, 2)
End Sub

Private Sub CommandButton4_Click()
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            MsgBox ListBox1.List(i, 2)
        End If
    Next i
End Sub



单选、复选、框架、多页
一、单选、复选、框架

单选和复选必须要通过框架才能成组
不然对于单选框一个窗体的话只能有一个被选中

Private Sub Frame1_Click()
    If 男.Value Then sr = "you sex:" & 男.Caption
    If 女.Value Then sr = "you sex:" & 女.Caption
    If 中.Value Then sr = "you sex:" & 中.Caption
    TextBox1.Value = sr
End Sub

Private Sub Frame2_Click()
    Dim sr As String
    sr = "爱好:"
    If 唱歌.Value Then sr = sr & 唱歌.Caption & Chr(10)
    If 跳舞.Value Then sr = sr & 跳舞.Caption & Chr(10)
    If 篮球.Value Then sr = sr & 篮球.Caption & Chr(10)
    TextBox2.Value = sr    
End Sub


二、微调、滚动调节

二者基本的使用都是一致的
都包含 max 、min最大最小值属性
滚动条支持步长 smallChange 和 largeChange 属性，微调只支持前者
对滚动条来说 smallChange 设置的是点击箭头按钮的该表量，largeChange 是设置直接点击滚动条的改变量

Private Sub ScrollBar1_Change()
    ScrollBar1.SmallChange = 2
    ScrollBar1.LargeChange = 10
    ScrollBar1.Min = 10
    ScrollBar1.Max = 80
    TextBox4.Value = ScrollBar1.Value
End Sub

Private Sub SpinButton1_Change()
    SpinButton1.SmallChange = 2
    TextBox3.Value = SpinButton1.Value
End Sub



vba 中的Me变量代表代码所在的对象,如果是工作表代码就代表该工作表,如果是窗体代码就代表窗体

三、多页
1、图片控件
Private Sub Image1_Click()
    f = Dir("C:\Users\user\Desktop\*.jpg")
    Do
        ListBox1.AddItem f
        f = Dir
    Loop While (Len(f) <> 0)
End Sub
Private Sub ListBox1_Click()
    Dim path As String
    path = "C:\Users\user\Desktop\" & ListBox1.Value
    Image1.Picture = LoadPicture(path)
End Sub


2、多页

选项卡的索引是从 0 开始的
style 属性设置为 2 可以隐藏上面的 tab 卡

Private Sub Label1_Click()
    MultiPage1.Style = 2
End Sub

Private Sub MultiPage1_Change()
    MsgBox MultiPage1.Value
    MultiPage1.Value = 3
End Sub


ListView控件

TreeView控件

日期和进度条（略）

综合实例


命令栏操作（略）

功能区操作（略）

代码操作代码（略）

合并拆分文件，图片插入更新，批量生成图表，用户登录控制，一机一码注册加密，数组字典详解，窗体控件详解，你想要学的都在这里，所有案例均与实际工作场景结合，即学即用！！！ 本人全职VBA程序员 Excel vba二次开发12年经验 常用代码175例+，超过210集 ，超60小时逐行手写直播实况教学视频 极速入门，快速提高！【高手课】
本套教程目录如下  
高手课《学好了效率高！Excel实战技巧208例》作者高手课VBA代码助手作者，全职Excel vba程序员 。高手课承包了你大学考试职业生涯所需要的考试资料、职业考试资料、软件以及教程。
熟练掌握单元格的操作要领
VBA代码中获得单元格的8种常见方法
在屏幕上模拟手工选择或者激活单元格区域的3种方法
获得指定行、列中的最后一个非空单元格行号
录制宏入门详解 快速选定特殊类型单元格
根据指定内容批量查找数据的2种常见方法
多组待查值与替换值的批量替换
复制粘贴单元格区域
仅复制数值到另一区域
选中单元格后自动进入编辑状态
阻止用户自由拖放单元格以及使用下拉自动填充
用代码设置单元格格式
用VBA代码控制数据有效性
VBA中操作单元格中的公式
VBA操作单元格中的批注
单元格的合并与拆分 合并单元格操作详解
仿WPS阅读模式，高亮显示单元格区域
去掉双击被保护单元格时显示的提示消息框
强制重算指定单元格区域
录入数据后单元格自动保护 防止篡改数据
工作表常用事件中Target参数的使用方法
熟练操作Worksheet工作表
5种最常用的引用工作表方式
选择和激活工作表的方法
For 循环入门 循环访问多个工作表的方法
在工作表中前后翻页 用按钮实现循环翻页
工作表的批量添加与删除及On Error应用
禁止工作表重命名 固定工作表名称
自动建立工作表目录 用事件实现点击单元格跳转到表
工作表的深度隐藏 强制用户启用VBA 否则无法看到工作表
用户更改工作表的名称后自动改回原名
工作表中批量插入多行
批量删除工作表中的空行
按需删除工作表的重复行 可选择保留最先出现或者最后出现
利用定位功能快速删除特定内容所在的行
判断用户当前是否选中整行
限制工作表在指定区域内滚动
复制自动筛选后的不连续数据区到其他表
代码中调用高级筛选获得不重复记录 拆分表
保护作表解除保护密码的2种方法
分别按奇偶页打印工作表
Workbook（工作簿）对象详解
4种访问工作簿的方法
新建工作簿文件并初始化多个sheet表写入表头
打开指定的工作簿, 如果已经打开则直接获取
判断指定工作簿是否打开
禁用工作簿的关闭按钮
保存工作簿的方法
保存指定1个或多个工作表为工作簿文件
设置工作簿文档属性信息
不打开工作簿取得其他工作簿数据
单工作簿中多工作表数据合并 循环进阶
多文件多工作表数据合并 遍历文件+双循环
VBA中函数的使用
调用工作表函数求和 工作表函数的使用技巧
利用工作表函数查找统计多个最大、最小值
禁止录入重复值CHANGE事件+COUNTIF函数
获得当月的最后一天 VBA自带函数的使用
使用日期函数 计算星期、季度、日期差和日期加减
四舍五入运算 VBA自带Round函数缺陷修正
使用字符串函数 变量构造字符串的常规技巧
判断是否为数值 判断数据类型的IS系列函数
格式化输出数值、日期和时间 Format函数详解
数字列号转换为字母列标 Split函数用法
批量删除空白工作表 TypeName函数实例
跨工作簿查找指定表名的工作表是否存在
查找指定工作簿是否打开
VBA自定义函数实现人民币大写函数
个人所得税自定义函数 多级提成类解决方法
正则表达式提取函数 分别提取中文 英文 数字
自定义字符串连接函数 仿Office365中Textjoin函数
窗体与控件及用户接口常见案例详解
窗体与控件基础知识 仿记录单形式显示单元格数据
文本框回车自动输入到工作表中最后一行 键盘事件
限制文本框的输入 只允许输入指定类型字符
自动选择文本框内容
设置文本框数据格式以及文本框自动计算
文本框录入错误后清空内容并重置输入光标
文本框及弹出的对话框文字换行
多个文本框里Text数据相加,用字符串访问控件,使用类
多个控件跟随选择单元格,限定作用区域,执行不同任务
鼠标移动到按钮上高亮变色显示
组合框和列表框入门,添加列表项目的方法
去除ListBox添加项目时对源数据去重 去空值
字典Dictionary入门 数组去重写入到ListBox控件
移动Listbox列表框条目的位置 交换位置
多项选择的列表框 选择多项结果写入单个单元格
列表框显示多列数据,多列设置及整行写入表格的技巧
省市下拉选择二级联动组合框
使用自定义日期输入窗体 辅助输入数据
在窗体中使用RefEdit控件让用户选择单元格区域
遍历窗体控件以及工作表中控件的5种方法
窗体的2种状态 模式和非模式状态 应用场合
使数值条件按钮能调节小数 窗体控件实例
不打印工作表中的控件
在框架中使用滚动条 利用Frame限定控件区域
解决Lable标签文字无法垂直居中对齐的问题
自制封装进度条窗体，在循环代码中调用示范
窗体中使用多页控件 分类显示信息及控件分组
制作多用户登录窗体+简单权限管理+窗体美化
使用第三方控件 显示GIF动画图片 仅限32位office
使用flash控件播放Flash文件
用代码在工作表中添加窗体控件
用代码在工作表中添加ActiveX控件 及添加新代码
逐步输入提示 中文+拼音首字母模糊搜索
使用spreadsheet控件 在窗体中显示sheet
使用Listview控件显示更美观的列表数据
使用TreeView控件显示多级分层数据 兼容32+64位
设置窗口标题栏个性图标 winapi
用户窗体添加最大最小化按纽
禁用窗体标题栏的关闭按钮
制作无标题栏窗体
制作带倒计时关闭的无标题栏无边框的欢迎屏幕
制作年月选择窗体 文本框+数值调节框组合
自定义窗体中的鼠标指针类型
文本框添加右键快捷菜单
调整窗体的显示位置 做个永远点不中的窗体！
根据单元格确定窗体显示位置 跟随单元格
在窗体及表格中使用颜色选择对话框
选择单元格后 窗体颜色跟随单元格颜色改变
在窗体中显示图表.单元格区域以及表格中的图片
窗体高级功能 为控件和窗体添加自适应大小功能
右键弹出三级省市区菜单 辅助输入神器 移植方法
在窗体中用代码生成100个按钮 并绑定事件
制作一个简易计算器用户交互 批量生成按钮事件 类入门
用户窗体的全屏最大化显示
使用Webbrowser控件显示网页 利用html语句制作跑马灯文字
如何注册控件
使用弹出对话框
msgbox弹出对话框，按钮组合及多行信息排版
自动关闭的消息框 定时x秒后关闭 API函数调用
使用InputBox对话框 接收用户输入
Application.InputBox方法 选择单元格区域
Applicaiton内置对话框 选择文件另存等
调用操作系统“关于”对话框
图形与图表对象
用VBA代码一键绘制三栏斜表头
VBA导出工作表中的图片+导出单元格区域为图片
为表格中的图片添加点击放大缩小的功能
遍历工作表中的图形 按指定类型以及 按指定名称
移动、旋转、放大对象 制作一个跳动的红心
工作表中批量插入图片
合并带图片的工作表时 不丢失图片以及保留图片大小的方法
使用VBA自动生成图表（选学 不建议深究）
在窗体下拉框选择人名动态显示图表
根据数据源逐行生成图表并 封装Chart.Export函数
批量生成多行多列图表 模板化思维
Application对象
取得Excel版本信息 根据不同判断运行不同代码
Excel中的“定时器”,时间倒计时显示及定时刷新
动态设置Excel窗口标题栏，标题栏加入当前时间刷新
获得当前点击的的按钮名称及所在位置，执行批量任务
指定宏快捷键及屏蔽、改变组合键的功能
状态栏显示当前运行进度百分比
根据情况选择关闭工作簿还是关闭Excel程序
隐藏Excel主窗口的3种方法
窗体列出打印机列表 设置活动打印机的名称
文件及文件夹操作
导入文本文件 读取文本文件
将数据写入文本文件可输出为unicode格式
文件修改的日期和时间 获取最近日期文件 按日期排序
查找文件或文件夹 Dir函数遍历文件
遍历多层文件夹 递归遍历子文件
创建和删除文件夹 按列表批量创建文件夹
文件重命名工具表的制作与使用
复制指定的文件 FileCopy语句
删除指定的文件 删除前提示 表格文件自杀
使用FileSystemObject处理文件 推荐代替Dir函数
文件归类整理 按分类列表对文件重新分类
数组和字典应用
VBA数组的定义，使用，读取和写入单元格
VBA数组排序,合并和拆分
字典入门单列及多列关键字去重、分类汇总及查找
数组及字典实现高效一对多及多对多查找
其他杂项应用
取得电脑名称 判断指定电脑名称才能运行
取得逻辑盘序列号 利用文件对象 根据C盘ID保护项目
制作一机一码硬件注册机 保护个人作品不得随意传播
延缓代码运行速度 在Excel中实现动画效果
定时关机 Shell语句 打开其他程序
定制VBE代码编辑器 多色任选
VBA代码调用COD对象批量发送邮件
保护VBA代码 设定密码及工程不可查看
优化代码速度的一般原则和技巧
代码运行中播放提示音
防止用户中断代码运行
一线真实综合案例详解
金蝶K3财务系统 账套模板 Excel数据导入模板输出
按单号合并多行多列状态数据到单行多列
批量自动生成多人工资发放条
循环中调用COUNTIF对满足条件的多表多列条件求和
奇葩数据 隔行日期 员工销售额人名日期汇总3字典联合应用
高手课承包了你大学考试职业生涯所需要的考试资料、职业考试资料、软件以及教程。本套视频适合各阶层Excel vba爱好者学习，以案例为导向，穿插基础知识在案例实现中，无理论纯实战教学法！每一节课我都会从0开始带大家一起敲代码，告诉大家vba代码编写过程中的诸多注意事项!

事件子过程:

是由VBA自行声明并附在窗体、控件、工作表、工作簿对象上。用户不可以对事件过程声明进行增加或删除。当用户在某个对象上引发一个动作时，Windows会通知VBA产生一个事件，并且VBA会自动地调用与该事件相关的事件过程。

事件Sub子过程的调用格式如下：
Private Sub 对象名_事件名([参数表])
    语句块
End Sub 

对象名是对象在VBE属性窗口的名称属性。事件名种类非常多，而且不同的对象类型其事件也可能不一样。例如，窗体对象包含了初始化事件和卸载事件，文本框包含了文本框改变事件。

在access vba中，因为要对表中数据的操作，编写代码经常需要调用SQL语句。
我们通常不会在VBA代码中键入复杂的查询语句，而是在查询的设计视图中创建一个查询，将其切换到SQL视图，复制并粘贴到VBA中。
但是如果sql语句太长，我们需要折行，同时要整理引号和行尾
1. 创建一个新窗体，添加一个选项卡控件，的第一页中，添加一个未绑定的文本框，名为“txtSql”。
2. 在选项卡控件的第二页，添加另一个未绑定的文本框，将其命名为“txtVBA ”。
3. 最后添加命令按钮，将其命名为“cmdSql2Vba”。
详细按钮代码：
Private Sub cmdSql2Vba_Click() Dim strSql As String 'Purpose: Convert a SQL statement into a string to paste into VBA code. Const strcLineEnd = " "" & vbCrLf & _" & vbCrLf & """"  If IsNull(Me.txtSql) Then Beep Else strSql = Me.txtSql strSql = Replace(strSql,