VBA编程中的常用代码.docx

VBA编程中的常用代码.docx

《VBA编程中的常用代码.docx》由会员分享，可在线阅读，更多相关《VBA编程中的常用代码.docx（14页珍藏版）》请在冰豆网上搜索。

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（"E"）.Cut

ActiveSheet.Columns