VBA 中要用到的常数

Calendar 常数

可在代码中的任何地方用下列常数代替实际值:

常数描述
vbCalGreg0指出使用的是阳历。
vbCalHijri1指出使用的是伊斯兰历法。

Color 常数

可在代码中的任何地方用下列常数代替实际值:

常数描述
vbBlack0x0黑色
vbRed0xFF红色
vbGreen0xFF00绿色
vbYellow0xFFFF黄色
vbBlue0xFF0000蓝色
vbMagenta0xFF00FF紫红色
vbCyan0xFFFF00青色
vbWhite0xFFFFFF白色

CallType 常数

可在代码中的任何地方用下列常数代替实际值:

常数描述
vbMethod1指出已经调用了一个方法。
vbGet2指出一个Property Get 过程。
vbLet4指出一个 Property Let 过程。
vbSet8指出一个 Property Set 过程。

下列常数由 Visual Basic for Applications 中的类型库定义,可用来在代码中的任何地方代替实际值:

Comparison常数

常数描述
VbUseCompareOption-1使用Option Compare语句的设置进行比较。
VbBinaryCompare0进行二进制的比较。
VbTextCompare1进行文字的比较。
vbDatabaseCompare2用于 Microsoft Access(仅限于Windows),进行以数据库所含信息为基础的比较。

Compiler 常数

Visual Basic for Applications 定义了一些不能与 #If...Then...#Else 指令一起使用的常数。这些常数除了其范围是全局的;也就是说,除了可在工程中到处应用,在功能上与 #If...Then...#Else 指令定义的常数相同。

在 16 位开发平台上,编译常数定义如下:

常数描述
Win16True指出开发环境是 16 位。
Win32False指出开发环境不是 32 位。

在 32 位开发平台上,编译常数定义如下:

常数描述
Vba6True指出开发环境是 Visual Basic for Applications, version 6.0。
Vba6False指出开发环境不是Visual Basic for Applications, version 6.0。
Win16False指出开发环境不是 16 位。
Win32True指出开发环境是 32 位。

MacFalse指出开发环境不是 Macintosh。
Win16False指出开发环境不是 16位的。
Win32False指出开发环境不是 32位的。
MacTrue指出开发环境是 Macintosh。


注意 这些常数是由 Visual Basic 提供的,所以不能在任何层次中用相同名称定义自己的常数。

 

Date 常数

可在代码中的任何地方用下列常数代替实际值:

参数值

firstdayofweek 参数具有以下这些值:

常数描述
vbUseSystem0使用 NLS API 设置。
vbSunday1星期日(缺省)
vbMonday2星期一
vbTuesday3星期二
vbWednesday4星期三
vbThursday5星期四
vbFriday6星期五
vbSaturday7星期六

firstdayofyear 参数具有以下这些值:

常数描述
vbUseSystem0使用 NLS API 设置。
VbUseSystemDayOfWeek0使用系统设置中为星期的第一天指定的星期数。
VbFirstJan11由 1 月 1 日所在的那个星期开始(缺省)。
vbFirstFourDays2由新的一年中第一个至少有 4 天的星期开始。
vbFirstFullWeek3由一年中第一个完整的星期开始。

返回值

常数描述
vbSunday1星期日
vbMonday2星期一
vbTuesday3星期二
vbWednesday4星期三
vbThursday5星期四
vbFriday6星期五
vbSaturday7星期六


日期格式常数

仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时,才可以使用这些常数 。

常数描述
vbGeneralDate0显示日期和/或时间。对于一个实数,显示日期和时间。如果没有小数部分,则仅显示日期。如果没有整数部分,则仅显示时间。日期和时间的显示由系统设置值确定。
vbLongDate1用计算机区域设置值指定的长日期格式显示日期。
vbShortDate2用计算机区域设置值指定的短日期格式显示日期。
vbLongTime3用计算机区域设置值指定的长时间格式显示时间。
vbShortTime4用计算机区域设置值指定的短时间格式显示时间。

Dir、GetAttr 和 SetAttr 常数

可在代码中的任何地方用下列常数代替实际值:

常数描述
vbNormal0正常的(Dir 和 SetAttr 的缺省值)
vbReadOnly1只读的
vbHidden2隐藏的
vbSystem4系统文件
vbVolume8卷标
vbDirectory16目录或文件夹
vbArchive32文件自上一次备份后已经改变
vbAlias64在 Macintosh上,标识符是一个别名。

在Macintosh上,只有VbNormal、 vbReadOnly、 vbHidden 和vbAlias是可用的。

驱动器类型常数

仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时,才可以使用这些常数。

常数描述
Unknown0不能确定驱动器类型。
Removable1驱动器具有可删除介质。包括所有软盘驱动器和许多其它种类的存储设备。
Fixed2驱动器具有固定介质(不可删除的)。包括可删除硬盘在内的所有硬盘驱动器。
Remote3网络驱动器。包括在网络上任何地方都可以共享的驱动器。
CDROM4驱动器是一个CD-ROM。包括只读的CD-ROM和可读写的CD-ROM。
RAMDisk5

驱动器是本地计算机上的一块随机存取内存(RAM),它工作起来就象是磁盘驱动器一样。

文件属性常数

仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时,才可以使用这些常数。

常数描述
Normal0普通文件。没有设置属性。
ReadOnly1只读文件。属性是可读/写。
Hidden2隐藏文件。属性是可读/写。
System4系统文件。属性是可读/写。
Volume8磁盘驱动器卷标。属性是只读。
Directory16文件夹或目录。属性是只读。
Archive32自上次备份后已经改变的文件。属性是可读/写。
Alias64链接或快捷方式。属性是只读。
Compressed128压缩文件。属性是只读。

 

文件输入/输出常数

仅当您的工程对包含这些常数定义的相应类型库有一个显式引用时,才可以使用这些常数。

常数描述
ForReading1打开文件用于只读操作。不能对文件进行写操作。
ForWriting2打开文件用于写操作。如果存在具有相同文件名的文件,文件原有的内容被覆盖。
ForAppending8打开文件并向文件的结尾写入。

IMEStatus 常数

可在代码中的任何地方用下列常数代替实际值。

日文区域的常数如下所示:

常数描述
vbIMEModeNoControl0没有安装 IME(缺省)
vbIMEModeOn1打开 IME
vbIMEModeOff2关闭 IME
vbIMEModeDisable3无效的 IME
vbIMEModeHiragana4完整宽度 Hiragana 模式
vbIMEModeKatakana5完整宽度 Katakana 模式
vbIMEModeKatakanaHalf6半宽度 Katakana 模式
vbIMEModeAlphaFull7完整宽度 Alphanumeric 模式

vbIMEModeAlpha8半宽度 Alphanumeric 模式

韩国地区的常数如下所示:

常数描述
vbIMEModeAlphaFull7完整宽度 Alphanumeric 模式
vbIMEModeAlpha8半宽度 Alphanumeric 模式
vbIMEModeHangulFull9完整宽度 Hangul 模式
vbIMEModeHangul10半宽度 Hangul 模式

中文地区的常数值如下:

常数描述
vbIMEModeNoControl0没有安装 IME (缺省)
vbIMEModeOn1IME 打开
vbIMEModeOff2IME off

 

Keycode 常数

可在代码中的任何地方用下列常数代替实际值:

常数描述
vbKeyLButton0x1鼠标左键
vbKeyRButton0x2鼠标右键
vbKeyCancel0x3CANCEL 键
vbKeyMButton0x4鼠标中键
vbKeyBack0x8BACKSPACE 键
vbKeyTab0x9TAB 键
vbKeyClear0xCCLEAR 键
vbKeyReturn0xDENTER 键
vbKeyShift0x10SHIFT 键
vbKeyControl0x11CTRL 键
vbKeyMenu0x12MENU 键
vbKeyPause0x13PAUSE 键
vbKeyCapital0x14CAPS LOCK 键
vbKeyEscape0x1BESC 键
vbKeySpace0x20SPACEBAR 键
vbKeyPageUp0x21PAGE UP 键
vbKeyPageDown0x22PAGE DOWN 键
vbKeyEnd0x23END 键
vbKeyHome0x24HOME 键
vbKeyLeft0x25LEFT ARROW 键
vbKeyUp0x26UP ARROW 键
vbKeyRight0x27RIGHT ARROW 键
vbKeyDown0x28DOWN ARROW 键
vbKeySelect0x29SELECT 键
vbKeyPrint0x2APRINT SCREEN 键
vbKeyExecute0x2BEXECUTE 键
vbKeySnapshot0x2CSNAPSHOT 键
vbKeyInsert0x2DINSERT 键
vbKeyDelete0x2EDELETE 键
vbKeyHelp0x2FHELP 键
vbKeyNumlock0x90NUM LOCK 键

A 至 Z 键与 A – Z 字母的 ASCII 码相同:

常数描述
vbKeyA65A 键
vbKeyB66B 键
vbKeyC67C 键
vbKeyD68D 键
vbKeyE69E 键
vbKeyF70F 键
vbKeyG71G 键
vbKeyH72H 键
vbKeyI73I 键
vbKeyJ74J 键
vbKeyK75K 键
vbKeyL76L 键
vbKeyM77M 键
vbKeyN78N 键
vbKeyO79O 键
vbKeyP80P 键
vbKeyQ81Q 键
vbKeyR82R 键
vbKeyS83S 键
vbKeyT84T 键
vbKeyU85U 键
vbKeyV86V 键
vbKeyW87W 键
vbKeyX88X 键
vbKeyY89Y 键
vbKeyZ90Z 键

0 至 9 键与数字 0 – 9 的 ASCII 码相同:

常数描述
vbKey0480 键
vbKey1491 键
vbKey2502 键
vbKey3513 键
vbKey4524 键
vbKey5535 键
vbKey6546 键
vbKey7557 键
vbKey8568 键
vbKey9579 键

下列常数代表数字键盘上的键:

常数描述
vbKeyNumpad00x600 键
vbKeyNumpad10x611 键
vbKeyNumpad20x622 键
vbKeyNumpad30x633 键
vbKeyNumpad40x644 键
vbKeyNumpad50x655 键
vbKeyNumpad60x666 键
vbKeyNumpad70x677 键
vbKeyNumpad80x688 键
vbKeyNumpad90x699 键
vbKeyMultiply0x6AMULTIPLICATION SIGN (*) 键
vbKeyAdd0x6BPLUS SIGN (+) 键
vbKeySeparator0x6CENTER 键
vbKeySubtract0x6DMINUS SIGN () 键
vbKeyDecimal0x6EDECIMAL POINT (.) 键
vbKeyDivide0x6FDIVISION SIGN (/) 键

下列常数代表功能键:

常数描述
vbKeyF10x70F1 键
vbKeyF20x71F2 键
vbKeyF30x72F3 键
vbKeyF40x73F4 键
vbKeyF50x74F5 键
vbKeyF60x75F6 键
vbKeyF70x76F7 键
vbKeyF80x77F8 键
vbKeyF90x78F9 键
vbKeyF100x79F10 键
vbKeyF110x7AF11 键
vbKeyF120x7BF12 键
vbKeyF130x7CF13 键
vbKeyF140x7DF14 键
vbKeyF150x7EF15 键
vbKeyF160x7FF16 键

Miscellaneous 常数

下列常数由 Visual Basic for Applications 中的类型库定义,可用来在代码中的任何地方代替实际值:

常数等于描述
vbCrLfChr(13) + Chr(10)回车符与换行符结合
vbCrChr(13)回车符
vbLfChr(10)换行符
vbNewLineChr(13) + Chr(10or, on the Macintosh, Chr(13)平台指定的新行字符;适用于当前平台
vbNullCharChr(0)值为 0 的字符
vbNullString值为 0 的字符串用来调用外部过程;与长度为零的字符串 ("") 不同
vbObjectError-2147221504用户定义的错误号应当大于该值,例如:
Err.Raise Number = vbObjectError + 1000
vbTabChr(9)Tab 字。
vbBackChr(8)退格字符
vbFormFeedChr(12)在 Microsoft Windows or on the Macintosh 中没有作用
vbVerticalTabChr(11)在 Microsoft or on the Macintosh Windows 中没有作用

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
Excel VBA常数变量集合,部分示例如下: Public Const xlAll = &HFFFFEFF8 Public Const xlAutomatic = &HFFFFEFF7 Public Const xlBoth = 1 Public Const xlCenter = &HFFFFEFF4 Public Const xlChecker = 9 Public Const xlCircle = 8 Public Const xlCorner = 2 Public Const xlCrissCross = 16 Public Const xlCross = 4 Public Const xlDiamond = 2 Public Const xlDistributed = &HFFFFEFEB Public Const xlDoubleAccounting = 5 Public Const xlFixedValue = 1 Public Const xlFormats = &HFFFFEFE6 Public Const xlGray16 = 17 Public Const xlGray8 = 18 Public Const xlGrid = 15 Public Const xlHigh = &HFFFFEFE1 Public Const xlInside = 2 Public Const xlJustify = &HFFFFEFDE Public Const xlLightDown = 13 Public Const xlLightHorizontal = 11 Public Const xlLightUp = 14 Public Const xlLightVertical = 12 Public Const xlLow = &HFFFFEFDA Public Const xlManual = &HFFFFEFD9 Public Const xlMinusValues = 3 Public Const xlModule = &HFFFFEFD3 Public Const xlNextToAxis = 4 Public Const xlNone = &HFFFFEFD2 Public Const xlNotes = &HFFFFEFD0 Public Const xlOff = &HFFFFEFCE Public Const xlOn = 1 Public Const xlPercent = 2 Public Const xlPlus = 9 Public Const xlPlusValues = 2 Public Const xlSemiGray75 = 10 Public Const xlShowLabel = 4 Public Const xlShowLabelAndPercent = 5 Public Const xlShowPercent = 3 Public Const xlShowValue = 2 Public Const xlSimple = &HFFFFEFC6 Public Const xlSingle = 2 Public Const xlSingleAccounting = 4 Public Const xlSolid = 1 Public Const xlSquare = 1 Public Const xlStar = 5 Public Const xlStError = 4 Public Const xlToolbarButton = 2 Public Const xlTriangle = 3 Public Const xlGray25 = &HFFFFEFE4 Public Const xlGray50 = &HFFFFEFE3 Public Const xlGray75 = &HFFFFEFE2 Public Const xlBottom = &HFFFFEFF5 Public Const xlLeft = &HFFFFEFDD Public Const xlRight = &HFFFFEFC8 Public Const xlTop = &HFFFFEFC0 Public Const xl3DBar = &HFFFFEFFD Public Const xl3DSurface = &HFFFFEFF9 Public Const xlBar = 2 Public Const xlColumn = 3 Public Const xlCombination = &HFFFFEFF1 Public Const xlCustom = &HFFFFEFEE Public Const xlDefaultAutoFormat = -1 Public Const xlMaximum = 2 Public Const xlMinimum = 4 Public Const xlOpaque = 3 Public Const xlTransparent = 2 Public Const xlBidi = &HFFFFEC78 Public Const xlLatin = &HFFFFEC77 Public Const xlContext = &HFFFFEC76 Public Const xlLTR = &HFFFFEC75 Public Const xlRTL = &HFFFFEC74 Public Const xlFullScript = 1 Public Const xlPartialScript = 2 Public Const xlMixedScript = 3 Public Const xlMixedAuthorizedScript = 4 Public Const xlVisualCursor = 2 Public Const xlLogicalCursor = 1 Public Const xlSystem = 1 Public Const xlPartial = 3 Public Const xlHindiNumerals = 3 Public Const xlBidiCalendar = 3 Public Const xlGregorian = 2 Public Const xlComplete = 4 Public Const xlScale = 3 Public Const xlClosed = 3 Public Const xlColor1 = 7 Public Const xlColor2 = 8 Public Const xlColor3 = 9 Public Const xlConstants = 2 Public Const xlContents = 2 Public Const xlBelow = 1 Public Const xlCascade = 7 Public Const xlCenterAcrossSelection = 7 Public Const xlChart4 = 2 Public Const xlChartSeries = 17 Public Const xlChartShort = 6 Public Const xlChartTitles = 18 Public Const xlClassic1 = 1 Public Const xlClassic2 = 2 Public Const xlClassic3 = 3 Public Const xl3DEffects1 = 13 Public Const xl3DEffects2 = 14 Public Const xlAbove = 0 Public Const xlAccounting1 = 4 Public Const xlAccounting2 = 5 Public Const xlAccounting3 = 6 Public Const xlAccounting4 = 17 Public Const xlAdd = 2 Public Const xlDebugCodePane = 13 Public Const xlDesktop = 9 Public Const xlDirect = 1 Public Const xlDivide = 5 Public Const xlDoubleClosed = 5 Public Const xlDoubleOpen = 4 Public Const xlDoubleQuote = 1 Public Const xlEntireChart = 20 Public Const xlExcelMenus = 1 Public Const xlExtended = 3 Public Const xlFill = 5 Public Const xlFirst = 0 Public Const xlFloating = 5 Public Const xlFormula = 5 Public Const xlGeneral = 1 Public Const xlGridline = 22 Public Const xlIcons = 1 Public Const xlImmediatePane = 12 Public Const xlInteger = 2 Public Const xlLast = 1 Public Const xlLastCell = 11 Public Const xlList1 = 10 Public Const xlList2 = 11 Public Const xlList3 = 12 Public Const xlLocalFormat1 = 15 Public Const xlLocalFormat2 = 16 Public Const xlLong = 3 Public Const xlLotusHelp = 2 Public Const xlMacrosheetCell = 7 Public Const xlMixed = 2 Public Const xlMultiply = 4 Public Const xlNarrow = 1 Public Const xlNoDocuments = 3 Public Const xlOpen = 2 Public Const xlOutside = 3 Public Const xlReference = 4 Public Const xlSemiautomatic = 2 Public Const xlShort = 1 Public Const xlSingleQuote = 2 Public Const xlStrict = 2 Public Const xlSubtract = 3 Public Const xlTextBox = 16 Public Const xlTiled = 1 Public Const xlTitleBar = 8 Public Const xlToolbar = 1 Public Const xlVisible = 12 Public Const xlWatchPane = 11 Public Const xlWide = 3 Public Const xlWorkbookTab = 6 Public Const xlWorksheet4 = 1 Public Const xlWorksheetCell = 3 Public Const xlWorksheetShort = 5 Public Const xlAllExceptBorders = 6 Public Const xlLeftToRight = 2 Public Const xlTopToBottom = 1 Public Const xlVeryHidden = 2 Public Const xlDrawingObject = 14
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

jh035512

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值