1、VBA函数大全VBA函数大全LT返回包含指定的年、月、日的Variant(Date)。DateValue函数返回一个Variant(Date)。Day函数返回一个Variant(Integer)，其值为1到31之间的整数，表示一个月中的某一日。DDB函数返回一个Double，指定一笔资产在一特定期间内的折旧。可使用双下落收复平衡方法或其它指定的方法进行计算。Dir函数返回一个String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。DoEvents函数转让控制权，以便让操作系统处理其它的事件。Environ函数返回String，它关连于一个操作系统环
2、境变量。在Macintosh中不可用EOF函数返回一个Integer，它包含Boolean值True，表明已经到达为Random或顺序Input打开的文件的结尾。Error函数返回对应于已知错误号的错误信息。Exp函数返回Double，指定e（自然对数的底）的某次方。FileAttr函数返回一个Long，表示使用Open语句所打开文件的文件方FileDateTime函数返回一个Variant(Date)，此为一个文件被创建或最后修改后的日期和时间。Filter函数描述返回一个下标从零开始的数组，该数组包含基于指定筛选条件的一个字符串数组的子集。FormatCurrency函数描述返回一个货币值
3、格式的表达式，它使用系统控制面板中定义的货币符号FormatDateTime函数描述返回一个日期或时间格式的表达式。FormatNumber函数描述返回一个数字格式的表达式。语法FormatPercent函数描述返回一个百分比格式（乘以100）的表达式，后面有%符号。FreeFile函数返回一个Integer，代表下一个可供Open语句使用的文件号。FV函数返回一个Double，指定未来的定期定额支付且利率固定的年金。GetAllSettings函数从Windows注册表或(Macintosh中)应用程序初始化文件中的信息中返回应用程序项目的所有注册表项设置及其相应值（开始是由SaveSett
4、ing产生）。GetAttr函数返回一个Integer，此为一个文件、目录、或文件夹的属性。GetObject函数返回文件中的ActiveX对象的引用。Hex函数返回代表十六进制数值的String。Hour函数返回一个Variant(Integer)，其值为0到23之间的整数，表示一天之中的某一钟点。IIf函数根据表达式的值，来返回两部分中的其中一个。IMEStatus函数返回一个Integer，用来指定当前MicrosoftWindows的输入法(IME)方式；只对东亚区版本有效。Input函数返回String，它包含以Input或Binary方式打开的文件中的字符。InputBox函数在一
5、对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。InStr函数返回Variant(Long)，指定一字符串在另一字符串中最先出现的位置。InStrRev函数描述返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。Int、Fix函数返回参数的整数部分。IPmt函数返回一个Double，指定在一段时间内对定期定额支付且利率固定的年金所支付的利息值。IRR函数返回一个Double，指定一系列周期性现金流（支出或收入）的内部利率。IsArray函数返回Boolean值，指出变量是否为一个数组。IsDate函数返回Boolean值，指出一个表达式是否可以转换
6、成日期。IsEmpty函数返回Boolean值，指出变量是否已经初始化。IsError函数返回Boolean值，指出表达式是否为一个错误值。IsMissing函数返回Boolean值，指出一个可选的Variant参数是否已经传递给过程。IsNull函数返回Boolean值，指出表达式是否不包含任何有效数据(Null)。IsNumeric函数返回Boolean值，指出表达式的运算结果是否为数。IsObject函数返回Boolean值，指出标识符是否表示对象变量。LCase函数返回转成小写的String。Left函数返回Variant(String)，其中包含字符串中从左边算起指定数量的字Len函
7、数返回Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。Loc函数返回一个Long，在已打开的文件中指定当前读/写位置。LOF函数返回一个Long，表示用Open语句打开的文件的大小，该大小以字节为单位。Log函数返回一个Double，指定参数的自然对数值。LTrim、RTrim与Trim函数返回Variant(String)，其中包含指定字符串的拷贝，没有前导空白(LTrim)、尾随空白(RTrim)或前导和尾随空白(Trim)。MacID函数此函数用在Macintosh上，将长为4个字符的常量转换成被Dir,Kill,Shell,和AppActivate.使用的值。MacS
8、cript函数执行一个脚本并返回由此脚本返回的值，如果脚本有返回值的话Mid函数返回Variant(String)，其中包含字符串中指定数量的字符。Minute函数返回一个Variant(Integer)，其值为0到59之间的整数，表示一小时中的某分钟。MIRR函数返回一个Double，指定一系列修改过的周期性现金流（支出或收入）的内部利率。Month函数返回一个Variant(Integer)，其值为1到12之间的整数，表示一年中的某月。MonthName函数描述返回一个表示指定月份的字符串。MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮
9、。Now函数返回一个Variant(Date)，根据计算机系统设置的日期和时间来指定日期和时间。语法NPer函数返回一个Double，指定定期定额支付且利率固定的总期数。NPV函数返回一个Double，指定根据一系列定期的现金流（支付和收入）和贴现率而定的投资净现值。Oct函数返回Variant(String)，代表一数值的八进制值。Partition函数返回一个Variant(String)，指定一个范围，在一系列计算的范围中指定的数字出现在这个范围内。Pmt函数返回一个Double，指定根据定期定额支付且利率固定的年金支付额。PPmt函数返回一个Double，指定在定期定额支付且利率固定的
10、年金的指定期间内的本金偿付额。PV函数返回一个Double指定在未来定期、定额支付且利率固定的年金现值。QBColor函数返回一个Long，用来表示所对应颜色值的RGB颜色码。Rate函数返回一个Double，指定每一期的年金利率。Replace函数描述返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。RGB函数返回一个Long整数，用来表示一个RGB颜色值。Right函数返回Variant(String)，其中包含从字符串右边取出的指定数量的字符。Rnd函数返回一个包含随机数值的Single。语法Round函数描述返回一个数值，该数值是按照指定的小
11、数位数进行四舍五入运算的结果。LTrim、RTrim与Trim函数返回Variant(String)，其中包含指定字符串的拷贝，没有前导空白(LTrim)、尾随空白(RTrim)或前导和尾随空白(Trim)。Second函数返回一个Variant(Integer)，其值为0到59之间的整数，表示一分钟之中的某个秒。Seek函数返回一个Long，在Open语句打开的文件中指定当前的读/写位置。Sgn函数返回一个Variant(Integer)，指出参数的正负号。Shell函数执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的任务ID，若不成功，则会返回0。S
12、in函数返回一Double，指定参数的sine（正弦）值。SLN函数返回一个Double，在一期里指定一项资产的直线折旧。Sqr函数返回一个Double，指定参数的平方根。语法Space函数返回特定数目空格的Variant(String)。Spc函数与Print#语句或Print方法一起使用，对输出进行定位。Str函数返回代表一数值的Variant(String)。StrComp函数返回Variant(Integer)，为字符串比较的结果。StrConv函数返回按指定类型转换的Variant(String)。StrReverse函数描述返回一个字符串，其中一个指定子字符串的字符顺序是反向的。S
13、tring函数返回Variant(String)，其中包含指定长度重复字符的字符Switch函数计算一组表达式列表的值，然后返回与表达式列表中最先为True的表达式所相关的Variant数值或表达式。SYD函数返回一个Double，指定某项资产在一指定期间用年数总计法计算的折旧。Tab函数与Print#语句或Print方法一起使用，对输出进行定位。Tan函数返回一个Double的值，指定一个角的正切值。Time函数返回一个指明当前系统时间的Variant(Date)。Timer函数返回一个Single，代表从午夜开始到现在经过的秒数。TimeSerial函数返回一个Variant(Date)，
14、包含具有具体时、分、秒的时间。TimeValue函数返回一个包含时间的Variant(Date)。TypeName函数返回一个String，提供有关变量的信息。UBound函数返回一个Long型数据，其值为指定的数组维可用的最大下标。UCase函数返回Variant(String)，其中包含转成大写的字符串。Val函数返回包含于字符串内的数字，字符串中是一个适当类型的数值。VarType函数返回一个Integer，指出变量的子类型。Weekday函数返回一个Variant(Integer)，包含一个整数，代表某个日期是星期几。WeekdayName函数描述返回一个字符串，表示一星期中的某天。Y
15、ear函数返回Variant(Integer)，包含表示年份的整数。最近表格作得很多，我这人又比较懒，于是很多工作都交给了VBA。特地找了一些VBA的常用代码，大家分享一下。Application（Excel程序)Application.EnableEvents= True/ False 启用/禁用所有事件Application.DisplayAlerts=True/False 显示/关闭警告框提示框Application.ScreenUpdating= True/False 显示/关闭屏幕刷新Application.StatusBar = 软件报专用 在地址栏中显示文本，标题栏用Captio
16、n属性Application.Cursor = xlIBeam 设置光标形状为字形，xlWait为沙漏(等待)形，xlNormal为正常Application.WindowState = xlMinimized 窗口最小化，xlMaximized最大化，xlNormal为正常Application.ActivateMicrosoftApp xlMicrosoftWord 开启Word应用程序Application.TemplatesPath 获取工作簿模板的位置Application.CalculateFull 重新计算所有打开的工作簿中的数据Application.RecentFiles.M
17、aximum = 2 将最近使用的文档列表数设为2Application.RecentFiles(3).Open 打开最近打开的文档中的第3个文档Application.AutoCorrect.AddReplacement sweek, 软件报 自动将输入的sweek更正为软件报Application.Dialogs(xlDialogPrint).Show 显示打印文档的对话框Application.OnTime Now + TimeValue(00:00:45), process 45分钟后执行指定过程Application.OnTime TimeValue(14:00:00), proce
18、ss 下午2点执行指定过程Application.OnTime EarliestTime:=TimeValue(14:00:00), _Procedure:=process, Schedule:=False 取消指定时间的过程的执行工作簿/工作表ActiveWorkbook.Sheets.Count 获取活动工作薄中工作表数ActiveWorkbook.LinkSources(xlExcelLinks)(1) 返回当前工作簿中的第一条链接ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetHidden 隐藏工作表，与在Excel菜单中执行“格式工作
19、表隐藏”操作一样ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVeryHidden 隐藏工作表，不能通过在Excel菜单中执行“格式工作表取消隐藏”来重新显示工作表ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVisible 显示被隐藏的工作表ThisWorkbook.Sheets(1).ProtectContents 检查工作表是否受到保护ActiveSheet.Columns(B).CutActiveSheet.Columns(F).Insert 以上两句将B列数据移至F列，原C列后的数
20、据左移ActiveSheet.Range(“A:A”).EntireColumn.AutoFit 自动调整当前工作表A列的列宽ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) 选中当前工作表中常量和文本单元格ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) 选中当前工作表中常量和文本及错误值单元格ActiveSheet.UsedRange.Rows.Count 当前工作表中已使用的行数ThisWorkbook.Work
21、sheets.Add ThisWorkbook.Worksheets(3), , 2 在第3张工作表之前添加2个新的工作表ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) 将当前工作表移至工作表的最后Worksheets(Array(“sheet1”,”sheet2”).Select 同时选择工作表sheet1和sheet2ActiveSheet.UsedRange.FormatConditions.Delete 删除当前工作表中应用的条件格式Cells.Hyperlinks.Delete 取消
22、当前工作表中所有单元格的超链接ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName 在页脚显示文件的路径ActiveSheet.PrintPreview Enablechanges:=False 禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮单元格/单元格区域ActiveSheet.UsedRange.Row 获取已使用的单元格区域的第一行的行号Range(“A65536”).End(xlUp).Row 返回A列最后一行(即记录的总条数)cell.Range(“A1”).HasFormula 检查单元格或单元格区
23、域中的第一个单元格是否含有公式或cell.HasFormula 工作表中单元格是否含有公式Target.EntireColumn.Select 选择单元格所在的整个列，Target.EntireRow.Select为选择单元格所在的整行ActiveCell.Row 活动单元格所在的行号ActiveCell.Column为活动单元格所在的列数ActiveWindow.ScrollRow = 2 将当前工作表窗口滚动到第2行ActiveWindow.ScrollColumn = 5 将当前工作表窗口滚动到第5列Worksheets(sheet1).Range(A1:C5).CopyPicture
24、xlScreen, xlBitmap 将指定的单元格区域的内容复制成屏幕快照Selection.Hyperlinks.Delete 删除所选区域的所有链接ActiveSheet.Cells(1, 1).Font.Bold = TRUE Bold属性用于设置字体是否为加粗， Size属性设置字体大小， ColorIndex属性设置字体颜色（其值为颜色索引号）， Italic属性设置字型是否为倾斜， Name属性设置字体名称ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 将单元格的背景色设置为红色IsEmpty (ActiveCell.Value)
25、判断活动单元格中是否有值ActiveCell.Value = UCase(ActiveCell.Value) 将当前单元格中的字符转换成大写ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase) 将活动单元格中的字符串转换成小写ActiveCell.CurrentRegion.Select 选择当前活动单元格所在的连续的非空区域，也可以用Range(ActiveCell, UsedRange.End(xlDown).SelectActiveCell.Offset(1,0).Select 活动单元格下移一行Range(“B2”).Off
26、set(ColumnOffset:=1)或Range(“B2”).Offset(,1) 读取指定单元格右侧单元格中的数据Range(“B2”).Offset(Rowoffset:=-1)或Range(“B2”).Offset(-1) 读取指定单元格上一行单元格中的数据Range(“A1”).Copy Range(“B1”) 复制单元格A1中的内容到B1中Range(“A1:D8”).Copy Range(“H1”) 将指定单元格区域复制到从H1开始的区域中，用Cut方法可以实现剪切操作ActiveWindow.RangeSelection.Value = 软件报 将指定字符串输入到所选单元格区
27、域中窗体（控件）Option Explicit 强制对模块内所有变量进行声明Userform1.Show 显示用户窗体Load Userform1 加载一个用户窗体,但该窗体处于隐藏状态Userform1.Hide 隐藏用户窗体Unload Userform1 或 Unload Me 卸载用户窗体Me.Height=Int(0.5 * ActiveWindow.Height) 窗体高度为当前活动窗口高度的一半，宽度用ActiveWindow. Width属性UserForm1.ComboBox1.AddItem Sheets(Sheet1).Cells(1, 1) 将指定单元格中的数据添加到复
28、合框中ListBox1.List=MyProduct() 将数组MyProduct的值添加到列表框ListBox1中ListBox1.RowSource=”Sheet1!isum” 将工作表Sheet1中名为的isum区域的值添加到列表框中ListBox1.Selected(0) 选中列表框中的指定的条目ListBox1.RemoveItem ListBox1.ListIndex 移除列表框中选中的条目If MsgBox(“要退出吗？”,vbYesNo)vbYes Then Exit Sub 返回值不为“是”，则退出Config=vbYesNo+vbQuestion+vbDefaultButt
29、on2 使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮 MsgBox “This is the first line.” & vbNewLine & “Second line.” 在消息框中强制换行，也可用vbCrLf代替vbNewLine。MsgBox 平均值为:&Format(Application.WorksheetFunction.Average(Selection),#,#0.00),vbInformation, 显示选区平均值 应用工作表函数返回所选区域的平均值并按指定显示的格式公式与函数Application.WorksheetFunction.IsNumbe
30、r(“A1”) 检查指定单元格中的数据是否为数字Range(“A:A”).Find(Application.WorksheetFunction.Max(Range(“A:A”).Activate 激活单元格区域A列中最大值的单元格Application.MacroOptions Macro:=”GetSum”,Category:=4 将自定义的GetSum函数指定给Excel中的“统计函数”类别Application.MacroOptions Macro:=” GetSum”, _Description:=”先求和,然后再输出。” 为自定义函数GetSum进行功能说明Application.WorksheetFunction.CountA(Cell.EntireColumn) 返回该单元格所在列非空单元格的数量，所在行使用EntireRow属性Application.WorksheetFunction.CountA(Cells) 返回当前工作表中非空单元格数量图表ActiveSheet.ChartObjects.Delete 删除工作表中所有的ChartObject对象ActiveWorkbook.Charts.Delete 删除当前
