11、得到当前单元格的地址
msgbox ActiveCell.Address
12、得到当前日期及时间
msgbox date & chr(13) & time
13、保护工作簿
ActiveSheet.Protect
14、取消保护工作簿
ActiveSheet.Unprotect
15、给活动工作表改名为 \
ActiveSheet.Name = \
16、打开一个应用程序
AppActivate (Shell(\
17、增加一个工作表
Worksheets.Add
18、删除活动工作表
activesheet.delete
19、打开一个工作簿文件
Workbooks.Open FileName:=\
20、关闭活动窗口
ActiveWindow.Close
21、单元格格式
选定单元格左对齐
Selection.HorizontalAlignment = xlLeft 选定单元格居中
Selection.HorizontalAlignment = xlCenter 选定单元格右对齐
Selection.HorizontalAlignment = xlRight 选定单元格为百分号风格 Selection.Style = \选定单元格字体为粗体 Selection.Font.Bold = True 选定单元格字体为斜体 Selection.Font.Italic = True
23
选定单元格字体为宋体20号字 With Selection.Font .Name = \宋体\.Size = 20 End With
22、With 语句
With 对象 .描述 End With
23、清除单元格
ActiveCell.Clear '删除所有文字、批注、格式24、返回选定区域的行数
MsgBox Selection.Rows.Count
25、返回选定区域的列数
MsgBox Selection.Columns.Count
26、返回选定区域的地址
Selection.Address
27、忽略所有的错误
ON ERROR RESUME NEXT
28、遇错跳转
on error goto err_handle '中间的其他代码 err_handle: ' 标签 '跳转后的代码
29、删除一个文件
kill \
30、定制自己的状态栏
Application.StatusBar = \现在时刻: \
31、恢复自己的状态栏
Application.StatusBar = false
32、用代码执行一个宏
Application.Run macro:=\
24
33、滚动窗口到a1的位置
ActiveWindow.ScrollRow = 1 ActiveWindow.ScrollColumn = 1
34、定制系统日期
Dim MyDate, MyDay MyDate = #12/12/69# MyDay = Day(MyDate)
35、返回当天的时间
Dim MyDate, MyYear MyDate = Date
MyYear = Year(MyDate) MsgBox MyYear
36、inputbox<输入框>
XX=InputBox (\
37、得到一个文件名
Dim kk As String
kk = Application.GetOpenFilename(\提示：请打开一个EXCEL文件：\
msgbox kk
38、打开zoom对话框
Application.Dialogs(xlDialogZoom).Show
39、激活字体对话框
Application.Dialogs(xlDialogActiveCellFont).Show
40、打开另存对话框
Dim kk As String
kk = Application.GetSaveAsFilename(\Workbooks.Open kk
十五、两个层面运行宏的方法
你既可以在Excel界面运行宏，也可以在VB编辑器界面运行它。当你从VB编辑器屏幕执行WhatsInACell时，VB在屏幕之后执行这些代码。你看不到VB选择和设置格式，也看不到VB插入三空
25
行做图例。为了观察到VB的执行情况，你必须在Excel界面，通过选择“工具”－“宏”，或者将你Excel界面和VB编辑器界面同时显示在电脑屏幕上（参见图1－6）
图1－6 如果你从VB编辑器运行宏时，想观察宏的运行情况，你必须将Excel界面和VB编辑器并排地布置在一起。按照下列步骤来并排布置你的Excel界面和VB编辑器界面：
1． 在任务栏上的空白处单击右键。任务栏在屏幕的下端，“开始”
按钮的位置。
2． 下列菜单中，选择“纵向平铺窗口” 3． 最小化那些不需要的窗口，重复步骤1
4． 现在，两个窗口并排显示了，点击代码的任意位置，然后按下
“F5”（或者选择“运行”－“运行模块/窗体”）。坐好，观察你录
26
制的宏在运行，不是很激动吗？稍后，你将学习如何将VB慢慢运行（F8逐步运行宏），这样你 就可以一步一步地观察宏代码的运行情况。 十六、DblClick 事件
当用户指向一个对象并双击鼠标时，发生 DblClick 事件。 1、语法
对于多页和 TabStrip
Private Sub object_DblClick( index As Long, ByVal Cancel As MSForms.ReturnBoolean) 对于其他事件
Private Sub object_DblClick( ByVal Cancel As MSForms.ReturnBoolean)
DblClick 事件的语法有以下几个成分：
成分 object index Cancel 必需。一个有效的对象。 必需。在 Pages 或 Tabs 集合里的 Page 或 Tab 对象的位置。 必需。事件状态。False 表示由控件处理该事件（这是默认方式）。True 表示由应用程序处理该事件。 说 明
2、说明
若要使该事件发生，这两次击键必须发生在由系统的双击速度设置所限定的时间范围之内。
对于支持 Click 的控件，DblClick 事件前发生的一系列事件有： MouseDown、MouseUp、Click、DblClick
27