VBA编程中的常用代码.docx

Excel与VBA编程中的常用代码
用过VB的人都应该知道如何声明变量,在VBA中声明变量和VB中是完全一样的！
使用Dim语句
Dimaasinteger'声明A为整形变量
Dima'声明A为变体变量
Dimaasstring'ORRESUMENEXT
—
产生错误时让错误转到另一个地方
onerrorgotol
code
code
—
删除一个文件
kill"c:\"
—
定制自己的状态栏
="现在时刻："&Time
恢复自己的状态栏
=false
—
在运行期执行一个宏
macro:="text"
滚动窗口到al的位置
=1
=1
定制系统日期
DimMyDate,MyDay
MyDate=#12/12/69#
MyDay=Day(MyDate)
今天的年限
DimMyDate,MyYear
MyDate=Date
MyYear=Year(MyDate)
MsgBoxMyYear
产生一个inputbox＜输入框＞
nputBox("Enternumberofmonthstoadd")
得到一个文件名：
DimkkAsString
kk=("EXCEL(*.XLS),*.XLS",Title:疆示：请翻开一个EXCE戊件：")
msgboxkk
—
翻开zoom对话框
(xlDialogZoom).Show
—
激活字体对话框
(xlDialogActiveCellFont).Show
—
翻开另存对话框
DimkkAsString
kk=("excel(*.xls),*.xls")
kk
此段代码寻找字符串中特定字符的位置,需要建立一个窗体,并在窗体中,放入TEXTBOX1,TEXTBOX2TEXTBOX3(於文本框)及
COMMANDBUTTON1阳钮),如下列图所示：
PrivateSubCommandButton1_Click()a=b=aa=Len(a)
=1
DimYYAsString
Ifb=""ThenExitSub
Do
IfInStr(i,a,b,vbTextCompare)=0ThenExitDo
kk=InStr(i,a,b,vbTextCompare)
YY=YY&CStr(kk)&"/"
=kk+1
LoopWhileaa>=i
=YY
EndSub
****************
*定制模块行为*
****************
OptionExplicit'强制对模块内所有变量进行声明
OptionPrivateModule'标记模块为私有,仅对同一工程中其它模块有用,在宏对话
框中不显示
OptionCompareText字符串不区分大小写
OptionBase1指定数组的第一个下标为1
OnErrorResumeNext忽略错误继续执行VBA代码,防止出现错误消息
OnErrorGoToErrorHandler当错误发生时跳转到过程中的某个位置
OnErrorGoTo0恢复正常的错误提示
=False在程序执行过程中使出现的警告框不显示
=False关闭屏幕刷新
=True'翻开屏幕刷新
'禁用Ctrl+Break中止宏运行的功能
'去除程序运行过程中所有的错误
**********
工作簿*
**********
()'创立一个新的工作簿
Workbooks("").Activate'激活名为book1的工作簿
'保存工作簿
'关闭当前工作簿
'获取活开工作薄中工作表数
'返回活开工作薄的名称
'返回当前工作簿名称
'返回当前工作簿路径和名称
=False禁止调整活开工作簿的大小
xlArrangeStyleTiled将工作簿以平铺方式排列'
=xlMaximized'将当前工作簿最大化
(""LastSaveTime")
或""LastSaveTime")返回上次保存工作簿的日期和时间
("LastPrintDate")
或""LastPrintDate")'返回上次打印或预览工作簿的日期和时间
'关闭所有翻开的工作簿
(xlExcelLinks)M回当前工作簿中的第一条链接
'返回工作簿代码的名称
'返回当前工作簿文件格式代码
'返回当前工作簿的路径(注:假设工作簿未保存,那么为空)
'返回当前工作簿的读/写值(为False)
'返回工作簿的存储值(假设已保存那么为False)
=False隐藏工作簿
=True'显示工作簿
注:可与用户窗体配合使用,即在翻开工作簿时将工作簿隐藏,
设置限制按钮限制工作簿可见
**********
工作表*