变量是保存值或指向对象的名字。在函数、过程或事件内声明的变量是局部的,仅能在声明它的函数中使用,不能在函数外使用。在窗体或代码模块通用声明区中声明的变量能在声明它们的窗体或代码模块内任何地方使用。在代码模块中声明为“Public”的变量能在VBA工程的任何位置使用,在类模块中声明为“public”的变量成为类模块的读/写属性
UCase大写转换
Function Ucase(String)
LCase小写转换
Function Lcase(String)
StrConv字符串转换
Function StrConv(String, Conversion As VbStrConv, [LocaleID AS Long])
WeekDayName星期名 WeekDay日期转星期
Function WeekDayName(Weekday As Long ,[Abbreviate As Boolean = False],[FirstDayOffWeek As VbDayOfWeek = vbUseSystemDayOfWeek]) As String
MonthNAme月名
Function MonthName(Month As Long, [Abbreviate As Boolean = False]) As String
LTrim左截取 RTrim右截取 Trim两端截取
Function LTrim(String)
Function RTrim(String)
Function Trim(String)
StrComp字符串比较
Function StrComp(String1, String2, [Compare As VbCompareMethod = vbBinaryCompare]
Left左取字符串
Function Left(String ,Length As Long)
Right右取字符串
Function Right(String, Length As Long)
Mid 取中串
Function Mid(String, Start As Long, [Length])
Sub TextWork12()
Dim BookTitle As String
BookTitle = "Learning MicroStation VBA"
Debug.Print Mid(BookTitle, 3, 6)
Debug.Print Mid(BookTitle, 6)
Debug.Print Mid(BookTitle, InStr(1, BookTitle, " ") + 1)
End Sub
第三个是以Instr函数在变量BookTitle中查找第一个空格的位置并加上“1”作为起始,这样实际上是从第一个空格后开始的。如果没有指定长度,将得到空格后的所有内容
Replace 替换字符
Function Replace(Expression As String, Find As String, Replace As String, [Start As Long = 1],[Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare])AS String
Sub TextWork13()
Dim FilePath As String
Dim FilePath2 As String
FilePath = Application.ActiveDesignFile.FullName
FilePath2 = Replace(FilePath, "\", "//")
MsgBox FilePath & "turns into" & vbCr & FilePath2
End Sub
InStr 子串位置
Function InStr([Start],[String1],[String2],[Compare As VbCompareMethod = vbBinaryCompare])
InStrRev反向子串位置
Function InStrRev(StringCheck As String, StringMatch As String, [Start As Long = -1],[Compare As VbCompareMethod = vbBinaryCompare]) As Long
Split 分割和 Join联结
Function Split(Expression As String,[Delimiter],[Limit As Long = -1],[Compare As VbCompareMethod = vbBinaryCompare])
Function Join(SourceArray,[Delimiter]) As String
Asc 字符到ASCII码 和Chr ASCII码到字符
Function Asc(Stirng As String) As Integer
Function Chr(CharCode As Long)
FormatCurrency格式化货币
Function F