123
VBA学习笔记
----谢勋圣
一、单元格在VBA的表示方法： .............................................................................................................. 1 二、工作表在VBA中表示方法：sheets(\工作表名\三、区域的表示方法：RANGE（CELLS（），CELLS（）） .................................................................. 1 四、清除按钮代码表示方法：Range(\................................................................ 1 五、对话框的表示方法： ............................................................................................................................ 1
2、三键选择对话框： ................................................................................................................... 1 3、两键选择对话框： ................................................................................................................... 2
六、编程中调用自定义函数的表示方法：Application.CountIf ................................................................ 2 七、把打开的某个工作设为当前工作薄的表示方法： ............................................................................ 2 八、一次新建多个工作薄并存盘的表示方法: ........................................................................................... 2 九、关闭工作薄的表示方法： .................................................................................................................... 3 十、颜色的表示方法： ................................................................................................................................ 3 十一、名称和标志 ........................................................................................................................................ 3
1、名称： ...................................................................................................................................... 3 2、标志： ...................................................................................................................................... 4
十二、Visual Basic 常数 .............................................................................................................................. 5
1、Miscellaneous 常数.................................................................................................................. 5 2、Keycode 常数 .......................................................................................................................... 5 3、MsgBox 常数 ......................................................................................................................... 10
十三、Call 语句 ......................................................................................................................................... 12
1、语法 ........................................................................................................................................ 13 2、说明 ........................................................................................................................................ 13 3、Call 语句示例 ........................................................................................................................ 13 :=xlNormal, Password:=\..................... 19
十四、Excel VBA编程的常用代码 ........................................................................................................... 21
1、使用Dim语句 ....................................................................................................................... 21 2、强制声明变量 ......................................................................................................................... 21 3、声明常数................................................................................................................................. 21 4、选择当前单元格所在区域 ..................................................................................................... 21 5、返回当前单元格中数据删除前后空格后的值 ..................................................................... 21 6、单元格位移............................................................................................................................. 22 7、给当前单元格赋值 ................................................................................................................. 22 8、给指定单元格赋值 ................................................................................................................. 22 9、隐藏工作表............................................................................................................................. 22 10、打印预览............................................................................................................................... 22 11、得到当前单元格的地址 ....................................................................................................... 23 12、得到当前日期及时间 ........................................................................................................... 23 13、保护工作簿........................................................................................................................... 23
1
14、取消保护工作簿 ................................................................................................................... 23 15、给活动工作表改名为 \16、打开一个应用程序 ............................................................................................................... 23 17、增加一个工作表 ................................................................................................................... 23 18、删除活动工作表 ................................................................................................................... 23 19、打开一个工作簿文件 ........................................................................................................... 23 20、关闭活动窗口 ....................................................................................................................... 23 21、单元格格式........................................................................................................................... 23 22、With 语句 ............................................................................................................................. 24 23、清除单元格........................................................................................................................... 24 24、返回选定区域的行数 ........................................................................................................... 24 25、返回选定区域的列数 ........................................................................................................... 24 26、返回选定区域的地址 ........................................................................................................... 24 27、忽略所有的错误 ................................................................................................................... 24 28、遇错跳转............................................................................................................................... 24 29、删除一个文件 ....................................................................................................................... 24 30、定制自己的状态栏 ............................................................................................................... 24 31、恢复自己的状态栏 ............................................................................................................... 24 32、用代码执行一个宏 ............................................................................................................... 24 33、滚动窗口到a1的位置 ......................................................................................................... 25 34、定制系统日期 ....................................................................................................................... 25 35、返回当天的时间 ................................................................................................................... 25 36、inputbox<输入框> ................................................................................................................ 25 37、得到一个文件名 ................................................................................................................... 25 38、打开zoom对话框 ................................................................................................................ 25 39、激活字体对话框 ................................................................................................................... 25 40、打开另存对话框 ................................................................................................................... 25
十五、两个层面运行宏的方法 .................................................................................................................. 25 十六、DblClick 事件 ................................................................................................................................. 27
1、语法 ........................................................................................................................................ 27 2、说明 ........................................................................................................................................ 27 3、DblClick 事件、CanPaste 属性、Paset 和 Copy 方法示例 ............................................ 28
十七、BeforeDragOver 事件 .................................................................................................................... 30 十八、BeforeDropOrPaste 事件 .............................................................................................................. 33 十九、Change 事件 ................................................................................................................................... 35 二十、Click 事件 ....................................................................................................................................... 37 二十一、Enter、Exit 事件 ........................................................................................................................ 39 二十二、Error 事件 ................................................................................................................................... 40 二十三、KeyDown 和 KeyUp 事件 ........................................................................................................ 41 二十四、KeyPress 事件............................................................................................................................. 43 二十五、MouseDown 和 MouseUp 事件 ............................................................................................... 45 二十六、MouseMove 事件 ........................................................................................................................ 47 二十七、晴雨表 .......................................................................................................... 错误！未定义书签。
1、This Workbook ........................................................................................ 错误！未定义书签。
2
2、Sheet1(工程晴雨表) ............................................................................... 错误！未定义书签。 3、模块 ........................................................................................................ 错误！未定义书签。
3
一、单元格在VBA的表示方法：
1、方法1：Range(\单元格地址\，如Range(\即为A1单元格。
2、方法2：CELLS（行，列）， 如CELLS（1，1）也为A1单元格，CELLS（2，1）为 A2单元格。
二、工作表在VBA中表示方法：sheets(\工作表名\
如Sheets(\即为sheet1表。
三、区域的表示方法：RANGE（CELLS（），CELLS（）） 1、单元格区域：Range(cells(1,1),cells(20,1))或Range(\； 2、所有单元格区域： Cells.select；其中select是“选择”的意思； 3、所有已使用的单元格区域：Sheets(\。 四、清除按钮代码表示方法：Range(\五、对话框的表示方法： 1、一键选择对话框：
对话框的表示方法：MsgBox \需要显示的文字\。 2、三键选择对话框：
Sub 洪水计算()
msg = MsgBox(\是：打印成果 \否：重新计算 \取消：放弃打印\谢顺胜恭喜你计算正确！可以打印了，谢谢使用！\
If msg = vbYes Then
Call 打印成果 '调用打印成果
1
Else: If msg = vbCancel Then Exit Sub Call 洪水计算 '调用洪水计算 End If End Sub
3、两键选择对话框：
Sub 洪水计算()
msg = MsgBox(\是：打印成果\否：重新计算\vbYesNoCancel, \谢顺胜恭喜你计算正确！可以打印了，谢谢使用！\
If msg = vbYes Then
Call 打印成果 '调用打印成果 Else: If msg = vbCancel Then Exit Sub Call 洪水计算 '调用洪水计算 End If End Sub
六、编程中调用自定义函数的表示方法：Application.CountIf 七、把打开的某个工作设为当前工作薄的表示方法： Workbooks(\
八、一次新建多个工作薄并存盘的表示方法: For i = 10 To 13 Workbooks.Add
2