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个文本框）及COMMANDBUTTON1（按钮），如下图所示：
PrivateSubCommandButton1_Click（）
a=TextBox1.Text
b=TextBox2.Text
aa=Len（a）
i=1
DimYYAsString
Ifb=""ThenExitSub
Do
IfInStr（i,a,b,vbTextCompare）=0ThenExitDo
kk=InStr（i,a,b,vbTextCompare）
YY=YY&CStr（kk）&"/"
i=kk+1
LoopWhileaa>=i
TextBox3.Text=YY
EndSub
****************
*定制模块行为*
****************
OptionExplicit'强制对模块内所有变量进行声明
OptionPrivateModule'标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示
OptionCompareText'字符串不区分大小写
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.FileFormat
ThisWorkbook.FileFormat'返回当前工作簿文件格式代码
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（
升级会员 