在VBA中，有以下20种常用常量类型，每类型里面包含多个具体常量。计算机教程网搜索整理VBA常量大全，分享给爱学习的人；
1. Calendar（日历）
|
常量
|
值
|
Description
|
|
vbCalGreg
|
0
|
指示使用公历。
|
|
vbCalHijri
|
1
|
指示使用回历。
|
2. CallType（调用类型）
|
常量
|
值
|
Description
|
|
vbMethod
|
1
|
指示已调用方法。
|
|
vbGet
|
2
|
指示 Property Get 过程。
|
|
vbLet
|
4
|
指示 Property Let 过程。
|
|
vbSet
|
8
|
指示 属性集 过程。
|
3. Color（颜色）
|
常量
|
值
|
Description
|
|
vbBlack
|
0x0
|
黑色
|
|
vbRed
|
0xFF
|
红色
|
|
vbGreen
|
0xFF00
|
绿色
|
|
vbYellow
|
0xFFFF
|
黄色
|
|
vbBlue
|
0xFF0000
|
蓝色
|
|
vbMagenta
|
0xFF00FF
|
洋红
|
|
vbCyan
|
0xFFFF00
|
蓝绿
|
|
vbWhite
|
0xFFFFFF
|
白色
|
4. Comparison（比较）
|
常量
|
值
|
说明
|
|
vbUseCompareOption
|
-1
|
使用 Option Compare语句的设置来执行比较。
|
|
vbBinaryCompare
|
0
|
执行二进制比较。
|
|
vbTextCompare
|
1
|
执行文本比较。
|
|
vbDatabaseCompare
|
2
|
对于 Microsoft Access（仅 Windows），基于您的数据库中包含的信息执行比较。
|
5. Date（日期）和Date format（日期格式）
日期常量：firstdayofweek参数具有以下值。
|
常量
|
值
|
说明
|
|
vbUseSystem
|
0
|
使用 NLS API 设置。
|
|
vbSunday
|
1
|
周日（默认）
|
|
vbMonday
|
2
|
星期一
|
|
vbTuesday
|
3
|
星期二
|
|
vbWednesday
|
4
|
星期三
|
|
vbThursday
|
5
|
星期四
|
|
vbFriday
|
6
|
星期五
|
|
vbSaturday
|
7
|
星期六
|
日期常量：firstdayofyear 参数具有以下值。
|
常量
|
值
|
说明
|
|
vbUseSystem
|
0
|
使用 NLS API 设置。
|
|
VbUseSystemDayOfWeek
|
0
|
使用系统设置中指定的星期数作为一周的第一天。
|
|
VbFirstJan1
|
1
|
从 1 月 1 日所在的周开始（默认）。
|
|
vbFirstFourDays
|
2
|
从至少包含新的一年中的四天的那一周开始。
|
|
vbFirstFullWeek
|
3
|
从一年的第一个完整周开始。
|
日期格式常量如下：
|
常量
|
值
|
Description
|
|
vbGeneralDate
|
0
|
显示日期和/或时间。 对于实数，显示日期和时间。 如果没有小数部分，则只显示日期。
如果没有整数部分，则只显示时间。 日期和时间显示由系统设置确定。
|
|
vbLongDate
|
1
|
使用计算机区域设置中指定的长日期格式显示日期。
|
|
vbShortDate
|
2
|
使用计算机区域设置中指定的短日期格式显示日期。
|
|
vbLongTime
|
3
|
使用计算机区域设置中指定的长时间格式显示时间。
|
|
vbShortTime
|
4
|
使用计算机区域设置中指定的短时间格式显示时间。
|
6. Dir、GetAttr 和 SetAttr（目录和文件属性）
|
常量
|
值
|
说明
|
|
vbNormal
|
0
|
Normal（“Dir”和“SetAttr”的默认值）
|
|
vbReadOnly
|
1
|
只读
|
|
vbHidden
|
2
|
Hidden
|
|
vbSystem
|
4
|
系统文件
|
|
vbVolume
|
8
|
卷标
|
|
vbDirectory
|
16
|
目录或文件夹
|
|
vbArchive
|
32
|
文件在上次备份后已更改
|
|
vbAlias
|
64
|
在 Macintosh 上，标识符是别名
|
7. DriveType（驱动器类型）
|
常量
|
值
|
Description
|
|
Unknown
|
0
|
无法确定驱动器类型。
|
|
Removable
|
1
|
驱动器有可移动媒体。 这包括所有软盘驱动器和许多其他种类的存储设备。
|
|
Fixed
|
2
|
驱动器有固定（不可移动）媒体。 这包括所有硬盘驱动器，包括可移动的硬盘驱动器。
|
|
Remote
|
3
|
网络设备。 这包括网络上共享的所有驱动器。
|
|
CDROM
|
4
|
驱动器为 CD-ROM。
只读和可读/写 CD-ROM 驱动器之间没有区别。
|
|
RAMDisk
|
5
|
驱动器是本地计算机上的随机访问内存块， (RAM) ，其行为类似于磁盘驱动器。
|
8. File Attribute（文件属性）
|
常量
|
值
|
Description
|
|
Normal
|
0
|
普通文件。 未设置属性。
|
|
ReadOnly
|
1
|
只读文件。 属性是可读/写的。
|
|
Hidden
|
2
|
隐藏文件。 属性是可读/写的。
|
|
System
|
4
|
系统文件。 属性是可读/写的。
|
|
Volume
|
8
|
磁盘驱动器卷标。 属性是只读的。
|
|
Directory
|
16
|
文件夹或目录。 属性是只读的。
|
|
Archive
|
32
|
文件自上次备份以来已发生更改。 属性是可读/写的。
|
|
Alias
|
64
|
链接或快捷方式。 属性是只读的。
|
|
Compressed
|
128
|
压缩文件。 属性是只读的。
|
9. File
Input/Output（文件输入/输出）
|
常量
|
值
|
Description
|
|
ForReading
|
1
|
只为了要读取而打开文件。 不能写入该文件。
|
|
ForWriting
|
2
|
打开文件进行写入。 如果已存在同名文件，之前的内容将被覆盖。
|
|
ForAppending
|
8
|
打开文件，然后写入到文件的末尾。
|
10. Form（表单）
|
常量
|
值
|
Description
|
|
vbModeless
|
0
|
UserForm 是无模式的。
|
|
vbModal
|
1
|
UserForm 是模式的（默认）。
|
11. IMEStatus（输入法状态）
日语 区域设置 的常量如下所示。
|
常量
|
值
|
Description
|
|
vbIMEModeNoControl
|
0
|
不控制输入法（默认）
|
|
vbIMEModeOn
|
1
|
输入法开启
|
|
vbIMEModeOff
|
2
|
输入法关闭
|
|
vbIMEModeDisable
|
3
|
输入法已禁用
|
|
vbIMEModeHiragana
|
4
|
全角平假名模式
|
|
vbIMEModeKatakana
|
5
|
全角片假名模式
|
|
vbIMEModeKatakanaHalf
|
6
|
半角片假名模式
|
|
vbIMEModeAlphaFull
|
7
|
全角字母数字模式
|
|
vbIMEModeAlpha
|
8
|
半角字母数字模式
|
朝鲜语区域设置的常量值如下所示。
|
常量
|
值
|
Description
|
|
vbIMEModeNoControl
|
0
|
不控制输入法（默认）
|
|
vbIMEModeAlphaFull
|
7
|
全角字母数字模式
|
|
vbIMEModeAlpha
|
8
|
半角字母数字模式
|
|
vbIMEModeHangulFull
|
9
|
全角朝鲜文模式
|
|
vbIMEModeHangul
|
10
|
半角朝鲜文模式
|
中文区域设置的常量值如下所示。
|
常量
|
值
|
Description
|
|
vbIMEModeNoControl
|
0
|
不控制输入法（默认）
|
|
vbIMEModeOn
|
1
|
输入法开启
|
|
vbIMEModeOff
|
2
|
输入法关闭
|
12. Keycode（按键代码）
|
常量
|
值
|
Description
|
|
vbKeyLButton
|
0x1
|
鼠标左键
|
|
vbKeyRButton
|
0x2
|
鼠标右键
|
|
vbKeyCancel
|
0x3
|
Cancel 键
|
|
vbKeyMButton
|
0x4
|
鼠标中键
|
|
vbKeyBack
|
0x8
|
Backspace 键
|
|
vbKeyTab
|
0x9
|
Tab 键
|
|
vbKeyClear
|
0xC
|
Clear 键
|
|
vbKeyReturn
|
0xD
|
Enter 键
|
|
vbKeyShift
|
0x10
|
Shift 键
|
|
vbKeyControl
|
0x11
|
Ctrl 键
|
|
vbKeyMenu
|
0x12
|
Menu 键
|
|
vbKeyPause
|
0x13
|
Pause 键
|
|
vbKeyCapital
|
0x14
|
Caps Lock 键
|
|
vbKeyEscape
|
0x1B
|
Esc 键
|
|
vbKeySpace
|
0x20
|
空格键
|
|
vbKeyPageUp
|
0x21
|
Page Up 键
|
|
vbKeyPageDown
|
0x22
|
Page Down 键
|
|
vbKeyEnd
|
0x23
|
End 键
|
|
vbKeyHome
|
0x24
|
Home 键
|
|
vbKeyLeft
|
0x25
|
向左键
|
|
vbKeyUp
|
0x26
|
向上键
|
|
vbKeyRight
|
0x27
|
向右键
|
|
vbKeyDown
|
0x28
|
向下键
|
|
vbKeySelect
|
0x29
|
Select 键
|
|
vbKeyPrint
|
0x2A
|
Print Screen 键
|
|
vbKeyExecute
|
0x2B
|
Execute 键
|
|
vbKeySnapshot
|
0x2C
|
Snapshot 键
|
|
vbKeyInsert
|
0x2D
|
Insert 键
|
|
vbKeyDelete
|
0x2E
|
Delete 键
|
|
vbKeyHelp
|
0x2F
|
Help 键
|
|
vbKeyNumlock
|
0x90
|
Num Lock 键
|
键 - Z 键
通过 Z 键的 A 键与 ASCII 等效项 A–Z 相同。
|
常量
|
值
|
Description
|
|
vbKeyA
|
65
|
A 键
|
|
vbKeyB
|
66
|
B 键
|
|
vbKeyC
|
67
|
C 键
|
|
vbKeyD
|
68
|
D 键
|
|
vbKeyE
|
69
|
E 键
|
|
vbKeyF
|
70
|
F 键
|
|
vbKeyG
|
71
|
G 键
|
|
vbKeyH
|
72
|
H 键
|
|
vbKeyI
|
73
|
I 键
|
|
vbKeyJ
|
74
|
J 键
|
|
vbKeyK
|
75
|
K 键
|
|
vbKeyL
|
76
|
L 键
|
|
vbKeyM
|
77
|
M 键
|
|
vbKeyN
|
78
|
N 键
|
|
vbKeyO
|
79
|
O 键
|
|
vbKeyP
|
80
|
P 键
|
|
vbKeyQ
|
81
|
Q 键
|
|
vbKeyR
|
82
|
R 键
|
|
vbKeyS
|
83
|
S 键
|
|
vbKeyT
|
84
|
T 键
|
|
vbKeyU
|
85
|
U 键
|
|
vbKeyV
|
86
|
V 键
|
|
vbKeyW
|
87
|
W 键
|
|
vbKeyX
|
88
|
X 键
|
|
vbKeyY
|
89
|
Y 键
|
|
vbKeyZ
|
90
|
Z 键
|
0 键 - 9 键
0 到 9 键与其 ASCII 等效项 0-9 相同。
|
常量
|
值
|
Description
|
|
vbKey0
|
48
|
0 键
|
|
vbKey1
|
49
|
1 键
|
|
vbKey2
|
50
|
2 键
|
|
vbKey3
|
51
|
3 键
|
|
vbKey4
|
52
|
4 键
|
|
vbKey5
|
53
|
5 键
|
|
vbKey6
|
54
|
6 键
|
|
vbKey7
|
55
|
7 键
|
|
vbKey8
|
56
|
8 键
|
|
vbKey9
|
57
|
9 键
|
数字键盘键
以下常量表示数字小键盘上的键。
|
常量
|
值
|
Description
|
|
vbKeyNumpad0
|
0x60
|
0 键
|
|
vbKeyNumpad1
|
0x61
|
1 键
|
|
vbKeyNumpad2
|
0x62
|
2 键
|
|
vbKeyNumpad3
|
0x63
|
3 键
|
|
vbKeyNumpad4
|
0x64
|
4 键
|
|
vbKeyNumpad5
|
0x65
|
5 键
|
|
vbKeyNumpad6
|
0x66
|
6 键
|
|
vbKeyNumpad7
|
0x67
|
7 键
|
|
vbKeyNumpad8
|
0x68
|
8 键
|
|
vbKeyNumpad9
|
0x69
|
9 键
|
|
vbKeyMultiply
|
0x6A
|
乘号 (*) 键
|
|
vbKeyAdd
|
0x6B
|
加号 (+) 键
|
|
vbKeySeparator
|
0x6C
|
Enter 键
|
|
vbKeySubtract
|
0x6D
|
减号 (-) 键
|
|
vbKeyDecimal
|
0x6E
|
小数点 (.) 键
|
|
vbKeyDivide
|
0x6F
|
除号 (/) 键
|
函数键
以下常量表示函数键。
|
常量
|
值
|
Description
|
|
vbKeyF1
|
0x70
|
F1 键
|
|
vbKeyF2
|
0x71
|
F2 键
|
|
vbKeyF3
|
0x72
|
F3 键
|
|
vbKeyF4
|
0x73
|
F4 键
|
|
vbKeyF5
|
0x74
|
F5 键
|
|
vbKeyF6
|
0x75
|
F6 键
|
|
vbKeyF7
|
0x76
|
F7 键
|
|
vbKeyF8
|
0x77
|
F8 键
|
|
vbKeyF9
|
0x78
|
F9 键
|
|
vbKeyF10
|
0x79
|
F10 键
|
|
vbKeyF11
|
0x7A
|
F11 键
|
|
vbKeyF12
|
0x7B
|
F12 键
|
|
vbKeyF13
|
0x7C
|
F13 键
|
|
vbKeyF14
|
0x7D
|
F14 键
|
|
vbKeyF15
|
0x7E
|
F15 键
|
|
vbKeyF16
|
0x7F
|
F16 键
|
13. Miscellaneous（杂项）
|
常量
|
等效
|
Description
|
|
vbCrLf
|
Chr (13) + Chr (10)
|
回车-换行符组合
|
|
vbCr
|
Chr (13)
|
回车符
|
|
vbLf
|
Chr (10)
|
换行符
|
|
vbNewLine
|
Chr (13) + Chr (10) ，或在 Macintosh 上，Chr (13)
|
特定于平台的新行字符；无论哪个都适用于当前平台
|
|
vbNullChar
|
Chr (0)
|
值为 0 的字符
|
|
vbNullString
|
值为 0 的字符串
|
与零长度字符串 ("") 不同；用于调用外部过程
|
|
vbObjectError
|
-2147221504
|
用户定义的错误数应大于该值。 例如：
Err.Raise Number =
vbObjectError + 1000
|
|
vbTab
|
Chr (9)
|
制表符
|
|
vbBack
|
Chr (8)
|
退格符
|
|
vbFormFeed
|
Chr (12)
|
在 Microsoft Windows 或 Macintosh 上不起作用
|
|
vbVerticalTab
|
Chr (11)
|
在 Microsoft Windows 或 Macintosh 上不起作用
|
14. MsgBox（消息框）
MsgBox 参数
|
常量
|
值
|
说明
|
|
vbOKOnly
|
0
|
仅“确定”按钮（默认）
|
|
vbOKCancel
|
1
|
“确定”和“取消”按钮
|
|
vbAbortRetryIgnore
|
2
|
“中止”、“重试”和“忽略”按钮
|
|
vbYesNoCancel
|
3
|
“是”、“否”和“取消”按钮
|
|
vbYesNo
|
4
|
“是”和“否”按钮
|
|
vbRetryCancel
|
5
|
“重试”和“取消”按钮
|
|
vbCritical
|
16
|
严重消息
|
|
vbQuestion
|
32
|
警告查询
|
|
vbExclamation
|
48
|
警告消息
|
|
vbInformation
|
64
|
信息消息
|
|
vbDefaultButton1
|
0
|
第一个按钮是默认按钮（默认）
|
|
vbDefaultButton2
|
256
|
第二个按钮是默认按钮
|
|
vbDefaultButton3
|
512
|
第三个按钮是默认按钮
|
|
vbDefaultButton4
|
768
|
第四个按钮是默认按钮
|
|
vbApplicationModal
|
0
|
应用程序模式消息框（默认）
|
|
vbSystemModal
|
4096
|
系统模式消息框
|
|
vbMsgBoxHelpButton
|
16384
|
向消息框添加帮助按钮
|
|
VbMsgBoxSetForeground
|
65536
|
指定消息框窗口作为前台窗口
|
|
vbMsgBoxRight
|
524288
|
文本右对齐
|
|
vbMsgBoxRtlReading
|
1048576
|
指定文本在 Hebrew 和 Arabic 系统上应显示为从右到左读取
|
MsgBox 返回值
|
常量
|
值
|
说明
|
|
vbOK
|
1
|
按“确定”按钮
|
|
vbCancel
|
2
|
按“取消”按钮
|
|
vbAbort
|
3
|
按“中止”按钮
|
|
vbRetry
|
4
|
按“重试”按钮
|
|
vbIgnore
|
5
|
按“忽略”按钮
|
|
vbYes
|
6
|
按“是”按钮
|
|
vbNo
|
7
|
按“否”按钮
|
15. QueryClose（关闭查询）
|
常量
|
值
|
Description
|
|
vbFormControlMenu
|
0
|
用户从窗体“控制”菜单中选择“关闭”命令。
|
|
vbFormCode
|
1
|
Unload 语句是从代码调用的。
|
|
vbAppWindows
|
2
|
当前 Microsoft Windows 操作环境会话结束。
|
|
vbAppTaskManager
|
3
|
Windows 的“任务管理器”正在关闭应用程序。
|
16. Shell（命令行管理函数）
|
常量
|
值
|
说明
|
|
vbHide
|
0
|
窗口将隐藏，并且焦点将传递给隐藏窗口。
|
|
vbNormalFocus
|
1
|
窗口具有焦点且还原为其原始大小和位置。
|
|
vbMinimizedFocus
|
2
|
窗口将显示为具有焦点的图标。
|
|
vbMaximizedFocus
|
3
|
使用焦点最大化窗口。
|
|
vbNormalNoFocus
|
4
|
窗口将还原为其最新的大小和位置。 当前活动窗口仍保持活动状态。
|
|
vbMinimizedNoFocus
|
6
|
窗口将显示为图标。 当前活动窗口仍保持活动状态。
|
在 Macintosh 上， vbNormalFocus、 vbMinimizedFocus 和 vbMaximizedFocus 均将应用程序置于前台; vbHide、 vbNoFocus 和 vbMinimizedFocus 均将应用程序置于后台。
17. SpecialFolder（特殊文件夹）
|
常量
|
值
|
Description
|
|
WindowsFolder
|
0
|
Windows 文件夹包含了 Windows 操作系统安装的文件。
|
|
SystemFolder
|
1
|
系统文件夹包含了库、字体和设备驱动程序。
|
|
TemporaryFolder
|
2
|
临时文件夹用于存储临时文件。 在 TMP 环境变量中可发现其路径。
|
18. StrConv（字符串转换）
|
常量
|
值
|
Description
|
|
vbUpperCase
|
1
|
将字符串转换为大写字符。
|
|
vbLowerCase
|
2
|
将字符串转换为小写字符。
|
|
vbProperCase
|
3
|
将字符串中每个词的第一个字母转换为大写。
|
|
vbWide
|
4
|
将字符串中的窄（单字节）字符转换为宽（双字节）字符。 适用于东亚区域设置。
|
|
vbNarrow
|
8
|
将字符串中的宽（双字节）字符转换为窄（单字节）字符。 适用于东亚区域设置。
|
|
vbKatakana
|
16
|
将字符串中的平假名字符转换为片假名字符。 仅适用于日本。
|
|
vbHiragana
|
32
|
将字符串中的片假名字符转换为平假名字符。 仅适用于日本。
|
|
vbUnicode
|
64
|
使用系统的默认代码页将字符串转换为 Unicode ， (Macintosh) 上不可用。
|
|
vbFromUnicode
|
128
|
将字符串从 Unicode 转换为系统的默认代码页， (Macintosh) 上不可用。
|
19. System Color（系统颜色）
|
常量
|
值
|
Description
|
|
vbScrollBars
|
0x80000000
|
滚动条颜色
|
|
vbDesktop
|
0x80000001
|
桌面颜色
|
|
vbActiveTitleBar
|
0x80000002
|
活动窗口标题栏的颜色
|
|
vbInactiveTitleBar
|
0x80000003
|
非活动窗口标题栏的颜色
|
|
vbMenuBar
|
0x80000004
|
菜单背景颜色
|
|
vbWindowBackground
|
0x80000005
|
窗口背景颜色
|
|
vbWindowFrame
|
0x80000006
|
窗框颜色
|
|
vbMenuText
|
0x80000007
|
菜单上文本的颜色
|
|
vbWindowText
|
0x80000008
|
窗口中文本的颜色
|
|
vbTitleBarText
|
0x80000009
|
标题、缩放框以及滚动箭头中文本的颜色
|
|
vbActiveBorder
|
0x8000000A
|
活动窗口的边框颜色
|
|
vbInactiveBorder
|
0x8000000B
|
非活动窗口的边框颜色
|
|
vbApplicationWorkspace
|
0x8000000C
|
多文档界面 (MDI) 应用程序的背景颜色
|
|
vbHighlight
|
0x8000000D
|
控件中选定项的背景颜色
|
|
vbHighlightText
|
0x8000000E
|
控件中选定项的文本颜色
|
|
vbButtonFace
|
0x8000000F
|
命令按钮表面的阴影颜色
|
|
vbButtonShadow
|
0x80000010
|
命令按钮边缘的阴影颜色
|
|
vbGrayText
|
0x80000011
|
灰显（禁用）文本
|
|
vbButtonText
|
0x80000012
|
按钮上的文本颜色
|
|
vbInactiveCaptionText
|
0x80000013
|
非活动标题中文本的颜色
|
|
vb3DHighlight
|
0x80000014
|
3-D 显示元素的高亮颜色
|
|
vb3DDKShadow
|
0x80000015
|
3-D 显示元素的最暗阴影颜色
|
|
vb3DLight
|
0x80000016
|
vb3DHighlight之后第二淡的 3-D 颜色
|
|
vbInfoText
|
0x80000017
|
工具提示中文本的颜色
|
|
vbInfoBackground
|
0x80000018
|
工具提示的背景颜色
|
20. Tristate（三态）
|
常量
|
值
|
Description
|
|
vbTrue
|
-1
|
True
|
|
vbFalse
|
0
|
错误
|
|
vbUseDefault
|
-2
|
使用默认设置
|
错误常量
vbObjectError、vbNull、vbEmpty
在 Excel VBA 中，有一些预定义的错误常量可用于处理错误和异常情况。下面是一些常见的错误常量：
vbObjectError: 这是一个常量，可以用来表示对象错误的基本值。如果一个对象在执行期间出现错误，可以将此常量与自定义错误代码相加，以便在错误处理程序中处理它们。例如，可以使用Err.Raise vbObjectError + 1001将错误代码设置为 1001。
vbNull: 这是一个常量，表示一个空的对象引用。当需要清空一个对象时，可以将其设置为 vbNull。
vbEmpty: 这是一个常量，表示一个空的变量。如果一个变量尚未被初始化，那么它的默认值为 vbEmpty。
除此之外，还有其他的错误常量，如vbCr表示回车符，vbTab表示制表符等。它们在处理字符串时非常有用。
对象常量
vbEmpty、vbNullString、vbCr、vbTab
Excel VBA中还有一些常用的对象常量，常用的对象常量包括：
vbEmpty：表示未初始化的变量，其值为0；