Office.VBA-VB基础

标签：sum   turned   级别   空白   获得   Plan   ntc   atd   least   

1. 准备

以下操作由笔者均在 win10 + ms office excel 2013环境中实践。

1.1 配置环境

■开启Excel宏选项

文件>选项>自定义功能区>开发工具

■更友好的编辑设置

• 开发工具> Visual Basic >工具>选项>
  • 编辑器>取消勾选【自动语法检测】,勾选【要求变量声明】
  • 编辑器格式>字体>Consolas(西方)
  • 编辑器格式>字体>>大小>11

■保存时弹出无法删除个人信息的警告框

• 文件>选项>信任中心>信任中心设置>个人信息选项>
  • 取消勾选【保存时从文件属性中删除个人信息】

■强制声明所有变量

• 代码头部加 Option Explicit

  2. VB语言基础

  2.1 数据类型

  ■ 数据类型速查

笔者其他匈牙利命名推荐

■ 合法变量名

• 字母开头
• 只能是字母|数字|下划线
• 不超过255
• 不区分大小写

■ 声明、赋值

• Dim和Static只能在过程(Sub或者Function)内部被访问
• Static下次再调用该过程的时候，数据就依然存在

Dim sText As String'声明变量
Dim sText$ '声明变量(缩写)
Const c_nCounter As Integer '常量
Static s_fPi As Single '静态变量

• Private 这个模块才能访问
• Public 整个应用程序都能使用

Private m_lCounter As Long '私有变量
Public g_byArrIndex As Byte '公有变量

• 变量、对象赋值

Let lMax = 3000 '变量赋值
lMax = 3000 '变量赋值，可省略Let
Set wsTest = ActiveSheet '对象赋值

■ 数组 的 声明、赋值

• 声明
  • Dim arr(1 To 100) As Byte 表示 arr=[1,2,...,99,100]
  • Dim arr(99) As Byte 表示 arr=[0,1,...,98,99]
  • Dim arr(1 To 3, 1 To 2) As Integer 形如 [[x,x],[x,x],[x,x]]
• 赋值
  • arr(1)=1
  • Range("E1:G3").value=arr
  • arr=Range("E1:G3").value
• 动态长度声明
  vbscript Dim nLen% ‘nLen = A列非空单元格数 nLen=Application.WorksheetFunction.CountA(Range("A:A")) Dim aColA(1 To nLen) As String
• 动态类型声明
  vbscript Dim aHeader As Variant arr = Array("序号",3.14,Date)

2.2 过程、函数

■ 过程

• Private Sub object

Public Sub xxx()
    Dim title$'缩写示例
    title="hello word"
    MsgBox(title)
End Sub

■ 函数

Public Function weekCheck(str as String)

End Function

• 数组操作
  • 分隔字符串到数组 arr=Split("赵,钱,孙,李",",")
  • 合并数组到字符串 txt=Join(arr,",")
  • 获取数组最小索引 LBound(arr)
  • 获取数组最大索引 UBound(arr)
• 类型转换
• Chr

2.2运算符

■ 算数运算符

■ 逻辑运算符

■ 逻辑运算符

假设变量A=10，变量B=0

■ 连接运算符

假设变量A=5，变量B=10

■ 通配符

文档

活动事件

▌Private Sub object **_Activate**

激活

Private Sub UserForm_Activate()
    UserForm1.Caption = "Click my client area"
End Sub

▌Private Sub object **_Deactivate**

停用

Private Sub UserForm_Deactivate()
    UserForm1.Caption = "I just lost the focus!"
End Sub

▌Private Sub object **_Initialize**

在加载对象后、但在其显示之前出现。

Private Sub UserForm_Initialize()
    Load UserForm2
    UserForm2.Show
End Sub

▌Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

在UserForm关闭之前发生。

此事件一般用于确保应用程序所含的用户窗体中在应用程序关闭前没有未完成任务。

例如，如果用户尚未将新数据保存到任何 UserForm 中，则应用程序可能提示用户保存数据。

应用程序关闭时，您可使用 QueryClose 事件过程将 Cancel 属性设置为 True，以停止关闭过程。

CloseMode值:

▌Private Sub UserForm_Resize()

调整父窗体 的大小时, 使用Resize事件过程移动控件或调整其大小。 还可以使用此事件过程重新计算变量或属性。

' 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

▌Private Sub object **_Terminate( )
在卸载对象后发生Terminate事件。 如果UserForm** 或类的实例从内存中删除, 则不会触发Terminate事件, 因为应用程序异常终止。

例如, 如果应用程序在从内存中删除类或UserForm 的所有现有实例之前调用End 语句, 则不会对该类或UserForm 触发Terminate事件。

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

VB函数

■ 转换函数

▌ Asc( string As String)

返回一个整数值，它表示与字符串中的第一个字母对应的字符代码。如果 string 不包含任何字符，将会出现运行时错误。

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

▌Chr( charcode As String)

返回一个字符串，其中包含与指定的字符代码关联的字符。0–31 之间的数字与标准非打印 ASCII 代码相同。 例如，Chr(10) 将返回换行符。 charcode 的正常范围是 0–255。

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

▌CVErr

▌Format( Expression, [ Format ], [ FirstDayOfWeek ], [ FirstWeekOfYear ])

更多...

▌Hex( number As Number|String) As String

返回表示数字的十六进制值的字符串。如果 number 不是整数, 则在计算之前将其舍入为最接近的整数。
对于与十六进制相反的值, 请在十六进制值前面加上 &H。 例如,Hex(255)返回字符串 FF 、&HFF返回数字255。

▌Oct( number As Number|String) As String

返回一个表示数字的八进制值的变量（字符串）。

▌Str( number As Number) As String

返回数字的字符串表示。始终为 number 的符号保留前导空格。

▌Val( string As String) As Number

以适当类型的数值格式返回字符串中包含的数字。Val函数将在字符串无法识别为数字一部分的第一个字符处停止读取该字符串。 将无法识别通常被视为数值的一部分的符号和字符（例如美元符号和逗号）。但是, 函数识别基数前缀&O (用于八进制) 和&H (对于十六进制)。 空白、制表符和换行符将从参数中剔除。

■ 数学函数

▌Abs( number As Number) as Number

返回将传递给指定数字的绝对值的相同类型的值。

▌Atn( number As Number) as Double
返回指定数字的余切值的 Double。

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.

▌Cos( number As Number) as Double
返回指定角的余弦的 Double。

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

▌派生的数学函数

▌Exp( number as Number) As Double

返回指定进行幂计算的e（自然对数的基）的 Double。

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

**▌Int|Fix(** number As Number) as Integer

Int和Fix都删除数字的小数部分，并返回结果整数值。Int和Fix之间的区别在于，如果number为负，则Int返回小于或等于number的第一个负整数，而Fix返回大于或等于number的第一个负整数。例如，Int将-8.4转换为-9，而Fix将-8.4转换为-8。Fix(number)等于Sgn(number)* Int(Abs(number))。

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.

▌Log(number As Number ) As Double

返回用于指定数字的自然对数的 Double 值。

▌Rnd([ number As Number]) As Single

返回一个包含伪随机数字的Single 。

▌Sgn(nubmer As Number) As Integer
返回数字的符号

--

▌Sin(* number as Number) As Double

返回指定角的正弦值的 Double。

▌Sqr(* number as Number) As Double

返回指定一个数的平方根的 Double 。

Tan(* number as Number) As Double
返回一个指定角的正切值的 Double 。

■ 类型转换函数

▌ CBool(expression):Boolean

将表达式转换为 Boolean。 如果该表达式计算结果为非零值，则 CBool 将返回 True，否则，返回 False。

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.

▌ CByte(expression):Byte

将表达式转换为 Byte。

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

▌ CCur(expression):Currency

将表达式转换为 Currency。强制实行货币运算，根据您的计算机的区域设置恰当地识别不同的小数分隔符、不同的千位分隔符和不同的货币选项。通常可能发生单精度、双精度或整数运算。

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).

▌ CDate(expression):Date

使用 IsDate 函数来确定是否可以将 date 转换为日期或时间。 CDate 识别日期文本和时间文本以及一些属于可接受日期范围的数字。 当转换数字为日期时，整个数字部分都将被转换为日期。 数字的任何小数部分都将被转换为一天的某个时间（从午夜开始）。

如果日、月和年的正确顺序是以已识别日期设置之外的格式提供的，那么则可能不能确定日、月和年的正确顺序。 此外，如果长日期格式还包含了星期几字符串，则不能识别该格式。

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.

▌ CDbl(expression):Double

将表达式转换为 Double。

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

▌ CDec(expression):Decimal

将数值转换为 Decimal。

▌CInt(expression):Integer

将值转换为 Integer。将其四舍五入为最接近的数

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

▌CLng(expression):Long

将值转换为 Long。将其四舍五入为最接近的数

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.

▌CSng(expression):Single

将值转换为 Single。

▌ CStr(expression):String

将数值转换为 String。

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

▌ CVar(expression):Variant
将表达式转换为 Variant。

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

■ 其他函数

▌Array( ...arglist As Variant[] ) as Array<Variant>

返回一个包含数组的 Variant。

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".

▌CallByName( object, procname, calltype, [args()] )
执行对象的方法，或者设置或返回对象的属性。

▌Choose( index, choice-1, [ choice-2, ..., [ choice-n ]] ) as

从参数列表选择和返回值。

▌Date( ) as Date

返回包含当前系统日期的 Variant (Date)。

▌DateDiff( interval, date1, date2, [ firstdayofweek, [ firstweekofyear ]] ) as Long

指定两个指定的日期之间的时间间隔数。

▌DatePart( interval、 date、[ firstdayofweek，[ firstweekofyear ]] ) as

Format 或 DatePart 函数可能返回一年中的上一个星期一的错误周数。

▌DateSerial( year, month, day ) as Date

返回指定年月日的 Date 。

▌DateValue( date As String|Date) as Date

如果_date_是一个仅包含由有效日期分隔符分隔的数字的字符串, 则DateValue将根据您为系统指定的短日期格式识别月、日和年的顺序。 DateValue 还能清楚地识别包含月名称（长名称或简写形式）的日期。 例如，除了识别 12/30/1991 和 12/30/91 之外，DateValue 还识别 December 30, 1991 和 Dec 30, 1991。
如果省略 date 的年部分，则 DateValue 将使用计算机系统日期中的当前年。
如果 date 参数包含时间信息，则 DateValue 将不会返回它。 但是，如果 date 包含的时间信息无效（如“89:98”），则将出错。

▌Day( date As Number|String|Null) as Integer

返回一个Integer，它指定一个表示月中的某一天的介于 1 和 31（含 1 和 31）之间的整数。

▌DDB( cost, salvage, life, period, [ factor ] ) as Double

返回一个double , 它使用双倍余额递减法或其他指定方法来指定特定时间段内资产的折旧值。

▌Dir( pathname, [ attributes ] ) as String

它表示与指定模式或文件属性或驱动器的卷标匹配的文件、目录或文件夹的名称。

▌DoEvents( ) as Integer

VB中打开的窗体的数目

▌Environ( { envstring | number } ) as String

返回与操作系统环境变量关联的 字符串 。在 Macintosh 中不可用。

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

▌EOF( filenumber ) as Integer

使用 EOF 可避免在尝试超出文件的末尾来获取输出时产生错误。EOF 函数返回 False，直到到达文件的末尾。 对于以随机或二进制访问方式打开的文件, EOF将返回False , 直到最后一个执行的 Get 语句无法读取整条记录。

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.

▌Error( [errornumber As Interger ] ) as String

返回与给定错误代码相对应的错误消息。

▌FileAttr( filenumber As Integer , returntype As Integer ) as Long

使用 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".

▌FileLen( pathname As String) as Long

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

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

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

▌FormatCurrency( Expression、[ NumDigitsAfterDecimal, [ IncludeLeadingDigit, [ UseParensForNegativeNumbers, [ GroupDigits ]]]] ) as Currency

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

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

▌FormatDateTime( Date、[ NamedFormat ] ) as Date

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

▌FormatNumber( Expression、[ NumDigitsAfterDecimal, [ IncludeLeadingDigit, [ UseParensForNegativeNumbers, [ GroupDigits ]]]] ) as Number

返回数字格式的表达式。

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

▌FormatPercent( Expression、[ NumDigitsAfterDecimal, [ IncludeLeadingDigit, [ UseParensForNegativeNumbers, [ GroupDigits ]]]] ) as String

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

▌FreeFile( rangenumber ) as Number

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

更多

▌FV( rate, nper, pmt, [ pv, [ type ]] ) as Double

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

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

▌GetAllSettings( appname, section ) as Array

更多

▌GetAttr( pathname As String) as Integer

返回表示文件、目录或文件夹的属性的 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

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

▌IPmt( rate, per, nper, pv, [ fv, [ type ]] ) as Double

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

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

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

更多

▌IsArray( varname as Any ) as Boolean

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

▌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

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

▌LBound( arrayname, [ dimension ] ) as Long

返回一个 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".

▌Len( string | varname ) as Long

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

▌Loc( filenumber As Integer) as Long

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

▌LOF( filenumber ) as Long

返回一个Long , 表示使用Open 语句打开的文件的大小 (以字节为单位)。

▌LTrim、RTrim 和 Trim( ) as String

返回 字符串 包含指定字符串副本（不含前导空格 (LTrim)、后续空格 (RTrim) 或前导和后续空格 (Trim)）。

▌Mid( string, start, [ length ]) ) as String

返回一个 Variant (String)，其中包含字符串中的指定数量的字符。若要确定字符串中字符的数量，请使用 Len 函数。

▌Minute( time As Variant|Number|String) as Integer

返回指定介于 0 和 59 之间（含 0 和 59）的一个整数的 Variant (Integer)，代表分钟数。

▌MIRR( values( ), finance_rate, reinvest_rate ) as Double

返回为一系列定期现金流量（付款和收款）指定修改的内部报酬率的 Double 值。

更多

▌Month( date As Variant|Number|String) as Integer

返回指定 1 至 12（包括 1 和 12）之间表示月份的整数的 Variant (Integer)。

▌MonthName( month, [ abbreviate ] ) as String

返回指定的月份的字符串。

▌MsgBox( prompt, [ buttons, ] [ title, ] [ helpfile, context ] ) as Void

▌Now( ) as Date

返回一个Variant (Date), 它根据计算机的系统日期和时间指定当前日期和时间。

▌NPer( rate, pmt, pv, [ fv, [ type ]] ) as Double

返回一个Double，该Double根据定期的固定付款额和固定利率指定年金的期数。

更多

▌NPV( ) as Double

返回一个 Double，它基于一系列定期现金流（付款和收款）和贴现率指定投资的净现值。
更多

▌Partition( number, start, stop, interval ) as String

返回 Variant (String)，指示数字在计算的一系列范围内出现的位置。

更多

▌Pmt( rate, nper, pv, [ fv, [ type ]] ) as Double

返回 Double，以指定基于定期、定额支付和固定利率的年金支付。

更多

▌PPmt( rate, per, nper, pv, [ fv, [ type ]] ) as Double

返回一个Double，该Double根据定期的固定付款额和固定利率来指定给定年金期间的本金付款。

更多

▌PV( rate、 nper、 pmt、[ fv、[ type ]] ) as Double

返回一个 Double，它基于未来要支付的定期固定付款和固定利率指定年金的当前值。

更多

▌QBColor( color ) as Long

返回一个Long，表示与指定颜色编号相对应的RGB颜色代码。

▌Rate( nper, pmt, pv, [ fv, [ type, [ guess ]]] ) as Double

返回一个Double，指定年金每个期间的利率。

更多

▌Replace( expression、 find、 replace、[ start、[ count, [ compare ]]] ) as

▌RGB( red, green, blue ) as Long

返回表示 RGB 颜色值的 Long 整数。

▌Right( string, length ) as String

返回了从字符串的右边开始包含特定数目的字符

▌Round( expression, [ numdecimalplaces ] ) as Number

返回四舍五入到指定小数位数的数。

▌Second( time ) as

返回 0 到 59 之间的整数（其中包含 0、59 这两个数）用于代表一分钟内的秒数。

▌Seek( filenumber ) as Long

返回一个Long类型的值, 指定使用 Open 语句打开的文件内的当前读/写位置。

Seek返回一个介于1和 2147483647 (相当于 2 ^ 31-1) 的值 (包括这两个值)。

更多

▌Shell( pathname, [ windowstyle ] ) as Double

运行可执行程序并在成功时返回表示程序的任务 ID 的 Variant (Double)；否则返回零。

▌SLN( cost, salvage, life ) as Double

返回一个 Double，它指定单个周期的资产的线性折旧额。

更多

▌Space( number ) as String

返回由指定的空格数量构成的 String。参数number是要在字符串中留出的空格数。

▌Spc( n ) as

与 print # 语句或 print 方法一起使用以定位输出。
参数n是在显示或打印列表中的下一个表达式之前要插入的空格数。

更多

▌Split( expression, [ delimiter, [ limit, [ compare ]]] ) as Array

▌StrComp( string1, string2, [ compare ] ) as Integer

返回指示字符串比较的结果的 Variant (Integer)。

▌StrConv( string, conversion, [ LCID ] ) as String

返回按规定转换的字符串

▌String( number, character ) as String

返回包含指定长度重复字符串的 Variant (String)。如果为大于255的_字符_指定一个数字, 则字符串将使用以下公式将该数字转换为有效的字符代码:字符 Mod 256。

▌StrReverse( ) as String

返回一个字符串，在该字符串中，指定字符串的字符顺序将被颠倒。 如果 expression 是零长度字符串 ("")，则会返回零长度字符串。 如果 expression 是 Null，则会发生错误。

▌Switch( expr-1, value-1, [ expr-2, value-2..., [ expr-n, value-n ]] ) as Any

计算表达式的列表并返回与列表中第一个结果为 True 的表达式关联的 Variant 值或表达式。

▌SYD( ) as Double

返回一个 Double，该值指定某项资产在指定期间的年限总额折旧。

更多

▌Tab( n ) as void

与print # 语句或print 方法一起使用以定位输出。当您使用 Tab 函数和 Print 方法时，打印图面将划分为统一的固定宽度的列。 每列的宽度为所选字体的点大小中所有字符的宽度的平均值。

▌Time( ) as Date

返回一个指示当前系统时间的 Variant (Date)。

▌Timer( ) as Single

返回表示自午夜以来已过的秒数的 Single 。

▌TimeSerial( hour, minute, second ) as Date

返回包含特定的小时、分钟和秒所对应的时间的 Variant (Date)。

▌TimeValue( time ) as Date

返回包含时间的 Variant (Date)。 必需的time参数通常是一个字符串表达式, 表示从 0:00:00 (12:00:00 A.M.) 到 23:59:59 (11:59:59 P.M.) 的时间 (包括这两个时间)。 但是，time 也可以是表示该范围内时间的任意表达式。 如果 time 包含 Null，则返回 Null。

▌TypeName( varname ) as String

返回一个提供有关变量的信息的 String。

▌UBound( arrayname, [ dimension ] ) as Long

返回包含指定的数组维度的最大可用下标的Long数据类型。

▌UCase( string ) as String

返回包含转换为大写字母的指定字符串的 Variant (String)。如果_字符串包含 Null，则返回 Null。

▌VarType( varname ) as Integer

返回一个整数, 指示变量的子类型或对象的默认属性的类型。

▌Weekday( date、[ firstdayofweek ] ) as Integer

返回包含一个整数的 Variant (Integer)，该整数表示星期数。

firstdayofweek 可选。 一个指定一周的第一天的常量。 如果不指定，则假定为 vbSunday。

▌WeekdayName( weekday, abbreviate, firstdayofweek ) as

▌Year( date ) as Integer

返回包含表示年的整数的变量（整数）。

VB语句

AppActivate title、[ wait ]

Beep

蜂鸣音

[ Call ] name [ argumentlist ]

ChDir path

必需的path参数是一个字符串表达式, 用于标识哪个目录或文件夹将成为新的默认目录或文件夹。 path 可以包含驱动器。 如果未指定驱动器，ChDir 会更改当前驱动器上的默认目录或文件夹。

ChDrive drive

更改当前驱动器。

Close

结束对使用 Open 语句打开的文件的输入/输出 (i/o)。

[ Public** | Private ] Const constname [ As type ] = expression**

Declare

在模块级别使用, 以声明对动态链接库(DLL) 中的外部过程的引用。

更多

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

Deftype

在模块级别使用, 以设置变量的默认数据类型、传递给过程的参数以及函数 和属性 Get 过程的返回类型, 它们的名称以指定的字符。

更多

DeleteSetting appname、 section、[ key ]

从应用程序在 Windows 注册表（在 Macintosh 上）中的注册项或应用程序的初始化文件中的信息中删除节或项设置。

更多

Dim

声明变量和分配存储空间。
Dim [ WithEvents ] varname [ ( [ subscripts ] ) ] [ As [ New ] type ] [ , [ WithEvents ] varname [ ( [ subscripts ] ) ] [ As [ New ]type ]] . . .

Do...Loop

循环语句

End

结束语句

Enum

枚举语句

[ Public | Private ] Enumname

membername [= constantexpression ]

membername [= constantexpression ]

End Enum

Erase arraylist

重新初始化固定大小数组的元素并释放动态数组存储空间。

Error errornumber

模拟错误的发生。

[ Public ] Event procedurename [ (arglist) ]

arglist 参数具有以下语法和组成部分：

[ ByVal | ByRef ]varname[()] [ As type ]

更多

Exit

退出 Do…Loop 块、 For…Next 、 Function 、 Sub 或 Property 代码。

FileCopy source, destination

复制文件。

For Each...Next

对数组或集合中的每个元素重复一组语句。

For Each element In group

[ statements ]

[ Exit For ]

[ statements ]

Next [ element ]

For...Next

将一组语句重复指定的次数。

For counter = start To end [ Step step ]

[ statements ]

[ Exit For ]

[ statements ]

Next [ counter ]

Function

声明构成Function 过程主体的名称、参数和代码。

[**Public | Private | Friend] [ Static ] Function** name [ ( arglist ) ] [ As type ]
[ statements ]
[ name = expression ]
[ Exit Function ]
[ statements ]
[ name = expression ]
End Function

Get [ # ] filenumber, [ recnumber ], varname

将打开的磁盘文件中的数据读取到变量中。

If...Then...Else

根据表达式的值，有条件地执行一组语句。

Implements [ InterfaceName | Class ]

指定将在其所在的类模块中实现的接口或类。

更多

Input #filenumber, varlist

从打开的顺序文件中读取数据并将此数据分配给变量。

Kill pathname

删除磁盘上的文件。若要删除目录, 请使用RmDir 语句。

Let
将表达式的值赋给变量或属性。

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

Line Input

从打开的顺序文件中读取一行并将其分配给String 变量。

Loadobject

加载一个对象但不显示该对象。

Lock、Unlock

Lock [ # ] filenumber, [ recordrange ] . . .

Unlock [ # ] filenumber, [ recordrange ]

LSet

在字符串变量中将字符串左对齐，或将一个用户定义类型的变量复制到其他用户定义类型的另一个变量。

LSet stringvar = string

LSet varname1 = varname2

Mid(stringvar、 start、[ length ])= string
将stringvar中指定数量的字符替换为其他字符串中的字符。

MkDir path

新建目录或文件夹。

Nameoldpathname As newpathname

重命名磁盘文件、目录或文件夹。

On Error

启用错误处理例程并指定该例程在程序中的位置；还可用于禁用错误处理例程。

On Error GoTo line

On Error Resume Next

On Error GoTo 0

更多

Open

启用对文件的输入/输出 (I/O)。

Open pathname For mode [ Access access ] [ lock ] As [ # ] filenumber [ Len = reclength ]

更多

Option Base { 0 | 1 }

在模块级别使用, 以声明数组下标的默认下限。

Option Compare { Binary | Text | Database }

在模块级别使用, 以声明在比较字符串数据时要使用的默认比较方法。

Option Explicit

在模块级别使用, 以强制显式声明该模块中的所有变量。

Option Private

在允许跨多个项目引用的主机应用程序中使用时，“Option Private Module” 防止模块的内容在其项目外被应用。 在不允许此类引用的主机应用程序（如 Visual Basic 的独立版本）中，“Option Private”无效。

Print #filenumber, [ outputlist ]

outputlist参数：

[{ Spc(n) | Tab [ (n) ]}] [ expression ] [ charpos ]

Private

在模块级别使用, 以声明私有变量并分配存储空间。

Private [ WithEvents ] varname [ ( [ subscripts ] ) ] [ As [ New ] type ]
[ , [ WithEvents ] varname [ ( [ subscripts ] ) ] [ As [ New ] type ]] . . .

Property Get

声明构成属性过程的主体的名称、参数和代码, 这将获取属性的值。

Property Let

声明构成属性过程的主体的名称、参数和代码, 这将为属性分配值。

Property Set

声明构成属性过程的主体的名称、参数和代码, 以设置对对象的引用。

Public

在模块级别使用, 以声明公共变量和分配存储空间。

Public NumberOfEmployees As Integer
Public X As New Worksheet

Put

将数据从变量写入磁盘文件。

RaiseEvent

触发在类、窗体或文档中的模块级别声明的事件。

Randomize [ number ]

初始化随机数字生成器。如果不使用 Randomize ，则当第一次调用 Rnd 函数（不具有参数）时，它将使用与种子相同的数字，并且接下来会将最后生成的数字用作种子值。（若要重复随机数字的顺序，请先立即调用带负参数的 Rnd ，然后再将 Randomize 与数值参数一起使用。 对与 number 相同的值使用 Randomize 不会重复上一个顺序。）

ReDim

在过程级使用, 用于为动态数组变量重新分配存储空间。

Rem comment

用于包括程序中的解释性备注。

Reset

关闭使用Open 语句打开的所有磁盘文件。Reset 语句关闭通过 Open 语句打开的所有活动文件，并将所有文件缓存的内容写入磁盘。

Resume
语法

Resume [ 0 ]

Resume Next

Resume line

RmDir path

RSet stringvar = string

在字符串变量中靠右对齐字符串。

SaveSettingappname、 section、 key、 setting

在 Windows 注册表的应用程序条目中保存或创建应用程序项，或在 Macintosh 上，在应用程序的初始化文件中保存或创建信息。

Seek[ # ] filenumber, position

在使用Open 语句打开的文件中设置下一次读取/写入操作的位置。

更多

Select Case

执行几组语句之一，具体取决于表达式的值。

SendKeys string、[ wait ]

向活动窗口发送一个或多个键击，就像按键盘上的按键一样。

更多

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.

Set

将对象引用分配给变量或属性。

SetAttrpathname , attributes

设置文件的属性信息。

Static

在过程级使用, 用于声明变量和分配存储空间。 在 Static 语句内声明的变量会在代码运行时一直保留其值。

Stop

可将 Stop 语句置于过程中的任意位置来挂起执行。 使用 Stop 语句与在代码中设置断点相似。

Stop 语句将挂起执行，但与 End 不同，除非它位于已编译的可执行 (.exe) 文件中，否则它将关闭任何文件或清除变量。

Sub

声明构成Sub 过程的主体的名称、参数和代码。

Time = time

设置系统时间。

Type

在模块级别使用, 以定义包含一个或多个元素的用户定义的数据类型。

更多

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

Unload object

删除内存中的对象。

While condition [ statements ] Wend

Width #filenumber, width

向使用Open 语句打开的文件分配输出行宽度。

With

对单个对象或用户定义类型执行一系列语句。

Write #filenumber、[ outputlist ]

将数据写入到顺序文件中。

Office.VBA-VB基础

标签：sum   turned   级别   空白   获得   Plan   ntc   atd   least   

原文地址：https://www.cnblogs.com/seasonley/p/12227989.html