VBA程序开发语句集锦解析Word文档格式.docx
《VBA程序开发语句集锦解析Word文档格式.docx》由会员分享，可在线阅读，更多相关《VBA程序开发语句集锦解析Word文档格式.docx（11页珍藏版）》请在冰豆网上搜索。
.Worksheets（"
Sheet1"
.Cells（1,1.Formula="
Workbooks（"
.Cells（1,1.Value=所赋的数值
5Switch关闭屏幕更新Application.ScreenUpdating=False
执行以上语句后,将停止屏幕显示更新动作,可以达到提高运算速度、避免屏幕闪动的效果
6Sentence查找数据区域某列的最大行号RowMax=Workbooks（ExcelBookName.Worksheets（SheetName.Cells（65536,C1.End（xlUp.Row
其中C1为指定的某列的列号
7Sentence查找数据区域某行的最大列号ColMax=Workbooks（ExcelBookName.Worksheets（SheetName.Cells（R1,255.End（xlToLeft.Column
其中R1为指定的某行的行号
获取数据区的最大列号获取第3行的最大列号:
Worksheets（1.cells（3,255.End（xlToLeft.Column
8Sentence复制工作表内所有单元格Cells.Copy
9Switch关闭预警设置Application.DisplayAlerts=False（Application.DisplayAlerts=True
当执行文件存盘,在存储目录中有相同名称的文件时,如果执行了以上语句,则不再提出预警
一般在使用完以上语句后,则立即执行括号内的对应语句,避免不可预知的错误发生
10Switch关闭文件时不执行存盘动作Workbooks（File.Closesavechanges:
=False
11Function从一个字符串中截取一个子串Mid（string,start,x;
其中string为原字符串,start为开始位置,x为截取子字符串的长度
也可以使用函数:
Right（text,num_chars和Left（text,num_chars返回子字符串
12Function计算两个日期之间的天数、月份语法:
=DATEDIF（start_date,end_date,unit
数、年数1.Start_date:
代表一段时期的第一个日期或起始日的日期。
日期可以放在引号内作为文本字符串输入（如"
2001-1-30"
也可以作为序列数（如36921,
如果使用的是1900日期系统,则它代表2001年130日输入,或作为其他公式或函数的结果
（如DATEVALUE（"
输入。
2.End_date:
代表一段时期的最后一个日期或结束日的日期。
3.Unit:
要返回的信息的类型:
"
Y"
"
M"
D"
MD"
YM"
YD"
表示返回忽略了年份的天数;
表示返回忽略了年份和月份的天数
13Switch强制要求对变量进行定义OptionExplicit
在模块的开始部分执行以上语句,则所有变量必须先行定义之后才能使用
14Sentence使用程序在单元格内写入公式ActiveSheet.Cells（4,11.FormulaR1C1="
=SUM（R[2]C:
R[65532]C"
15Sentence判断语句1If…Then…Else…;
If…Then…Else…EndIf（此形式为多行写法
IfconditionThen[statements][Elseelsestatements][EndIf]
2Select…Case…Case…CaseElse…EndCase
16Sentence循环语句1Forcounter=startToend[Stepstep]…[ExitFor]…Nextcounter
2ForEachelementIngroup…[ExitFor]…Next
3Do{while|until}condition…[ExitDo]…Loop
4Do…[ExitDo]…Loop{while|until}condition
17Sentenceauto_openandauto_closeSubauto_open（…SubEnd;
Subauto_close（…SubEnd
当Exel文件打开时或者关闭时执行的模块
18FunctionExcel定时器Application.OnTimeNow+TimeValue（"
00:
05:
00"
"
SaveIt"
以上语句的功能为,当执行以上语句5分钟后,执行过程SaveIt,从而起到延时功能
Application.OnTimeTimeValue（"
17:
"
Show_my_msg"
以上语句的功能为,当执行以上语句后,在之后的17点钟调用过程Show_my_msg
19Sentence调用Windows打开文件对话框FileName=Application.GetOpenFilename（"
Excel文件（*.xls,*.xls"
执行以上语句后,即出现Windows打开文件对话框,选择文件后,变量FileName的内容即为需要打开
文件的路径名和文件名
20Switch显现和隐藏工作表隐藏工作表:
Sheets（"
.Visible=False
显现工作表:
.Visible=True
21Switch删除工作表上的按钮ActiveSheet.Shapes（"
CommandButton1"
.Delete
22Sentence当前工作薄另存ActiveWorkbook.SaveAsFileName:
=FilePatch&
FileName
23File关闭当前工作薄ActiveWindow.Close
24Exprresion使用公式计算行号（列号返回当前的行号:
=row（
返回当前的列号:
=Column（
25ErrorByRef参数不符的原因1.传递的变量未定义参数类型,系统默认为Variant类型,导致传递时类型不符;
2.变量定义方式不正确:
如DimI,jasInteger,中的i认为没有定义
26Serface各个常用工具栏的显示和隐藏Application.CommandBars（"
WorksheetMenuBar"
.Enabled=True'
显示菜单栏,False隐藏
Application.CommandBars（"
ToolbarList"
显示工具栏,False隐藏下同
Standard"
.Visible=True'
显示常用工具栏
Formatting"
显示格式工具栏
Application.DisplayFormulaBar=True'
显示编辑栏
WithActiveWindow.DisplayGridlines=True'
显示网格
.DisplayHeadings=True'
显示行号列标
.DisplayOutline=True'
显示分级显示符号
.DisplayZeros=True'
显示零值.
DisplayHorizontalScrollBar=True'
显示水平滚动条.
DisplayVerticalScrollBar=True'
显示垂直滚动条.
DisplayWorkbookTabs=True'
显示工作表标签
27Event文件关闭事件PrivateSubWorkbook_BeforeClose（CancelAsBooleanEndSub
28Event失去焦点事件PrivateSubWorkbook_WindowDeactivate（ByValWnAsWindowEndSub
28Sentence使用语句设置单元格公式在当前A1单元格内输入公式:
=C2,则分别表现为
Formula与FormulaR1C1的区别Cells（1,1.Formula="
=C2"
Cells（1,1.FormulaR1C1="
=R[1]C[2]"
'
其中1与2为单元格相对偏移量
29SentenceOnErrorResumeNext说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。
30PublicConst用于在文件级强制对该文件中的所有变量进行显式声明
31SentencePublic用于定义公用的全局变量
32FunctionASCII码与字符之间的转换函数Chr（65的值为A;
Asc（"
A"
的值为65
33SentenceOptionExplicit用在模块的头部,要求强制对使用的变量进行预定义
34OperationShift键以图片格式复制选定一单元格区域,按住Shift键,同时在主菜单中:
编辑=>
复制图片
35Operation转置粘贴使用选择性粘贴,选择对话框中的转置选项即可。
36SentenceVBA生成下拉选单的设置1.设置下拉选单,同时不允许输入选单意外的内容
Cells（I,j.Validation.Delete
Cells（I,j.Validation.AddType:
=xlValidateList,Formula1:
="
SelectList"
2.设置下拉选单,但是可以输入选单以外的内容
Cells（I,j.Validation.ShowErrow=False
37Sentence禁止/启用事件触发1.禁止所有事件:
Application.EnableEvents=False
2.启用所有事件:
Application.EnableEvents=Tru
升级会员 