在VBA程序语言中有许多内置函数，可以帮助程序代码设计和减少代码的编写工作。
一．测试函数
IsNumeric(x)          ‘是否为数字,  返回Boolean结果，True or False
IsDate(x)            ‘是否是日期,  返回Boolean结果，True or False
IsEmpty（x）          ‘是否为Empty, 返回Boolean结果，True or False
IsArray(x)            ‘指出变量是否为一个数组。
IsError(expression)    ‘指出表达式是否为一个错误值
IsNull(expression)    ‘指出表达式是否不包含任何有效数据 (Null)。
IsObject(identifier)‘指出标识符是否表示对象变量
二．数学函数
Sin(X)、Cos(X)、Tan(X)、Atan(x)  三角函数，单位为弧度
Log(x) 返回x的自然对数
Exp(x)返回 ex
Abs(x) 返回绝对值
Int(number)、Fix(number) 都返回参数的整数部分，区别：Int 将 -8.4 转换成 -9，而 Fix 将-8.4 转换成 -8
Sgn(number) 返回一个 Variant (Integer)，指出参数的正负号
Sqr(number) 返回一个 Double，指定参数的平方根
VarType(varname) 返回一个 Integer，指出变量的子类型
Rnd（x）返回0-1之间的单精度数据，x为随机种子
三．字符串函数
Trim(string)            去掉string左右两端空白
Ltrim(string)            去掉string左端空白
Rtrim(string)            去掉string右端空白
Len(string)            计算string长度
Left(string, x)        取string左段x个字符组成的字符串
Right(string, x)        取string右段x个字符组成的字符串
Mid(string, start,x)    取string从start位开始的x个字符组成的字符串
Ucase(string)            转换为大写
Lcase(string)            转换为小写
Space(x)                返回x个空白的字符串
Asc(string)            返回一个 integer，代表字符串中首字母的字符代码
Chr(charcode)            返回 string,其中包含有与指定的字符代码相关的字符
四．转换函数
CBool(expression)        转换为Boolean型
CByte(expression)        转换为Byte型
CCur(expression)        转换为Currency型
CDate(expression)        转换为Date型
CDbl(expression)        转换为Double型
CDec(expression)        转换为Decemal型
CInt(expression)        转换为Integer型
CLng(expression)        转换为Long型
CSng(expression)        转换为Single型
CStr(expression)        转换为String型
CVar(expression)        转换为Variant型
Val(string)                转换为数据型
Str(number)                转换为String
五．时间函数
Now            返回一个 Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。
Date          返回包含系统日期的 Variant (Date)。
Time        返回一个指明当前系统时间的 Variant (Date)。
Timer      返回一个 Single，代表从午夜开始到现在经过的秒数。
TimeSerial(hour, minute, second) 返回一个 Variant (Date)，包含具有具体时、分、秒的时间。
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目
Second(time) 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一分钟之中的某个秒
Minute(time) 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一小时中的某分钟
Hour(time)  返回一个 Variant (Integer)，其值为 0 到 23 之间的整数，表示一天之中的某一钟点
Day(date)    返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日
Month(date) 返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月
Year(date)    返回 Variant (Integer)，包含表示年份的整数。
Weekday(date, [firstdayofweek]) 返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几
个人宏工作簿，是为宏而设计的一种特殊的具有自动隐藏特性的工作簿。第一次将宏创建到个人宏工作簿时，会创建名为"PERSONAL.XLS"的新文件。如果该文件存在，则每当EXCEL启动时会自动将此文件打开并隐藏在活动工作簿后面（在"窗口"菜单中选择"取消隐藏"后，可以很方便地发现它的存在。）如果你要让某个宏在多个工作簿都能使用，那么就应当创建个人宏工作簿，并将宏保存于其中。个人宏工作簿保存在"XLSTART"文件夹中。具体路径为：C:\WINDOWS\Profiles\Application Data\Microsoft\Excel\XLSTART。可以以单词"XLSTART"查询。 
  注意：如果存在个人宏工作簿，则每当EXCEL启动时会自动将此文件打开并隐藏。因为它存放在XLSTART文件夹内。
利用VBA设置工作表使用权限
一般保护工作表采取的方法是用EXCEL菜单中的"保护"命令，有时这尚嫌不足，比如一些机密文件根本要让某些使用者无法看到，但又需要他来操作工作簿中的其他表，怎么办？
可以打开VBA编辑器，打开"工程资源管理器"，双击该工作表，现在出现的是设置该表的属性的编辑窗口，单击窗口左上的下拉列表框，选择worksheet ,这时再从该窗口右上方的列表框中选择Active("激活"），这时自动显示如下的语句块：
Private Sub Worksheet_Activate()
End Sub
在其中加入代码：(假设用"123"作为密码,Sheet"机密文档"为限制权限文
档,sheet"普通文档"为工作簿中你认为任何适合的工作表)
程序如下：
Private Sub Worksheet_Activate()
If Application.InputBox("请输入操作权限密码:") = 123 Then
Range("A1").Select
Else
MsgBox "密码错误,即将退出!"
Sheets("普通文档").Select
End If
End Sub
这样做仍有一个问题，就是越权使用者仍会看到一些文件的片段，即在提示密码的那段时间。好，你可以这样做，用上述方法选择工作表的Deactivate事件,输入以下代码：
Sheets("机密文档").Cells.Font.ColorIndex = 2
这段程序使得此工作表在不被激活时，所有文字为白。然后，在第一个程序中的Range("A1").Select后插入一行，写入以下代码：
ActiveSheet.Cells.Font.ColorIndex = 56
这段程序，在你输入正确密码后，将该表所有文字转变为深灰。
完整的程序如下：
Private Sub Worksheet_Activate()
If Application.InputBox("请输入操作权限密码:") = 123 Then
Range("A1").Select
Sheets("机密文档").Cells.Font.ColorIndex = 56
Else
MsgBox "密码错误,即将退出!"
Sheets("普通文档").Select
End If
提高VBA程序运行效率的方法。
方法1：尽量使用VBA原有的属性、方法和Worksheet函数
方法2：尽量减少使用对象引用，尤其在循环中
在Excel窗口下，同时按下Alt+F11，你将进入VB编辑器界面——Excel的编程界面
偏移（Offset）属性
  对象       属性  自变量
ActiveCell.Offset(3, 2)  Offset(3, 2)将会指向往下3行和往右两列的单元格
⏹ 规则2：改变对象的属性
Object.Property = Value
Value是一个新的你要赋给该对象属性的值。这个值可以是：
✧ 一个数字
Range("A4").Value = 25
上面的指令在当前工作表的单元格A4里输入数字25
datediff是字符型函数
✧ 在引号里的文本
ActiveCell.Font.Name = "Times New Roman"
上面的指令将当前单元格字体改为Times New Roman
✧ 逻辑值（True或False）
ActiveCell.Font.Bold = True
上面的指令设置当前单元格的字体为粗体。
GoTo方法的句法为：
Object.GoTo(Reference, Scroll)        ‘对象.GoTo(参照, 窗口滚动)
下面的VBA语句选择工作表Sheet1里的单元格P100，并且窗口滚动：
Application.GoTo _
Reference:=Worksheets("Sheet1").Range("P100"), _
Scroll:=True
你不可以在冒号和等于号之间使用连续符，例如，下面的代码VB是不认的：
Selection.PasteSpecial Paste: _
=xlValues, Operation: _
=xlMultiply, SkipBlanks: _
=False, Transpose: _
=False Selection.PasteSpecial Paste: _

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。