VBA函数大全Word文档格式.docx
《VBA函数大全Word文档格式.docx》由会员分享，可在线阅读，更多相关《VBA函数大全Word文档格式.docx（17页珍藏版）》请在冰点文库上搜索。
DatePart函数
返回一个包含已知日期的指定时间部分的Variant（Integer）。
DateSerial函数
返回包含指定的年、月、日的Variant（Date）。
DateValue函数
返回一个Variant（Date）。
Day函数
返回一个Variant（Integer），其值为1到31之间的整数，表示一个月中的某一日。
DDB函数
返回一个Double，指定一笔资产在一特定期间内的折旧。
可使用双下落收复平衡方法或其它指定的方法进行计算。
Dir函数
返回一个String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。
DoEvents函数
转让控制权，以便让操作系统处理其它的事件。
Environ函数
返回String，它关连于一个操作系统环境变量。
在Macintosh中不可用
EOF函数
返回一个Integer，它包含Boolean值True，表明已经到达为Random或顺序Input打开的文件的结尾。
Error函数
返回对应于已知错误号的错误信息。
Exp函数
返回Double，指定e（自然对数的底）的某次方。
FileAttr函数
返回一个Long，表示使用Open语句所打开文件的文件方
FileDateTime函数
返回一个Variant（Date），此为一个文件被创建或最后修改后的日期和时间。
Filter函数
描述
返回一个下标从零开始的数组，该数组包含基于指定筛选条件的一个字符串数组的子集。
FormatCurrency函数
返回一个货币值格式的表达式，它使用系统控制面板中定义的货币符号
FormatDateTime函数
返回一个日期或时间格式的表达式。
FormatNumber函数
返回一个数字格式的表达式。
语法
FormatPercent函数
返回一个百分比格式（乘以100）的表达式，后面有%符号。
FreeFile函数
返回一个Integer，代表下一个可供Open语句使用的文件号。
FV函数
返回一个Double，指定未来的定期定额支付且利率固定的年金。
GetAllSettings函数
从Windows注册表或（Macintosh中）应用程序初始化文件中的信息中返回应用程序项目的所有注册表项设置及其相应值（开始是由SaveSetting产生）。
GetAttr函数
返回一个Integer，此为一个文件、目录、或文件夹的属性。
GetObject函数
返回文件中的ActiveX对象的引用。
Hex函数
返回代表十六进制数值的String。
Hour函数
返回一个Variant（Integer），其值为0到23之间的整数，表示一天之中的某一钟点。
IIf函数
根据表达式的值，来返回两部分中的其中一个。
IMEStatus函数
返回一个Integer，用来指定当前MicrosoftWindows的输入法（IME）方式；
只对东亚区版本有效。
Input函数
返回String，它包含以Input或Binary方式打开的文件中的字符。
InputBox函数
在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。
InStr函数
返回Variant（Long），指定一字符串在另一字符串中最先出现的位置。
InStrRev函数
返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。
Int、Fix函数
返回参数的整数部分。
IPmt函数
返回一个Double，指定在一段时间内对定期定额支付且利率固定的年金所支付的利息值。
IRR函数
返回一个Double，指定一系列周期性现金流（支出或收入）的内部利率。
IsArray函数
返回Boolean值，指出变量是否为一个数组。
IsDate函数
返回Boolean值，指出一个表达式是否可以转换成日期。
IsEmpty函数
返回Boolean值，指出变量是否已经初始化。
IsError函数
返回Boolean值，指出表达式是否为一个错误值。
IsMissing函数
返回Boolean值，指出一个可选的Variant参数是否已经传递给过程。
IsNull函数
返回Boolean值，指出表达式是否不包含任何有效数据（Null）。
IsNumeric函数
返回Boolean值，指出表达式的运算结果是否为数。
IsObject函数
返回Boolean值，指出标识符是否表示对象变量。
LCase函数
返回转成小写的String。
Left函数
返回Variant（String），其中包含字符串中从左边算起指定数量的字
Len函数
返回Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。
Loc函数
返回一个Long，在已打开的文件中指定当前读/写位置。
LOF函数
返回一个Long，表示用Open语句打开的文件的大小，该大小以字节为单位。
Log函数
返回一个Double，指定参数的自然对数值。
LTrim、RTrim与Trim函数
返回Variant（String），其中包含指定字符串的拷贝，没有前导空白（LTrim）、尾随空白（RTrim）或前导和尾随空白（Trim）。
MacID函数
此函数用在Macintosh上，将长为4个字符的常量转换成被Dir,Kill,Shell,和AppActivate.使用的值。
MacScript函数
执行一个脚本并返回由此脚本返回的值，如果脚本有返回值的话
Mid函数
返回Variant（String），其中包含字符串中指定数量的字符。
Minute函数
返回一个Variant（Integer），其值为0到59之间的整数，表示一小时中的某分钟。
MIRR函数
返回一个Double，指定一系列修改过的周期性现金流（支出或收入）的内部利率。
Month函数
返回一个Variant（Integer），其值为1到12之间的整数，表示一年中的某月。
MonthName函数
返回一个表示指定月份的字符串。
MsgBox函数
在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。
Now函数
返回一个Variant（Date），根据计算机系统设置的日期和时间来指定日期和时间。
NPer函数
返回一个Double，指定定期定额支付且利率固定的总期数。
NPV函数
返回一个Double，指定根据一系列定期的现金流（支付和收入）和贴现率而定的投资净现值。
Oct函数
返回Variant（String），代表一数值的八进制值。
Partition函数
返回一个Variant（String），指定一个范围，在一系列计算的范围中指定的数字出现在这个范围内。
Pmt函数
返回一个Double，指定根据定期定额支付且利率固定的年金支付额。
PPmt函数
返回一个Double，指定在定期定额支付且利率固定的年金的指定期间内的本金偿付额。
PV函数
返回一个Double指定在未来定期、定额支付且利率固定的年金现值。
QBColor函数
返回一个Long，用来表示所对应颜色值的RGB颜色码。
Rate函数
返回一个Double，指定每一期的年金利率。
Replace函数
返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。
RGB函数
返回一个Long整数，用来表示一个RGB颜色值。
Right函数
返回Variant（String），其中包含从字符串右边取出的指定数量的字符。
Rnd函数
返回一个包含随机数值的Single。
Round函数
返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。
Second函数
返回一个Variant（Integer），其值为0到59之间的整数，表示一分钟之中的某个秒。
Seek函数
返回一个Long，在Open语句打开的文件中指定当前的读/写位置。
Sgn函数
返回一个Variant（Integer），指出参数的正负号。
Shell函数
执行一个可执行文件，返回一个Variant（Double），如果成功的话，代表这个程序的任务ID，若不成功，则会返回0。
Sin函数
返回一Double，指定参数的sine（正弦）值。
SLN函数
返回一个Double，在一期里指定一项资产的直线折旧。
Sqr函数
返回一个Double，指定参数的平方根。
Space函数
返回特定数目空格的Variant（String）。
Spc函数
与Print#语句或Print方法一起使用，对输出进行定位。
Str函数
返回代表一数值的Variant（String）。
StrComp函数
返回Variant（Integer），为字符串比较的结果。
StrConv函数
返回按指定类型转换的Variant（String）。
StrReverse函数
返回一个字符串，其中一个指定子字符串的字符顺序是反向的。
String函数
返回Variant（String），其中包含指定长度重复字符的字符
Switch函数
计算一组表达式列表的值，然后返回与表达式列表中最先为True的表达式所相关的Variant数值或表达式。
SYD函数
返回一个Double，指定某项资产在一指定期间用年数总计法计算的折旧。
Tab函数
Tan函数
返回一个Double的值，指定一个角的正切值。
Time函数
返回一个指明当前系统时间的Variant（Date）。
Timer函数
返回一个Single，代表从午夜开始到现在经过的秒数。
TimeSerial函数
返回一个Variant（Date），包含具有具体时、分、秒的时间。
TimeValue函数
返回一个包含时间的Variant（Date）。
TypeName函数
返回一个String，提供有关变量的信息。
UBound函数
返回一个Long型数据，其值为指定的数组维可用的最大下标。
UCase函数
返回Variant（String），其中包含转成大写的字符串。
Val函数
返回包含于字符串内的数字，字符串中是一个适当类型的数值。
VarType函数
返回一个Integer，指出变量的子类型。
Weekday函数
返回一个Variant（Integer），包含一个整数，代表某个日期是星期几。
WeekdayName函数
返回一个字符串，表示一星期中的某天。
Year函数
返回Variant（Integer），包含表示年份的整数。
最近表格作得很多，我这人又比较懒，于是很多工作都交给了VBA。
特地找了一些VBA的常用代码，大家分享一下。
Application（Excel程序）
=True/False’启用/禁用所有事件=True/False’显示/关闭警告框提示框=True/False’显示/关闭屏幕刷新="
软件报专用"
’在地址栏中显示文本，标题栏用Caption属性=xlIBeam‘设置光标形状为Ⅰ字形，xlWait为沙漏（等待）形，xlNormal为正常=xlMinimized‘窗口最小化，xlMaximized最大化，xlNormal为正常xlMicrosoftWord’开启Word应用程序‘获取工作簿模板的位置’重新计算所有打开的工作簿中的数据=2’将最近使用的文档列表数设为2（3）.Open’打开最近打开的文档中的第3个文档"
sweek"
"
软件报"
’自动将输入的"
更正为"
（xlDialogPrint）.Show‘显示打印文档的对话框Now+TimeValue（"
00:
45"
）,"
process"
’45分钟后执行指定过程TimeValue（"
14:
00"
process"
’下午2点执行指定过程EarliestTime:
=TimeValue（"
）,_Procedure:
="
Schedule:
=False’取消指定时间的过程的执行
工作簿/工作表
’获取活动工作薄中工作表数（xlExcelLinks）
（1）‘返回当前工作簿中的第一条链接（“sheet2”）.Visible=xlSheetHidden‘隐藏工作表，与在Excel菜单中执行“格式—工作表—隐藏”操作一样（“sheet2”）.Visible=xlSheetVeryHidden‘隐藏工作表，不能通过在Excel菜单中执行“格式—工作表—取消隐藏”来重新显示工作表（“sheet2”）.Visible=xlSheetVisible‘显示被隐藏的工作表
（1）.ProtectContents‘检查工作表是否受到保护（"
B"
）.Cut（"
F"
）.Insert‘以上两句将B列数据移至F列，原C列后的数据左移（“A:
A”）.‘自动调整当前工作表A列的列宽‘选中当前工作表中常量和文本单元格‘选中当前工作表中常量和文本及错误值单元格‘当前工作表中已使用的行数（3）,,2‘在第3张工作表之前添加2个新的工作表After:
=’将当前工作表移至工作表的最后Worksheets（Array（“sheet1”,”sheet2”））.Select’同时选择工作表sheet1和sheet2‘删除当前工作表中应用的条件格式‘取消当前工作表中所有单元格的超链接‘在页脚显示文件的路径Enablechanges:
=False‘禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮
单元格/单元格区域
‘获取已使用的单元格区域的第一行的行号Range（“A65536”）.End（xlUp）.Row‘返回A列最后一行（即记录的总条数）（“A1”）.HasFormula‘检查单元格或单元格区域中的第一个单元格是否含有公式或‘工作表中单元格是否含有公式‘选择单元格所在的整个列，为选择单元格所在的整行‘活动单元格所在的行号为活动单元格所在的列数=2’将当前工作表窗口滚动到第2行=5’将当前工作表窗口滚动到第5列Worksheets（"
sheet1"
）.Range（"
A1:
C5"
）.CopyPicturexlScreen,xlBitmap’将指定的单元格区域的内容复制成屏幕快照‘删除所选区域的所有链接（1,1）.=TRUE‘Bold属性用于设置字体是否为加粗，Size属性设置字体大小，ColorIndex属性设置字体颜色（其值为颜色索引号），Italic属性设置字型是否为倾斜，Name属性设置字体名称（1,1）.=3‘将单元格的背景色设置为红色IsEmpty’判断活动单元格中是否有值=UCase’将当前单元格中的字符转换成大写=StrConv,vbLowerCase）’将活动单元格中的字符串转换成小写’选择当前活动单元格所在的连续的非空区域，也可以用Range（ActiveCell,（xlDown））.Select（1,0）.Select’活动单元格下移一行Range（“B2”）.Offset（ColumnOffset:
=1）或Range（“B2”）.Offset（,1）‘读取指定单元格右侧单元格中的数据Range（“B2”）.Offset（Rowoffset:
=-1）或Range（“B2”）.Offset（-1）‘读取指定单元格上一行单元格中的数据Range（“A1”）.CopyRange（“B1”）’复制单元格A1中的内容到B1中Range（“A1:
D8”）.CopyRange（“H1”）’将指定单元格区域复制到从H1开始的区域中，用Cut方法可以实现剪切操作="
’将指定字符串输入到所选单元格区域中
窗体（控件）
OptionExplicit’强制对模块内所有变量进行声明‘显示用户窗体LoadUserform1‘加载一个用户窗体,但该窗体处于隐藏状态‘隐藏用户窗体UnloadUserform1或UnloadMe‘卸载用户窗体=Int*‘窗体高度为当前活动窗口高度的一半，宽度用ActiveWindow.Width属性Sheets（"
Sheet1"
）.Cells（1,1）‘将指定单元格中的数据添加到复合框中=MyProduct（）‘将数组MyProduct的值添加到列表框ListBox1中=”Sheet1!
isum”‘将工作表Sheet1中名为的isum区域的值添加到列表框中（0）‘选中列表框中的指定的条目‘移除列表框中选中的条目IfMsgBox（“要退出吗”,vbYesNo）<
>
vbYesThenExitSub’返回值不为“是”，则退出Config=vbYesNo+vbQuestion+vbDefaultButton2’使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮MsgBox“Thisisthefirstline.”&
vbNewLine&
“Secondline.”’在消息框中强制换行，也可用vbCrLf代替vbNewLine。
MsgBox"
平均值为:
"
&
Format"
#,##"
）,vbInformation,"
显示选区平均值"
’应用工作表函数返回所选区域的平均值并按指定显示的格式
公式与函数
’检查指定单元格中的数据是否为数字Range（“A:
A”）.Find’激活单元格区域A列中最大值的单元格Macro:
=”GetSum”,Category:
=4‘将自定义的GetSum函数指定给Excel中的“统计函数”类别Macro:
=”GetSum”,_Description:
=”先求和,然后再输出。
”‘为自定义函数GetSum进行功能说明‘返回该单元格所在列非空单元格的数量，所在行使用EntireRow属性‘返回当前工作表中非空单元格数量
图表
‘删除工作表中所有的ChartObject对象‘删除当前工作簿中所有的图表工作表’获取当前工作表中图表的个数Worksheets（"
）.ChartObjects
（1）.Filename:
C:
\"
FilterName:
GIF"
‘将指定工作表中的图表1导出到C盘上并命名为
升级会员 