Excel 2007 VBA 教程
较多
a. Private Sub Worksheet_Change(ByVal Target As Range)，一改变单元格内容就触发 …… End Sub
b. Private Sub Worksheet_SelectionChange(ByVal Target As Range)一选择别的单元格就触发
…… End Sub
实例一 防止看错行
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Myrow As Integer '定义变量Integer为整型数据类型 Myrow = Target.Row 'Target当前活动单元格，取得其行号
Cells.Interior.ColorIndex = xlNone '把整个工作表的底纹设置为无，目的是为了删除上一次的
Rows(Myrow).EntireRow.Interior.ColorIndex = 8 '给Myrow这一整行添加底纹 End Sub
实例二 自动补齐卡号，由于卡号前面的是一样，只是后面的不一样，便不能用单元格格式设置 Private Sub Worksheet_Change(ByVal Target As Range) '工作表事件，一改变内容就发生 If Target.Column = 1 Then '如果活动单元格的列号是等于1，那么
If Target.Count <> 1 Then Exit Sub '又如果选中的不只是一个单元格，那么就退出运行
MyTart = Target.Value '把活动单元格的值赋给MyTarg Application.EnableEvents = False '关闭联动事件
Target = \& \& MyTart '在原来数据前面加6210260500059330 MyTart = \把变量MyTart清空
Application.EnableEvents = True '打开联动事件 End If
Columns(\列自动适合列宽 End Sub
实例三 在B列任意单元格输入任何文本后，A列与其所对应的单元格 自动显示出当天的日期 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then '如果当前单元格的列号2
If Target.Offset(0, -1) = \又如果A列对应的单元不为空且B列活动单元也不为空，那么
Target.Offset(0, -1) = Date '在A列对应的单元格输入当前日期 End If End If
Columns(1).AutoFit 'A列自动适合列宽 End Sub
(4). 其它事件
a. OnTime事件
表达式 Application.OnTime 开始时间, 过程名 结束时间 布尔值
解释如果省略第三参数，开始时间就是过程运行时间，如果没有省略，那第三参数就是过程运行时间，第四参数如果是False就是停止OnTime事件 实例 在A1单元格显示当前的时间且带有秒数的格式 Sub Mystar()
Range(\在A1单元格写于时间，用了Format函数，格
第 28 页 共 52 页
Excel 2007 VBA 教程
式用时分秒
Application.OnTime Now + TimeValue(\在原有的时间加一秒执行 End Sub
Sub MyStop()
On Error Resume Next '为什么要加一句防错语句，因为先前当没有执行Mystar过程，就会报错
Application.OnTime Now + TimeValue(\记得是第四个参数用了False,所以它前面还有二个逗号 End Sub b. OnKey事件
1. 表达式 Application.OnKey 快捷键, 过程名
a. 一些常用控制键的代码 Ctrl ^ Shift + Alt % ，其它的键要加{}，而26个字母不
要加，如Ctrl+D这样表示\；再加Shift+F1这样表示\b. 实例 按快键Ctrl+F9，输入当天的星期 在普通模块里输入 Sub 输入星期()
Selection = Format(Now, \End Sub
Sub 打开快捷键()
Application.OnKey \输入星期\End Sub
Sub 关闭快捷键()
Application.OnKey \End Sub
在工作簿模块里输入
Private Sub Workbook_BeforeClose(Cancel As Boolean) Call 关闭快捷键 End Sub
Private Sub Workbook_Open() Call 打开快捷键 End Sub 2. 11
第十讲 窗体与控件
如果要编辑稍大一点的程序，大家就要用到窗体和控件了，其实也就是我们平常所说的对话框，达到人机对接，下面我们来一一讲解它们 一、窗体
1、 新建窗体
A、 Alt+F11——>>打开VBE编辑器——>>插入菜单——>>窗体
B、 把光标定位到“资源管理器”处——>>右击——>>插入——>>用户窗体 2、 删除窗体
A、 把光标定位到资源管理器上——>>右击——>>移除窗体 3、 窗体的Caption属性，是显示在窗体的标题
A、 实例 加载时修改窗体的标题为“身份证”,把光标定位到窗体上——>>右击——>>查看代码——>>对象列表选择窗体名称UserForm1——>>过程列表中选择Initialize如图 18，输入以下代码 Private Sub UserForm_Initialize()
第 29 页 共 52 页
Excel 2007 VBA 教程
UserForm1.Caption = \车模\End Sub
然后新建一个普通的模块里输入 Sub test()
UserForm1.Show 0 '运行窗体，当Show后面是0是，表示窗体打开之后还可以操作工作表
'如果省略的化或者为1的化，表示窗体打开之后就不能再操作工作表了，如果要操作就要关闭窗体
End Sub
图 18
4、 修改窗体的名称
A、 Alt+F11——>>视图菜单——>>属性窗口，也可以按快捷键F4——>>名称——>>输入“异同项”，效果如图 19
图 19
5、 显示窗体
A、 窗体名称 .Show 0
后面用0还是用1在上面我已讲过，这里不再啰嗦了 6、 关闭窗体
A、 Unload.窗体名称
如果在窗体模块里也可以用me来代替窗体名称 7、 在窗体中添加按钮（各按钮如所图 20示
第 30 页 共 52 页
Excel 2007 VBA 教程
图 20
A、 标签 Label B、 文本框 TextBox
C、 命令按钮 CommandButton D、 图像控件 Image E、 复选框 CheckBox
F、 切换按钮 ToggleButton
实例 仿制一个QQ登录界面，如图图 21
图 21
G、 组合框 ComboBox
1. 可以输入文字相当于文本框的作用，且还有列表框的作用，也就是组合框集文本框和列表框特
点一起
2. 给组合框添加数据
实例 添加一个月份组合框
Private Sub UserForm_Initialize() Dim i As Byte For i = 1 To 12
Me.ComboBox1.AddItem i & \月\ Next i
Me.ComboBox1.ListIndex = 0’第一个值为默认值 End Sub
3. 单个读取 Me.ComboBox1.Value H、 列表框 ListBox
1. 只能选择，不能输入 2. 给列表框添加数据
实例 添加一个月份列表框
Private Sub UserForm_Initialize() Dim i As Byte For i = 1 To 12
Me.ListBox1.AddItem i & \月\ Next i
Me.ListBox1.ListIndex = 0 End Sub
3. 单个读取列表框中的值
第 31 页 共 52 页
Excel 2007 VBA 教程
Private Sub CommandButton1_Click() MsgBox Me.ListBox1.Value End Sub I、 框架 Frame
J、 选项卡控件 TabStrip K、 多页控件 MultiPage L、 滚动条 ScrollBar
M、 数值调节按钮 SpinButton N、 单选按钮 OptionButton O、 RefEdit控件
主要用来选择区域，当然我们也可以inputbox选区域，不过没有那么方便，RefEdit控件在Excel里选区域显得更专业一点，不过Vb里没有这个控件，不知为什么？ 实例 批量上下标
Private Sub CommandButton1_Click() Dim MyRg As Range '定义变量
If Me.OptionButton1 = True Then '如果单选按钮1被选中，那么 For Each MyRg In Application.Intersect(ActiveSheet.UsedRange, Range(Me.RefEdit1.Value)) '遍历选中的所有单元格
'Intersect的作用是选中区域和有数据区域交集，这样就不用循环选中的每一个单元格，大大提高运行速度
'Me.RefEdit1.Value取出RefEdit1的值，作为Range的参数 MyRg.Characters(Start:=Len(MyRg) - Me.ComboBox1.Value + 1, Length:=Me.ComboBox1.Value).Font.Superscript = True
'上面这段代码大家可以通过录制得到，然后修改一下得到。代码的意思，把后面Me.ComboBox1.Value个字标示上标
'ComboBox1.Value是组合框的值，也就是说标示后面多少个，由它决定的。下面的代码也是这个意思，我就不多作解释了 Next MyRg
ElseIf Me.OptionButton2 = True Then For Each MyRg In Application.Intersect(ActiveSheet.UsedRange, Range(Me.RefEdit1.Value))
MyRg.Characters(Start:=Len(MyRg) - Me.ComboBox1.Value + 1, Length:=Me.ComboBox1.Value).Font.Subscript = True Next MyRg Else For Each MyRg In Application.Intersect(ActiveSheet.UsedRange, Range(Me.RefEdit1.Value)) With MyRg.Font
.Superscript = False '取消上标 .Subscript = False '取消下标 End With Next End If End Sub
Private Sub CommandButton2_Click()
第 32 页 共 52 页