VBA 中要用到的常数第1/2页_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 过程。

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

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上,只有VbNormalvbReadOnly、 vbHiddenvbAlias是可用的。

当前1/2页 12下一页阅读全文

时间: 2024-10-01 16:57:47

VBA 中要用到的常数第1/2页_VBA的相关文章

ASP自定义函数,仿VBA中域函数 DLookup

函数 Function dlookup(strFieldName, strTableName, strWhere, objConn)    '参考Access VBA 中的Dlookup函数    '由于环境不同,加了ObjConn参数,直接将Adodb.connection直接调进来    Dim strsql    Dim rs    Set rs = server.CreateObject("adodb.recordset")    '下面要调用外部的一个自定义函数 checks

从 VBA 中使用 Visual Basic .NET 将 Word 文档序列化为 XML

visual|word|xml 从 VBA 中使用 Visual Basic .NET 将 Word 文档序列化为 XML Michael CorningMicrosoft Corporation 2002年10月 适用于:   Microsoft Word 2002   Microsoft Visual Studio .NET 摘要:学习如何在 Microsoft Office Visual Basic for Applications (VBA) 程序中利用 .NET 代码将大型 Word

ASP自定义函数,仿VBA中域函数DLookup

函数 Function dlookup(strFieldName, strTableName, strWhere, objConn) '参考Access VBA 中的Dlookup函数 '由于环境不同,加了ObjConn参数,直接将Adodb.connection直接调进来 Dim strsql Dim rs Set rs = server.CreateObject("adodb.recordset") '下面要调用外部的一个自定义函数 checksql() strFieldName

VBA中的错误处理

从理论上讲,VBA没有提供任何的错误处理机制,这种被用在微软Office产品中的以Visual Basic语言为基础的脚本语言根本就不要任何的错误处理,当程序出现错误或产生异常情况时,VBA会自动定位到出错的代码行,然后提示用户出错的可能原因.这是典型的脚本语言的错误提示,联想到javascript语言,在浏览器中如果出现脚本错误,浏览器会给出提示信息,但这并不影响整个程序的正常运行,最多也就是出现错误之后的脚本不被继续解释而已.不过即便如此,javascript还是提供了较为良好的错误处理机制

为excel vba中添加、删除模块并插入全过程图文详解

  为excel vba中添加.删除模块并插入全过程图文详解         方法/步骤 1.点按快速启动栏excel 程序图标 进入excel 界面 点击选中任意单元格 然后按alt+f11 进入vbe界面 2.点击菜单栏 插入命令 在弹出的活动菜单中点按模块命令 3.另一种方式插入模块的方法可以在工程资管管理器中鼠标点击空白处 右键单击鼠标 在弹出的快捷菜单中选择插入命令 二级菜单中选择模块命令 4.如图所示模块1.模块2分别是通过菜单栏插入命令 和工程资源管理器点击右键创建的模块 5.如果

vba-怎样在word VBA中选取某几段第一行?

问题描述 怎样在word VBA中选取某几段第一行? 比如:1.A aaaa2.B bbbb3.C cccc 最后希望仅留下1.A2.B3.C 解决方案 先得到Selection,再得到paragraph用Left函数提取

我在coreldraw vba中添加mschart控件,结果显示不受信任

问题描述 我在coreldraw vba中添加mschart控件,结果显示不受信任 我在coreldraw vba中添加mschart控件,结果显示不受信任

编程-如何在vba中读取屏幕坐标,跪求,急

问题描述 如何在vba中读取屏幕坐标,跪求,急 在vba里面没法添加timer控件,所以GetCursorPos貌似没法用,还有我试过mousemove,结果只能获得窗体的坐标,那如何获得屏幕的坐标呀,我的编程环境是coreldraw vba 解决方案 还有,我的打算是点击拾取按钮获取坐标,然后显示在文本窗体中 解决方案二: 用API实现定时器 增加一个module 增加代码 Option Explicit Declare Function SetTimer Lib "user32"

诸位老师好!VSTO问题,VBA中的代码,如何移植到VS中?多谢!

问题描述 老师您好!我在VBA中的代码如下:FistRow=Evaluate("SMALL(IF("&XhlfxSheet&"!$f$1:$f$200=""序号"",ROW("&XhlfxSheet&"!$b$1:$b$200)),1)"),用来取得单元格区域B1:B200中,第一个值为"序号"的单元格行行号.在VS中提示:未声明"Evaluat