VBA编程中的常用代码.docx
《VBA编程中的常用代码.docx》由会员分享，可在线阅读，更多相关《VBA编程中的常用代码.docx（12页珍藏版）》请在冰点文库上搜索。
VBA编程中的常用代码
Excel与VBA编程中得常用代码
用过VB得人都应该知道如何声明变量,在VBA中声明变量与VB中就是完全一样得！
使用Dim语句
Dimaasinteger'声明A为整形变量
Dima'声明A为变体变量
Dimaasstring'声明A为字符串变量
Dima,b,cascurrency'声明A,b,c为货币变量
、、、、、、
声明变量可以就是:
Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、Date、String（只限变长字符串）、String*length（定长字符串）、Object、Variant、用户定义类型或对象类型。
强制声明变量
OptionExplicit
说明:
该语句必在任何过程之前出现在模块中。
--------------------------------------------------------------------------------
声明常数,用来代替文字值。
Const
'常数得默认状态就是Private。
ConstMy=456
'声明Public常数。
PublicConstMyString="HELP"
'声明PrivateInteger常数。
PrivateConstMyIntAsInteger=5
'在同一行里声明多个常数。
ConstMyStr="Hello",MyDoubleAsDouble=3、4567
--------------------------------------------------------------------------------
在EXCEL97中,有一个十分好得功能,她就就是把鼠标放置在一个有效数据单元格中,执行该段代码,您就可以将连在一起得一片数据全部选中。
只要将该段代码加入到您得模块中。
SubMy_Select
Selection、CurrentRegion、Select
Endsub
--------------------------------------------------------------------------------
删除当前单元格中数据得前后空格。
submy_trim
Trim（ActiveCell、Value）
endsub
--------------------------------------------------------------------------------
使单元格位移
submy_offset
ActiveCell、Offset（0,1）、Select'当前单元格向左移动一格
ActiveCell、Offset（0,-1）、Select'当前单元格向右移动一格
ActiveCell、Offset（1,0）、Select'当前单元格向下移动一格
ActiveCell、Offset（-1,0）、Select'当前单元格向上移动一格
endsub
如果上述程序产生错误那就是因为单元格不能移动,为了解除上述错误,我们可以往
submy_offset之下加一段代码onerrorresumenext
--------------------------------------------------------------------------------
注意以下代码都不再添加sub“代码名称”与endsub请自己添加!
给当前单元格赋值:
ActiveCell、Value="您好！
！
！
"
给特定单元格加入一段代码:
例如:
在Ａ１单元格中插入"ＨＥＬＬＯ"
Range（"a1"）、value="hello"
又如:
您现在得工作簿在sheet1上,您要往sheet2得Ａ１单元格中插入"ＨＥＬＬＯ"
1、
sheets（"sheet2"）、select
range（"a1"）、value="hello"
或
2、
Sheets（"sheet1"）、Range（"a1"）、Value="hello"
说明:
1、sheet2被打开,然后在将“HELLO"放入到A1单元格中。
2、sheet2不被打开,将“HELLO"放入到A1单元格中。
--------------------------------------------------------------------------------
隐藏工作表
'隐藏SHEET1这张工作表
sheets（"sheet1"）、Visible=False
'显示SHEET1这张工作表
sheets（"sheet1"）、Visible=True
--------------------------------------------------------------------------------
有时候我们想把所有得EXCEL中得SHEET都打印预览,请使用该段代码,它将在您现有得工作簿中循环,直到最后一个工作簿结束循环预览。
DimmyAsWorksheet
ForEachmyInWorksheets
my、PrintPreview
Nextmy
--------------------------------------------------------------------------------
得到当前单元格得地址
msgboxActiveCell、Address
--------------------------------------------------------------------------------
得到当前日期及时间
msgboxdate&chr（13）&time
--------------------------------------------------------------------------------
保护工作簿
ActiveSheet、Protect
取消保护工作簿
ActiveSheet、Unprotect
--------------------------------------------------------------------------------
给当前工作簿改名为"liu"
ActiveSheet、Name="liu"
--------------------------------------------------------------------------------
打开一个应用程序
AppActivate（Shell（"C:
\WINDOWS\CALC、EXE"））
--------------------------------------------------------------------------------
增加一个工作簿
Worksheets、Add
删除当前工作簿
activesheet、delete
-------------------------------------------------------------------------------
打开一个文件
Workbooks、OpenFileName:
="C:
\MyDocuments\Book2、xls"
关闭当前工作簿
ActiveWindow、Close
--------------------------------------------------------------------------------
当前单元格定为:
左对齐
Selection、HorizontalAlignment=xlLeft
当前单元格定为:
中心对齐
Selection、HorizontalAlignment=xlCenter
当前单元格定为:
右对齐
Selection、HorizontalAlignment=xlRight
--------------------------------------------------------------------------------
当前单元格为百分号风格
Selection、Style="Percent"
--------------------------------------------------------------------------------
当前单元格字体为粗体
Selection、Font、Bold=True
当前单元格字体为斜体
Selection、Font、Italic=True
当前单元格字体为宋体20号字
WithSelection、Font
、Name="宋体"
、Size=20
EndWith
--------------------------------------------------------------------------------
With语句
With对象
、描述
EndWith
--------------------------------------------------------------------------------
让您得机器发出响声
BEEP
--------------------------------------------------------------------------------
清除单元格中所有文字、批注、格式、所有得东西！
ActiveCell、Clear
--------------------------------------------------------------------------------
测试选择状态得单元格得行数
MsgBoxSelection、Rows、Count
测试选择状态得单元格得列数
MsgBoxSelection、Columns、Count
--------------------------------------------------------------------------------
测试选择状态得单元格得地址
Selection、Address
--------------------------------------------------------------------------------
让所有得错误不再发生
ONERRORRESUMENEXT
--------------------------------------------------------------------------------
产生错误时让错误转到另一个地方
onerrorgotol
'code
l:
'code
--------------------------------------------------------------------------------
删除一个文件
kill"c:
\1、txt"
--------------------------------------------------------------------------------
定制自己得状态栏
Application、StatusBar="现在时刻:
"&Time
恢复自己得状态栏
Application、StatusBar=false
--------------------------------------------------------------------------------
在运行期执行一个宏
Application、Runmacro:
="text"
--------------------------------------------------------------------------------
滚动窗口到a1得位置
ActiveWindow、ScrollRow=1
ActiveWindow、ScrollColumn=1
--------------------------------------------------------------------------------
定制系统日期
DimMyDate,MyDay
MyDate=#12/12/69#
MyDay=Day（MyDate）
--------------------------------------------------------------------------------
今天得年限
DimMyDate,MyYear
MyDate=Date
MyYear=Year（MyDate）
MsgBoxMyYear
--------------------------------------------------------------------------------
产生一个inputbox<输入框>
InputBox（"Enternumberofmonthstoadd"）
--------------------------------------------------------------------------------
得到一个文件名:
DimkkAsString
kk=Application、GetOpenFilename（"EXCEL（*、XLS）,*、XLS",Title:
="提示:
请打开一个EXCEL文件:
"）
msgboxkk
--------------------------------------------------------------------------------
打开zoom对话框
Application、Dialogs（xlDialogZoom）、Show
--------------------------------------------------------------------------------
激活字体对话框
Application、Dialogs（xlDialogActiveCellFont）、Show
--------------------------------------------------------------------------------
打开另存对话框
DimkkAsString
kk=Application、GetSaveAsFilename（"excel（*、xls）,*、xls"）
Workbooks、Openkk
--------------------------------------------------------------------------------
此段代码寻找字符串中特定字符得位置,需要建立一个窗体,并在窗体中,放入TEXTBOX1,TEXTBOX2与TEXTBOX3（3个文本框）及MANDBUTTON1（按钮）,如下图所示:
PrivateSubmandButton1_Click（）
a=TextBox1、Text
b=TextBox2、Text
aa=Len（a）
i=1
DimYYAsString
Ifb=""ThenExitSub
Do
IfInStr（i,a,b,vbTextpare）=0ThenExitDo
kk=InStr（i,a,b,vbTextpare）
YY=YY&CStr（kk）&"/"
i=kk+1
LoopWhileaa>=i
TextBox3、Text=YY
EndSub
****************
*定制模块行为*
****************
OptionExplicit'强制对模块内所有变量进行声明
OptionPrivateModule'标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示
OptionpareText'字符串不区分大小写
OptionBase1'指定数组得第一个下标为1
OnErrorResumeNext'忽略错误继续执行VBA代码,避免出现错误消息
OnErrorGoToErrorHandler'当错误发生时跳转到过程中得某个位置
OnErrorGoTo0'恢复正常得错误提示
Application、DisplayAlerts=False'在程序执行过程中使出现得警告框不显示
Application、ScreenUpdating=False'关闭屏幕刷新
Application、ScreenUpdating=True'打开屏幕刷新
Application、Enable、CancelKey=xlDisabled'禁用Ctrl+Break中止宏运行得功能
Err、Clear'清除程序运行过程中所有得错误
**********
*工作簿*
**********
Workbooks、Add（）'创建一个新得工作簿
Workbooks（"book1、xls"）、Activate'激活名为book1得工作簿
ThisWorkbook、Save'保存工作簿
ThisWorkbook、close'关闭当前工作簿
ActiveWorkbook、Sheets、Count'获取活动工作薄中工作表数
ActiveWorkbook、name'返回活动工作薄得名称
ThisWorkbook、Name'返回当前工作簿名称
ThisWorkbook、FullName'返回当前工作簿路径与名称
ActiveWindow、EnableResize=False'禁止调整活动工作簿得大小
Application、Window、ArrangexlArrangeStyleTiled'将工作簿以平铺方式排列
ActiveWorkbook、WindowState=xlMaximized'将当前工作簿最大化
ThisWorkbook、BuiltinDocumentProperties（""LastSaveTime"）
或Application、Caller、Parent、Parent、BuiltinDocumentProperties（""LastSaveTime"）'返回上次保存工作簿得日期与时间
ThisWorkbook、BuiltinDocumentProperties（"LastPrintDate"）
或Application、Caller、Parent、Parent、BuiltinDocumentProperties（""LastPrintDate"）'返回上次打印或预览工作簿得日期与时间
Workbooks、Close'关闭所有打开得工作簿
ActiveWorkbook、LinkSources（xlExcelLinks）'返回当前工作簿中得第一条链接
ActiveWorkbook、CodeName
ThisWorkbook、CodeName'返回工作簿代码得名称
ActiveWorkbook、
ThisWorkbook、'返回当前工作簿文件格式代码
ThisWorkbook、Path
ActiveWorkbook、Path'返回当前工作簿得路径（注:
若工作簿未保存,则为空）
ThisWorkbook、ReadOnly
ActiveWorkbook、ReadOnly'返回当前工作簿得读/写值（为False）
ThisWorkbook、Saved
ActiveWorkbook、Saved'返回工作簿得存储值（若已保存则为False）
Application、Visible=False'隐藏工作簿
Application、Visible=True'显示工作簿
注:
可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体、可设置控制按钮控制工作簿可见
**********
*工作表*
**********
ActiveSheet、UsedRange、Rows、Count'当前工作表中已使用得行数
Rows、Count'获取工作表得行数（注:
考虑向前兼容性）
Sheets（Sheet1）、Name="Sum"'将Sheet1命名为Sum
ThisWorkbook、Sheets、AddBefore:
=Worksheets'添加一个新工作表在第一工作表前
ActiveSheet、MoveAfter:
=ActiveWorkbook、_
Sheets（ActiveWorkbook、Sheets、Count）'将当前工作表移至工作表得最后
Worksheets（Array（"sheet1","sheet2"））、Select'同时选择工作表1与工作表2
Sheets（"sheet1"）、Delete或Sheets
（1）、Delete'删除工作表1
ActiveWorkbook、Sheets（i）、Name'获取工作表i得名称
ActiveWindow、DisplayGridlines=NotActiveWindow、DisplayGridlines'切换工作表中得网格线显示,这种方法也可以用在其它方面进行相互切换,即相当于开关按钮
ActiveWindow、DisplayHeadings=NotActiveWindow、DisplayHeadings'切换工作表中得行列边框显示
ActiveSheet、UsedRange、FormatConditions、Delete'删除当前工作表中所有得条件格式
Cells、Hyperlinks、Delete'取消当前工作表所有超链接
ActiveSheet、PageSetup、Orientation=xlLandscape
或ActiveSheet、PageSetup、Orientation=2'将页面设置更改为横向
ActiveSheet、PageSetup、RightFooter=ActiveWorkbook、FullName'在页面设置得表尾中输入文件路径
ActiveSheet、PageSetup、LeftFooter=Application、UserName'将用户名放置在活动工作表得页脚
ActiveSheet、Columns（"B"）、Insert'在A列右侧插入列,即插入B列
ActiveSheet、Columns（"E"）、Cut
ActiveSheet、Columns（"B"）、Insert'以上两句将E列数据移至B
升级会员 