VBA GENERAL
2018-11-27 本文已影响0人
AIfred
数据类型
下表列举了常见的数据类型
| Data type | Storage size | Range |
|---|---|---|
| Byte | 1 byte | 0 to 255 |
| Boolean | 2 bytes | True or False |
| Integer | 2 bytes | -32,768 to 32,767 |
| Long (Long integer) | 4 bytes | -2,147,483,648 to 2,147,483,647 |
| Date | 8 bytes | January 1, 100, to December 31, 9999 |
| Object | 4 bytes | Any Object reference |
| String (variable-length) | 10 bytes + string length | 0 to approximately 2 billion |
| String (fixed-length) | Length of string | 1 to approximately 65,400 |
| Variant (with numbers) | 16 bytes | Any numeric value up to the range of a Double |
| Variant (with characters) | 22 bytes + string length (24 bytes on 64-bit systems) | Same range as for variable-length String |
| Dictionary | Unknown | Unknown |
| Collection | Unknown | Unknown |
数组操作
定义一个非动态数组
dim arr(5) as string '0-5
定义动态数组
dim arr() as string '不可声明数组大小
redim arr(5) '重新定义数组大小
arr(1) = 1
arr(2) = 2
redim arr(6) '原数据丢失
arr(1) = 1
arr(2) = 2
redim preserve arr(10) 'preserve关键字保存之前数组信息的同时伸缩数组
通过 i to j来定义数据
dim arr(1 to 10) as integer '数组从1到10
arr(1) = 1
debug.print arr(0) 'error
用从i到j下标的一个好处是，在Excel中单元格生成的variant数组，其开始下标从1开始
常用语数组相关的VBA自带函数
- Array 函数生成一个数组（见下）
- IsArray 判断是否是一个数组
- Ubound 函数显示数组最大下标
- Lbound 函数显示数组最小下标
- Join 函数,将数组按照规则合并（as String）
Array 函数
小标从0开始
生成二位数组 ？
$在定义中的作用
dim a$
其中$表示字符串相当于
dim a as String
另外，以此类推，有几个简写的符号
| 符号 | 代表的意思 | 示例 |
|---|---|---|
| % | 整数 | dim varInt% |
| & | Long整数 | dim varLongInt& |
| ! | Single 单精度小数 | dim varSg! |
| # | Double 单精度小数 | dim varDb# |
| @ | Currency 货币型 | dim varCry# |
显示变量的类型 TypeName函数
Dim varStr$
varStr = "Hello World"
Debug.Print varStr
Debug.Print TypeName(varStr)
'显示的结果String
Dim varInt%
Dim varLong&
varInt = 23333
varLong = 233333333
Debug.Print varInt
Debug.Print TypeName(varInt)
'显示的结果Integer
Debug.Print varLong
Debug.Print TypeName(varLong)
'显示的结果Long
'varInt = varLong + varInt '溢出错误
varLong = varLong + varInt
Dim varCry@
varCry = 100
Debug.Print varCry
Debug.Print TypeName(varCry)
'显示的结果Currency
在Excel中打开Word与PowerPoint
Set wd = CreateObject("Word.Application")
wo.Documents.Open ThisWorkbook.Path & filename '打开文件'
Set ppt = CreateObject("Powerpoint.Application")
ppt.Presentations.Open ThisWorkbook.Path & filename '打开文件'
