菜鸟也懂VBA-excle2007VBA入门教程(11)

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 …… 此处隐藏：1191字，全部文档内容请下载后查看。喜欢就下载吧 ……