VBA 中要用到的常数第1/2页

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下一页阅读全文

(0)

相关推荐

  • VBA 中要用到的常数第1/2页

    Calendar 常数 可在代码中的任何地方用下列常数代替实际值: 常数 值 描述 vbCalGreg 0 指出使用的是阳历. vbCalHijri 1 指出使用的是伊斯兰历法. Color 常数 可在代码中的任何地方用下列常数代替实际值: 常数 值 描述 vbBlack 0x0 黑色 vbRed 0xFF 红色 vbGreen 0xFF00 绿色 vbYellow 0xFFFF 黄色 vbBlue 0xFF0000 蓝色 vbMagenta 0xFF00FF 紫红色 vbCyan 0xFFFF

  • 在ASP.NET 2.0中操作数据之十五:在GridView的页脚中显示统计信息

    导言 除了需要了解产品的单价.库存量和订货量,并按等级排序之外,用户可能还对统计信息感兴趣,比如说平均价格.库存总量等等.这些统计信息常常显示在报表最下面的一个统计行中.GridView控件可以含有一个页脚行,我们可以通过编程将统计数据插入到它的单元格里面去.这个任务给了我们以下3个挑战: 1.配置GridView以显示它的页脚行 2.确定统计数据.即我们应该如何计算平均价格还有库存总量? 3.将统计信息插入到页脚行的相应的单元格中 在本节教程中,我们将会看到如何去征服这些挑战.另外呢,我们将创

  • vue2中,根据list的id进入对应的详情页并修改title方法

    一般项目中,我们会遇到有个list...然后你随便点击一个,会进入他对应的详情页...正常,那个详情页是一个公共的组件,我们只需根据id传值来判断,这个页面显示的是哪个list的数据即可.如图:点击电影进入电影详情--以此类推 具体代码如下: (有人会奇怪,我为什么不循环--这个是根据项目需求而定的,这个相当于入口,而进入里面分别对应的还是多个list,并且后台给的图片的url也不一样,我懒得v-if去写了,so,这三个我就用了通过了路由id过去.当然,后面有循环list..两种不同的方式,大家

  • VBA中操作Excel常用方法总结

    要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法. 下面是一些代码示例: 关闭活动工作簿,如果工作簿有更改,提示是否保存: 复制代码 代码如下: Sub CloseWorkbook()     ActiveWorkbook.Close     End Sub 如果要避免出现提示,可添加"SaveChanges"参数,如直接保存并关闭工作簿: 复制代码 代码如下: Sub ClostAndSaveWorkbo

  • VBA中连接SQLSERVER数据库例子

    我们在使用excel编程时,很多时候都需要使用数据库. 那么如何连接数据库然后从数据库读取数据呢? VBA 连接 SQL SERVER 数据库 实例: Dim strConn As String, strSQL As String Dim conn As ADODB.Connection Dim ds As ADODB.Recordset Dim col As Integer '连接数据库的字符串 strConn = "Provider=SQLOLEDB.1;Persist Security I

  • VBA中的Timer函数用法

    第1.40例 Timer 函数 一.题目: 要求编写一段代码,运用 Timer 函数来计算本代码运行所化的时间. 二.代码: Sub 示例_1_040() Dim t, i&, a t = Timer For i = 1 To 1000000 a = a + i Next i MsgBox Timer - t & "秒" '返回0.046875秒 End Sub 三.代码详解 1.Sub 示例_1_040():宏程序的开始语句.宏名为示例_1_040. 2.Dim t,

  • Rails中遇到错误跳转到统一提示错误页的方法

    一个迭代开发中的网站难免存在bug,出bug的时候客户体验就很不好了,为解决此问题,可以在class error产生的时候,触发跳转到统一提示页面,并给开发人员发邮件报错误信息,提高测试能力和用户体验.以下是核心方法:在ApplicationController中添加如下代码,不同rails版本的class error略有变化. 复制代码 代码如下: AR_ERROR_CLASSES = [ActiveRecord::RecordNotFound, ActiveRecord::Statement

  • PHP中session使用方法详解第1/2页

    由于 Session 是以文本文件形式存储在服务器端的,所以不怕客户端修改 Session 内容.实际上在服务器端的 Session 文件,PHP 自动修改 session 文件的权限,只保留了系统读和写权限,而且不能通过 ftp 修改,所以安全得多.PHPChina 开源社区门户 对于 Cookie 来说,假设我们要验证用户是否登陆,就必须在 Cookie 中保存用户名和密码(可能是 md5 加密后字符串),并在每次请求页面的时候进行验证.如果用户名和密码存储在数据库,每次都要执行一次数据库查

  • Access中使用Create Procedure创建存储过程第1/2页

    在Access自身的帮助中看到了Create Procedure语句,测试了老半天,终于发现了诀窍:必须使用OleDb连接才能使用Create Procedure语句.ODBC连接不支持该语句,提示Create Table语法错误. 创建了存储过程后,使用Office Access工具打开数据库,在"对象 - 查询"中能够看到你创建的存储过程. 创建存储过程的语法: 复制代码 代码如下: Create Procedure YourProc (         @param1 varch

  • js中document.referrer实现移动端返回上一页

    返回上一页,在PC端我们可以使用:history.go(-1)或者history.back(),可以正常返回第一层.这样,我们不需要上一页的 url 具体是什么,只要使用 history 一般都没啥问题. 但是在移动端,如果想要返回上一页.比如从A页面跳到B页面,如果B页面想返回A页面,为了防止不会跳错,必须要有一个 <  按钮,给它加 history.go(-1) ,返回上一层. <a href="javascript:history.go(-1)" rel="

随机推荐