无风林的VBA笔记.docxVIP

VBA 通用语句 注释： 常 量 变量： 数组： Input 函 数 ： msgbox 函数： Rem，或 。 Const Pi = 3.14 Dim I as Integer | String | Boolean | Long | Single | Double | Date Dim a(1 to 10， 1 to 10) as integer a=val(inputbox(“请输入 a=”)) msgbox Integer | String MsgBox “This is the first line.” vbNewLine “Second line.” ‘换行 Ans=MsgBox(“Continue?”,vbYesNo) 在消息框中点击“是”按钮，则 Ans 值为 vbYes；点击“否”按钮，则 Ans 值为 vbNo。逻辑运算符: Not, And, Or 句式 If 条件表达式 then Action 1 Else Action 2 Endif For 变量=初值 To 终值 〔Step 步长〕循环体 Next 变量  Select Case a Action 1 Case b Action 2 Case Else Action 3 End Select Do while 条件循环体 Loop 常用函数 字符串 +（连接运算）：两个操作数均应为字符串类型； （连接运算）：两个操作数既可为字符型也可为数值型，当是数值型时，系统自动先将其转换为字符，然后进行 连接操作。 如：12=12 Imports System.String 去空格： Trim（String） | LTrim(String) | RTrim(String) 全大写： Ucase(string) | Lcase(string) 将字符串转换成小写： ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase) 取字串： Left(string, x) | Right(string, x) | Mid(string, start,x) Asc 转换： Integr = Asc(string) String = Chr(charcode) 】A = 65 a = 97 MyStr = Format(334。9, ###0。00) 返回 334.90 StrComp （String1, String2） 函数返回 –1、0 或 1。0 是一致。 InStr(a, b) 如果a 字符串中含有b，则为 True 数学 求平方： 求 根 ： 绝对值： power(2,3) sqr(2,2) Abs(number ) VBA 转换函数列表： CBool(expression) CByte(expression) CCur(expression) CDate(expression) CDbl(expression) CDec(expression) CInt(expression) CLng(expression) CSng(expression) CStr(expression) CVar(expression) Val(string) Str(number) 转换为 Boolean 型转换为 Byte 型 转换为 Currency 型转换为 Date 型 转换为 Double 型转换为 Decemal 型转换为 Integer 型转换为 Long 型 转换为 Single 型转换为 String 型转换为 Variant 型转换为数据型 转换为 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