Excel-常用宏编程的代码学习.docx

文档介绍：Excel-常用宏编程的代码学****br/> Excel 常用宏编程的代码学****br/>用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！
使用Dim语句
Dim a as integer '声明a为整型变量
域的行数
MsgBox
返回选定区域的列数
MsgBox
返回选定区域的地址

忽略所有的错误
ON ERROR RESUME NEXT
遇错跳转
on error goto err_handle
'中间的其他代码
err_handle: ' 标签
'跳转后的代码
删除一个文件
kill "c:\"
定制自己的状态栏
= "现在时刻: " & Time
恢复自己的状态栏
= false
用代码执行一个宏
macro:="text"
滚动窗口到a1的位置
= 1
= 1
定制系统日期
Dim MyDate, MyDay
MyDate = #12/12/69#
MyDay = Day(MyDate)
返回当天的时间
Dim MyDate, MyYear
MyDate = Date
MyYear = Year(MyDate)
MsgBox MyYear
inputbox<输入框>
XX=InputBox ("Enter number of months to add")
得到一个文件名
Dim kk As String
kk = ("EXCEL (*.XLS), *.XLS", Title:="提示：请打开一个EXCEL文件：")
msgbox kk
打开zoom对话框
(xlDialogZoom).Show
激活字体对话框
(xlDialogActiveCellFont).Show
打开另存对话框
Dim kk As String
kk = ("excel (*.xls), *.xls")
kk
VBA常用语言
         定制模块行为 (1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text '字符串不区分大小写 Option Base 1 '指定数组的第一个下标为1 (2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置 (4) On Error GoTo 0 '恢复正常的错误提示 (5) =False '在程序执行过程中使出现的警告框不显示 (6) =False '关闭屏幕刷新 =True '打开屏幕刷新 (7) =xlDisabled '禁用Ctrl+Break中止宏运行的功能　工作簿 (8) () '创建一个新的工作簿 (9) Workbooks(“”).Activate '激活名为book1的工作簿 (10) '保存工作簿 (11) '关闭当前工作簿 (12) '获取活动工作薄中工作表数 (13) '返回活动工作薄的名称 (14) ‘返回当前工作簿名称