VBA 中要用到的常数
作者：
VBA 中要用到的常数
Calendar 常数
可在代码中的任何地方用下列常数代替实际值：
| 常数 | 值 | 描述 |
|---|---|---|
| vbCalGreg | 0 | 指出使用的是阳历。 |
| vbCalHijri | 1 | 指出使用的是伊斯兰历法。 |
Color 常数
可在代码中的任何地方用下列常数代替实际值：
| 常数 | 值 | 描述 |
|---|---|---|
| vbBlack | 0x0 | 黑色 |
| vbRed | 0xFF | 红色 |
| vbGreen | 0xFF00 | 绿色 |
| vbYellow | 0xFFFF | 黄色 |
| vbBlue | 0xFF0000 | 蓝色 |
| vbMagenta | 0xFF00FF | 紫红色 |
| vbCyan | 0xFFFF00 | 青色 |
| vbWhite | 0xFFFFFF | 白色 |
CallType 常数
可在代码中的任何地方用下列常数代替实际值：
| 常数 | 值 | 描述 |
|---|---|---|
| vbMethod | 1 | 指出已经调用了一个方法。 |
| vbGet | 2 | 指出一个Property Get 过程。 |
| vbLet | 4 | 指出一个 Property Let 过程。 |
| vbSet | 8 | 指出一个 Property Set 过程。 |
Comparison常数
| 常数 | 值 | 描述 |
|---|---|---|
| VbUseCompareOption | -1 | 使用Option Compare语句的设置进行比较。 |
| VbBinaryCompare | 0 | 进行二进制的比较。 |
| VbTextCompare | 1 | 进行文字的比较。 |
| vbDatabaseCompare | 2 | 用于 Microsoft Access(仅限于Windows)，进行以数据库所含信息为基础的比较。 |
Compiler 常数
Visual Basic for Applications 定义了一些不能与 #If...Then...#Else 指令一起使用的常数。这些常数除了其范围是全局的；也就是说，除了可在工程中到处应用，在功能上与 #If...Then...#Else 指令定义的常数相同。
在 16 位开发平台上，编译常数定义如下：
| 常数 | 值 | 描述 |
|---|---|---|
| Win16 | True | 指出开发环境是 16 位。 |
| Win32 | False | 指出开发环境不是 32 位。 |
在 32 位开发平台上，编译常数定义如下：
| 常数 | 值 | 描述 |
|---|---|---|
| Vba6 | True | 指出开发环境是 Visual Basic for Applications, version 6.0。 |
| Vba6 | False | 指出开发环境不是Visual Basic for Applications, version 6.0。 |
| Win16 | False | 指出开发环境不是 16 位。 |
| Win32 | True | 指出开发环境是 32 位。 |
| Mac | False | 指出开发环境不是 Macintosh。 |
| Win16 | False | 指出开发环境不是 16位的。 |
| Win32 | False | 指出开发环境不是 32位的。 |
| Mac | True | 指出开发环境是 Macintosh。 |
注意 这些常数是由 Visual Basic 提供的，所以不能在任何层次中用相同名称定义自己的常数。
Date 常数
可在代码中的任何地方用下列常数代替实际值：
参数值
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 | 由新的一年中第一个至少有 4 天的星期开始。 |
| vbFirstFullWeek | 3 | 由一年中第一个完整的星期开始。 |
返回值
| 常数 | 值 | 描述 |
|---|---|---|
| vbSunday | 1 | 星期日 |
| vbMonday | 2 | 星期一 |
| vbTuesday | 3 | 星期二 |
| vbWednesday | 4 | 星期三 |
| vbThursday | 5 | 星期四 |
| vbFriday | 6 | 星期五 |
| vbSaturday | 7 | 星期六 |
日期格式常数
仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时，才可以使用这些常数 。
| 常数 | 值 | 描述 |
|---|---|---|
| vbGeneralDate | 0 | 显示日期和/或时间。对于一个实数，显示日期和时间。如果没有小数部分，则仅显示日期。如果没有整数部分，则仅显示时间。日期和时间的显示由系统设置值确定。 |
| vbLongDate | 1 | 用计算机区域设置值指定的长日期格式显示日期。 |
| vbShortDate | 2 | 用计算机区域设置值指定的短日期格式显示日期。 |
| vbLongTime | 3 | 用计算机区域设置值指定的长时间格式显示时间。 |
| vbShortTime | 4 | 用计算机区域设置值指定的短时间格式显示时间。 |
Dir、GetAttr 和 SetAttr 常数
可在代码中的任何地方用下列常数代替实际值：
| 常数 | 值 | 描述 | |
|---|---|---|---|
| vbNormal | 0 | 正常的（Dir 和 SetAttr 的缺省值） | |
| vbReadOnly | 1 | 只读的 | |
| vbHidden | 2 | 隐藏的 | |
| vbSystem | 4 | 系统文件 | |
| vbVolume | 8 | 卷标 | |
| vbDirectory | 16 | 目录或文件夹 | |
| vbArchive | 32 | 文件自上一次备份后已经改变 | |
| vbAlias | 64 | 在 Macintosh上，标识符是一个别名。 | |
在Macintosh上，只有VbNormal、 vbReadOnly、 vbHidden 和vbAlias是可用的。
驱动器类型常数
仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时，才可以使用这些常数。
| 常数 | 值 | 描述 |
|---|---|---|
| Unknown | 0 | 不能确定驱动器类型。 |
| Removable | 1 | 驱动器具有可删除介质。包括所有软盘驱动器和许多其它种类的存储设备。 |
| Fixed | 2 | 驱动器具有固定介质（不可删除的）。包括可删除硬盘在内的所有硬盘驱动器。 |
| Remote | 3 | 网络驱动器。包括在网络上任何地方都可以共享的驱动器。 |
| CDROM | 4 | 驱动器是一个CD-ROM。包括只读的CD-ROM和可读写的CD-ROM。 |
| RAMDisk | 5 |
驱动器是本地计算机上的一块随机存取内存（RAM），它工作起来就象是磁盘驱动器一样。
|
文件属性常数
仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时，才可以使用这些常数。
| 常数 | 值 | 描述 |
|---|---|---|
| Normal | 0 | 普通文件。没有设置属性。 |
| ReadOnly | 1 | 只读文件。属性是可读/写。 |
| Hidden | 2 | 隐藏文件。属性是可读/写。 |
| System | 4 | 系统文件。属性是可读/写。 |
| Volume | 8 | 磁盘驱动器卷标。属性是只读。 |
| Directory | 16 | 文件夹或目录。属性是只读。 |
| Archive | 32 | 自上次备份后已经改变的文件。属性是可读/写。 |
| Alias | 64 | 链接或快捷方式。属性是只读。 |
| Compressed | 128 | 压缩文件。属性是只读。 |
文件输入/输出常数
仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时，才可以使用这些常数。
| 常数 | 值 | 描述 |
|---|---|---|
| ForReading | 1 | 打开文件用于只读操作。不能对文件进行写操作。 |
| ForWriting | 2 | 打开文件用于写操作。如果存在具有相同文件名的文件，文件原有的内容被覆盖。 |
| ForAppending | 8 | 打开文件并向文件的结尾写入。 |
IMEStatus 常数
可在代码中的任何地方用下列常数代替实际值。
日文区域的常数如下所示：
| 常数 | 值 | 描述 |
|---|---|---|
| vbIMEModeNoControl | 0 | 没有安装 IME（缺省） |
| vbIMEModeOn | 1 | 打开 IME |
| vbIMEModeOff | 2 | 关闭 IME |
| vbIMEModeDisable | 3 | 无效的 IME |
| vbIMEModeHiragana | 4 | 完整宽度 Hiragana 模式 |
| vbIMEModeKatakana | 5 | 完整宽度 Katakana 模式 |
| vbIMEModeKatakanaHalf | 6 | 半宽度 Katakana 模式 |
| vbIMEModeAlphaFull | 7 | 完整宽度 Alphanumeric 模式 |
| vbIMEModeAlpha | 8 | 半宽度 Alphanumeric 模式 |
韩国地区的常数如下所示：
| 常数 | 值 | 描述 |
| vbIMEModeAlphaFull | 7 | 完整宽度 Alphanumeric 模式 |
| vbIMEModeAlpha | 8 | 半宽度 Alphanumeric 模式 |
| vbIMEModeHangulFull | 9 | 完整宽度 Hangul 模式 |
| vbIMEModeHangul | 10 | 半宽度 Hangul 模式 |
中文地区的常数值如下：
| 常数 | 值 | 描述 |
| vbIMEModeNoControl | 0 | 没有安装 IME （缺省） |
| vbIMEModeOn | 1 | IME 打开 |
| vbIMEModeOff | 2 | IME off |
Keycode 常数
可在代码中的任何地方用下列常数代替实际值：
| 常数 | 值 | 描述 |
|---|---|---|
| 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 | SPACEBAR 键 |
| vbKeyPageUp | 0x21 | PAGE UP 键 |
| vbKeyPageDown | 0x22 | PAGE DOWN 键 |
| vbKeyEnd | 0x23 | END 键 |
| vbKeyHome | 0x24 | HOME 键 |
| vbKeyLeft | 0x25 | LEFT ARROW 键 |
| vbKeyUp | 0x26 | UP ARROW 键 |
| vbKeyRight | 0x27 | RIGHT ARROW 键 |
| vbKeyDown | 0x28 | DOWN ARROW 键 |
| 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 键 |
A 至 Z 键与 A – Z 字母的 ASCII 码相同：
| 常数 | 值 | 描述 |
|---|---|---|
| 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 码相同：
| 常数 | 值 | 描述 | |||
|---|---|---|---|---|---|
| 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 键 |
下列常数代表数字键盘上的键：
| 常数 | 值 | 描述 | |||
|---|---|---|---|---|---|
| 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 | MULTIPLICATION SIGN (*) 键 | |||
| vbKeyAdd | 0x6B | PLUS SIGN (+) 键 | |||
| vbKeySeparator | 0x6C | ENTER 键 | |||
| vbKeySubtract | 0x6D | MINUS SIGN (–) 键 | |||
| vbKeyDecimal | 0x6E | DECIMAL POINT (.) 键 | |||
| vbKeyDivide | 0x6F | DIVISION SIGN (/) 键 |
下列常数代表功能键：
| 常数 | 值 | 描述 | |||
|---|---|---|---|---|---|
| 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 键 |
下列常数由 Visual Basic for Applications 中的类型库定义，可用来在代码中的任何地方代替实际值：
| 常数 | 等于 | 描述 |
|---|---|---|
| vbCrLf | Chr(13) + Chr(10) | 回车符与换行符结合 |
| vbCr | Chr(13) | 回车符 |
| vbLf | Chr(10) | 换行符 |
| vbNewLine | Chr(13) + Chr(10) or, on the Macintosh, Chr(13) | 平台指定的新行字符；适用于当前平台 |
| vbNullChar | Chr(0) | 值为 0 的字符 |
| vbNullString | 值为 0 的字符串 | 用来调用外部过程；与长度为零的字符串 ("") 不同 |
| vbObjectError | -2147221504 | 用户定义的错误号应当大于该值，例如：Err.Raise Number = vbObjectError + 1000 |
| vbTab | Chr(9) | Tab 字。 |
| vbBack | Chr(8) | 退格字符 |
| vbFormFeed | Chr(12) | 在 Microsoft Windows or on the Macintosh 中没有作用 |
| vbVerticalTab | Chr(11) | 在 Microsoft or on the Macintosh Windows 中没有作用 |