Office.VBA-VB基础

下面的代码强制用户单击**UserForm**客户端区域以将其关闭。 如果用户尝试使用标题栏中的**关闭** 框，则`Cancel` 参数将设置为非零值，以防终止。 但是, 如果用户单击了 客户端区域, 则`CloseMode` 的值为 1且 `Unload Me`将执行。

```vbscript
Private Sub UserForm_Activate()
Me.Caption = "You must Click me to kill me!"
End Sub

Private Sub UserForm_Click()
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
‘使用标题栏中的“关闭”框阻止用户关闭。
If CloseMode 1 Then Cancel = 1
Me.Caption = "The Close box won‘t work! Click me!"
End Sub
```

下面的示例使用Activate和Click事件来说明UserForm_Resize事件的触发。 当用户单击窗体的客户端区域时, 它会增大或缩小, 并且在标题栏中指定新的高度。 请注意, Tag 属性用于存储用户窗体的初始高度。

' Activate event for UserForm1
Private Sub UserForm_Activate()
    UserForm1.Caption = "Click me to make me taller!"
    Tag = Height    ' Save the initial height.
End Sub

' Click event for UserForm1
Private Sub UserForm_Click()
    Dim NewHeight As Single
    NewHeight = Height
    ' If the form is small, make it tall.
    If NewHeight = Val(Tag) Then
        Height = Val(Tag) * 2
    Else
    ' If the form is tall, make it small.
        Height = Val(Tag)
    End If
End Sub

' Resize event for UserForm1
Private Sub UserForm_Resize()
    UserForm1.Caption = "New Height: " & Height & "  " & "Click to resize me!"
End Sub

以下事件过程导致UserForm 在用户点击客户端区域以消除该窗体之后发出了几秒中的哔哔声。

Private Sub UserForm_Activate()
UserForm1.Caption = "Click me to kill me!"
End Sub

Private Sub UserForm_Click()
Unload Me
End Sub

Private Sub UserForm_Terminate()
Dim Count As Integer
For Count = 1 To 100
Beep
Next
End Sub

Dim MyNumber
MyNumber = Asc("A")    ' Returns 65.
MyNumber = Asc("a")    ' Returns 97.
MyNumber = Asc("Apple")    ' Returns 65.

Dim MyChar
MyChar = Chr(65)    ' Returns A.
MyChar = Chr(97)    ' Returns a.
MyChar = Chr(62)    ' Returns >.
MyChar = Chr(37)    ' Returns %.

|参数| 说明|
|--|--|
Expression |必需。 任何有效的表达式。
Format |可选。 一个有效的指定格式表达式或用户定义的格式表达式。
FirstDayOfWeek| 可选。 一个指定一周的第一天的常量。
FirstWeekOfYear |可选。 一个指定一年的第一周的常量。

|参数|值| 说明|
|--|--|--|
vbSunday |1| 周日（默认）
vbMonday |2| 星期一
vbTuesday |3| 星期二
vbWednesday |4| 星期三
vbThursday |5| 星期四
vbFriday |6| 星期五
vbSaturday |7| 星期六

|参数|值| 说明|
|--|--|--|
vbFirstJan1 |1| 从 1 月 1 日所在的周开始（默认）。
vbFirstFourDays| 2| 从一年中至少包含四天的第一周开始。
vbFirstFullWeek| 3| 从一年的第一个完整周开始。

|符号 |范围|
|--|--|
d |1-31（月份中的某一日，不带前导零）
dd |01-31（月份中的某一日，带前导零）
w |1-7（星期几，从星期日 = 1 开始）
ww |1-53（年份中的某一周，不带前导零；第 1 周从 1 月 1 日开始）
m |1-12（年份中的某一月，不带前导零；从 1 月 = 1 开始）
mm |01-12（年份中的某一月，带前导零；从 1 月 = 01 开始）
mmm |显示缩写的月份名称（Hijri 月份名称没有缩写形式）
mmmm| 显示完整的月份名称
y 1-366（年份中的某一天）
yy 00-99（年份的最后两位数）
yyyy 100-9999（三位或四位数年份）

|符号 |范围|
|--|--|
h |0-23（在 1-12 时附加“AM”或“PM”）（一天中的小时数，不带前导零）
hh |00-23（在 01-12 时附加“AM”或“PM”）（一天中的小时数，带前导零）
n |0-59（小时内的分钟数，不带前导零）
nn |00-59（小时内的分钟数，带前导零）
m |0-59（小时内的分钟数，不带前导零）。 仅在前面带有 h 或 hh 时
mm |00-59（小时内的分钟数，带前导零）。 仅在前面带有 h 或 hh 时
s |0-59（分钟内的秒数，不带前导零）
ss |00-59（分钟内的秒数，带前导零）

```vbscript
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

‘ Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")

‘ Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s") ‘ Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss am/pm") ‘ Returns "05:04:23 pm".
MyStr = Format(MyTime, "hh:mm:ss AM/PM") ‘ Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy") ‘ Returns "Wednesday, Jan 27 1993".
‘ If format is not supplied, a string is returned.
MyStr = Format(23) ‘ Returns "23".

‘ User-defined formats.
MyStr = Format(5459.4, "##,##0.00") ‘ Returns "5,459.40".
MyStr = Format(334.9, "###0.00") ‘ Returns "334.90".
MyStr = Format(5, "0.00%") ‘ Returns "500.00%".
MyStr = Format("HELLO", "") ‘ Returns "THIS IS IT".
```

```vbscript
Dim MyHex
MyHex = Hex(5) ‘ Returns 5.
MyHex = Hex(10) ‘ Returns A.
MyHex = Hex(459) ‘ Returns 1CB.
```

```vbscript
Dim MyOct
MyOct = Oct(4) ‘ Returns 4.
MyOct = Oct(8) ‘ Returns 10.
MyOct = Oct(459) ‘ Returns 713.
```

```vbscript
Dim MyString
MyString = Str(459) ‘ Returns " 459".
MyString = Str(-459.65) ‘ Returns "-459.65".
MyString = Str(459.001) ‘ Returns " 459.001".
```

```vbscript
Val(" 1615 198th Street N.E.") ‘ Returns 1615198
Val("&HFFFF") ‘ Returns -1
Dim MyValue
MyValue = Val("2457") ‘ Returns 2457.
MyValue = Val(" 2 45 7") ‘ Returns 2457.
MyValue = Val("24 and 57") ‘ Returns 24.
```

```vbscript
Dim MyNumber
MyNumber = Abs(50.3) ‘ Returns 50.3.
MyNumber = Abs(-50.3) ‘ Returns 50.3.
```

Dim IntVar, StrVar, DateVar, MyCheck
' Initialize variables.
IntVar = 459: StrVar = "Hello World": DateVar = #2/12/69#
MyCheck = VarType(IntVar)    ' Returns 2.
MyCheck = VarType(DateVar)    ' Returns 7.
MyCheck = VarType(StrVar)    ' Returns 8.

Dim MyAngle, MySecant
MyAngle = 1.3    ' Define angle in radians.
MySecant = 1 / Cos(MyAngle)    ' Calculate secant.

Dim MyAngle, MyHSin
' Define angle in radians.
MyAngle = 1.3
' Calculate hyperbolic sine.
MyHSin = (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2

Dim MyNumber
MyNumber = Int(99.8)    ' Returns 99.
MyNumber = Fix(99.2)    ' Returns 99.

MyNumber = Int(-99.8)    ' Returns -100.
MyNumber = Fix(-99.8)    ' Returns -99.

MyNumber = Int(-99.2)    ' Returns -100.
MyNumber = Fix(-99.2)    ' Returns -99.

```vbscript
Dim MyValue As Integer
MyValue = Int((6 * Rnd) + 1) ‘ Generate random value between 1 and 6.
```

```vbscript
Dim MyVar1, MyVar2, MyVar3, MySign
MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0
MySign = Sgn(MyVar1) ‘ Returns 1.
MySign = Sgn(MyVar2) ‘ Returns -1.
MySign = Sgn(MyVar3) ‘ Returns 0.
```

Dim A, B, Check
A = 5: B = 5 ' Initialize variables.
Check = CBool(A = B) ' Check contains True. 

A = 0 ' Define variable.
Check = CBool(A) ' Check contains False.

Dim MyDouble, MyByte
MyDouble = 125.5678 ' MyDouble is a Double.
MyByte = CByte(MyDouble) ' MyByte contains 126.

Dim MyDouble, MyCurr
MyDouble = 543.214588 ' MyDouble is a Double.
MyCurr = CCur(MyDouble * 2) ' Convert result of MyDouble * 2
 ' (1086.429176) to a
 ' Currency (1086.4292).

Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969" ' Define date.
MyShortDate = CDate(MyDate) ' Convert to Date data type. 

MyTime = "4:35:47 PM" ' Define time.
MyShortTime = CDate(MyTime) ' Convert to Date data type.

Dim MyCurr, MyDouble
MyCurr = CCur(234.456784) ' MyCurr is a Currency.
MyDouble = CDbl(MyCurr * 8.2 * 0.01) ' Convert result to a Double.

```vbscript
Dim MyDecimal, MyCurr
MyCurr = 10000000.0587 ‘ MyCurr is a Currency.
MyDecimal = CDec(MyCurr) ‘ MyDecimal is a Decimal.
```

Dim MyDouble, MyInt
MyDouble = 2345.5678 ' MyDouble is a Double.
MyInt = CInt(MyDouble) ' MyInt contains 2346.

Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45: MyVal2 = 25427.55 ' MyVal1, MyVal2 are Doubles.
MyLong1 = CLng(MyVal1) ' MyLong1 contains 25427.
MyLong2 = CLng(MyVal2) ' MyLong2 contains 25428.

```vbscript
Dim MyDouble1, MyDouble2, MySingle1, MySingle2
‘ MyDouble1, MyDouble2 are Doubles.
MyDouble1 = 75.3421115: MyDouble2 = 75.3421555
MySingle1 = CSng(MyDouble1) ‘ MySingle1 contains 75.34211.
MySingle2 = CSng(MyDouble2) ‘ MySingle2 contains 75.34216.
```

Dim MyDouble, MyString
MyDouble = 437.324 ' MyDouble is a Double.
MyString = CStr(MyDouble) ' MyString contains "437.324".

Dim MyInt, MyVar
MyInt = 4534 ' MyInt is an Integer.
MyVar = CVar(MyInt & 000) ' MyVar contains the string
 ' 4534000.

Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
' Return values assume lower bound set to 1 (using Option Base
' statement).
MyDay = MyWeek(2)    ' MyDay contains "Tue".
MyDay = MyWeek(4)    ' MyDay contains "Thu".

```vbscript
CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100
```
```vbscript
Option Explicit

Private Sub Form_Load()
Label1.Caption = "Move" ‘ Name of Move method.
End Sub

Private Sub Command1_Click()
If Command1.Left 0 Then
CallByName Command1, Label1.Caption, vbMethod, 0, 0
Else
CallByName Command1, Label1.Caption, vbMethod, 500, 500
End If
```

```vbscript
Function GetChoice(Ind As Integer)
GetChoice = Choose(Ind, "Speedy", "United", "Federal")
End Function
```

```vbscript
Dim MyDate
MyDate = Date ‘ MyDate contains the current system date.
```

Setting |说明
|--|--|
yyyy |年
q |季度
m |月
y |每年的某一日
d |天
w |工作日
ww |周
h |小时
n |分钟
s |秒

常量 |值| 说明
|--|--|--|
vbSunday |1| 周日（默认）
vbMonday |2| 星期一
vbTuesday |3| 星期二
vbWednesday |4| 星期三
vbThursday |5| 星期四
vbFriday |6| 星期五
vbSaturday| 7| 星期六

常量 |值| 说明
|--|--|--|
vbUseSystem |0| 使用 NLS API 设置。
vbFirstJan1 |1| 从 1 月 1 日所在的周开始（默认）。
vbFirstFourDays |2| 从至少包含新的一年中的四天的那一周开始。
vbFirstFullWeek |3| 从每年的第一个完整的星期开始。

```vbscript
Dim TheDate As Date ‘ Declare variables.
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg
```

```vbscript
Dim TheDate As Date ‘ Declare variables.
Dim Msg
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg
```

```vbscript
Dim MyDate
‘ MyDate contains the date for February 12, 1969.
MyDate = DateSerial(1969, 2, 12) ‘ Return a date.
```

```vbscript
Dim MyDate
MyDate = DateValue("February 12, 1969") ‘ Return a date.
```

```vbscript
Dim MyDate, MyDay
MyDate = #February 12, 1969# ‘ Assign a date.
MyDay = Day(MyDate) ‘ MyDay contains 12.
```

```vbscript
Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, Depr
Const YRMOS = 12 ‘ Number of months in a year.
Fmt = "###,##0.00"
InitCost = InputBox("What‘s the initial cost of the asset?")
SalvageVal = InputBox("Enter the asset‘s value at end of its life.")
MonthLife = InputBox("What‘s the asset‘s useful life in months?")
Do While MonthLife = 1 year.
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What‘s the asset‘s useful life in months?")
Loop
LifeTime = MonthLife / YRMOS ‘ Convert months to years.
If LifeTime Int(MonthLife / YRMOS) Then
LifeTime = Int(LifeTime + 1) ‘ Round up to nearest year.
End If
DepYear = CInt(InputBox("Enter year for depreciation calculation."))
Do While DepYear LifeTime
MsgBox "You must enter at least 1 but not more than " & LifeTime
DepYear = InputBox("Enter year for depreciation calculation.")
Loop
Depr = DDB(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & _
Format(Depr, Fmt) & "."
```

```vbscript
‘返回当前文件夹中的第一个 TEXT 文件的名称：
Dir("SomePath", MacID("TEXT"))
‘若要循环访问文件夹中的所有文件，请指定一个空字符串
Dir("")
```

```vbscript
‘ Create a variable to hold number of Visual Basic forms loaded
‘ and visible.
Dim I, OpenForms
For I = 1 To 150000 ‘ Start loop.
If I Mod 1000 = 0 Then ‘ If loop has repeated 1000 times.
OpenForms = DoEvents ‘ Yield to operating system.
End If
Next I ‘ Increment loop counter.
```

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.
Indx = 1    ' Initialize index to 1.
Do
    EnvString = Environ(Indx)    ' Get environment
                ' variable.
    If Left(EnvString, 5) = "PATH=" Then    ' Check PATH entry.
        PathLen = Len(Environ("PATH"))    ' Get length.
        Msg = "PATH entry = " & Indx & " and length = " & PathLen
        Exit Do
    Else
        Indx = Indx + 1    ' Not PATH entry,
    End If    ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
    MsgBox Msg    ' Display message.
Else
    MsgBox "No PATH environment variable exists."
End If

Dim InputData
Open "MYFILE" For Input As #1    ' Open file for input.
Do While Not EOF(1)    ' Check for end of file.
    Line Input #1, InputData    ' Read line of data.
    Debug.Print InputData    ' Print to the Immediate window.
Loop
Close #1    ' Close file.

```vbscript
Private Sub PrintError()
Dim ErrorNumber As Long, count As Long
count = 1: ErrorNumber = 1
On Error GoTo EOSb
Do While count

使用 Open 语句打开的文件的文件模式。

当 returntype 参数为1时, 下列返回值指示文件访问模式:

▌FileDateTime( pathname As String) as Date

返回指示文件创建或最后修改的 Variant (Date)。

Dim MyStamp
' Assume TESTFILE was last modified on February 12, 1993 at 4:35:47 PM.
' Assume English/U.S. locale settings.
MyStamp = FileDateTime("TESTFILE")    ' Returns "2/12/93 4:35:47 PM".

返回一个指定文件长度（以字节为单位）的 Long 值。

▌Filter( sourcearray, match, [ include, [ compare ]] ) as Array

返回一个从零开始的数组, 该数组包含基于指定的筛选条件的字符串数组的子集。

通过使用系统控制面板中定义的货币符号返回一个格式为货币值的表达式。

IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数包含以下设置：

返回格式为日期或时间的表达式。

返回数字格式的表达式。

IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数包含以下设置：

IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数包含以下设置：

返回一个整数, 表示可由Open 语句使用的下一个文件号。

更多

返回一个double , 它基于定期固定付款和固定利率指定年金的未来值。

年金是一段时间内一系列的固定的现金付款。 年金可以是贷款（如房产抵押），也可以是投资（如月存款计划）。
必须使用以相同单位表示的付款时段计算 rate 和 nper 参数。 例如, 如果 rate 是使用月计算的, 则还必须使用月计算 nper 。
对于所有参数，已支出现金（例如，存款储蓄）用负数表示；已收现金（例如，股利支票）用正数表示。

▌GetAllSettings( appname, section ) as Array

更多

返回表示文件、目录或文件夹的属性的 Integer 。

GetAttr 所返回的值是以下属性值的和：

▌Hour( time ) as Integer

返回指定表示一天的小时的 0 到 23 之间（含这两个值）的整数的变量（整数）。

▌IIf( expr, truepart, falsepart ) as Any

▌Input( number, [ # ]filenumber ) as String

从以 Input 或 Binary 模式打开的文件中返回包含字符的String。

▌InputBox( prompt, [ title ], [ default ], [ xpos ], [ ypos ], [ helpfile, context ] ) as String

在对话框中显示提示，等待用户输入文本或单击按钮，然后返回包含文本框内容的字符串。

▌InStr( [ start ], string1, string2, [ compare ] ) as Long

返回一个 Variant (Long) 值，指定一个字符串在另一个字符串中首次出现的位置。

▌InStrRev( stringcheck, stringmatch, [ start, [ compare ]] ) as Long

返回一个字符串在另一个字符串中首次出现的位置（从字符串的末尾开始）。

返回一个 Double，它基于定期固定付款和固定利率指定年金的给定期间利率付款。

▌IRR( values()、[ guess ] ) as Double

返回一个双精度值，该值为一系列定期现金流（付款和收款）指定内部回报率。

更多

返回指示变量 是否是数组。

▌IsDate( expression ) as Boolean

如果表达式是日期或可识别为有效日期或时间，则返回True；否则，返回True。

▌IsEmpty( expression ) as Boolean

返回一个指示是否已初始化变量的布尔值。

▌IsError( expression ) as Boolean

返回一个 Boolean 值，指示表达式是否为错误值。

▌IsMissing( argname ) as Boolean

返回一个布尔值, 该值指示是否已将可选Variant 参数传递给过程。

▌IsNull( expression ) as Boolean

返回指示表达式是否包含无效数据 (Null) 的 Boolean 值。

▌IsNumeric( expression ) as Boolean

返回指示表达式是否可评估为数值的Boolean值。

▌IsObject( expression ) as Boolean

返回一个指示标识符是否表示某个对象的变量的 Boolean 值。

▌Join( sourcearray, [ delimiter ] ) as String

返回通过联接数组中包含的大量子字符串创建的字符串。

返回一个 Long 型值，其中包含指示的数组维度的最小可用下标。

维度 v可选；Variant (Long)。 指示返回哪个维度的下限的整数。 1 表示第一个维度，2 表示第二个维度，依此类推。 如果省略 dimension，则假定为 1。

▌LCase( string Sd String) as String

返回已转换为小写形式的 String。如果字符串包含 Null，则返回 Null。

▌Left( ) as

返回一个包含字符串左侧指定字符数的 Variant (String)。

注解

Dim AnyString, MyStr
AnyString = "Hello World"    ' Define string.
MyStr = Left(AnyString, 1)   ' Returns "H".
MyStr = Left(AnyString, 7)   ' Returns "Hello W".
MyStr = Left(AnyString, 20)  ' Returns "Hello World".

返回包含字符串中的字符数或存储变量所需的字节数的长整数。

▌Loc( filenumber As Integer) as Long

返回指定打开的文件内的当前可读/写位置的 Long。

#If VBA7 Then
Declare PtrSafe Sub...
#Else
Declare Sub...
#EndIf

Dim MyStr, MyInt
MyStr = "Hello World"
MyInt = 5

Public NumberOfEmployees As Integer
Public X As New Worksheet

Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1)    ' Run Calculator.
AppActivate ReturnValue     ' Activate the Calculator.
For I = 1 To 100    ' Set up counting loop.
    SendKeys I & "{+}", True    ' Send keystrokes to Calculator
Next I    ' to add each value of I.
SendKeys "=", True    ' Get grand total.
SendKeys "%{F4}", True    ' Send ALT+F4 to close Calculator.

Type StateData
    CityCode (1 To 100) As Integer    ' Declare a static array.
    County As String * 30
End Type 

Dim Washington(1 To 100) As StateData