2.1 数据类型
| 数据类型 |
所占字节 |
| Byte |
1 |
| Boolean |
2 |
| Integer |
2 |
| Long |
4 |
| Single |
4 |
| Double |
8 |
| Currency |
8 |
| Decimal |
14 |
| Date |
8 |
| Object |
4 |
| String |
10 |
| Variant |
16 |
实例：
Sub test()
Dim sums as long, cell as range, I as integer, mystr as string
For each cell in range(“A1:A10”)
If vba.isnumeric(cell) then sums = sums + cell else mystr = mystr & cell
If cell = “” then I = I +1
Next cell
Debug.print “A1:A10中有空白单元格” & I &”个”
Debug.print “A1:A10中数据和为：” ; sums
Debug.print “A1:A10中文本为：” ; mystr
End sub
2.2 数据类型转换
| 函数 |
返回类型 |
| Cbool |
Boolean |
| Cbyte |
Byte |
| Ccur |
Currency |
| Cdate |
Date |
| cbdl |
double |
| Cdec |
Decimal |
| Cint |
Integer |
| Clng |
Long |
| Csng |
Single |
| Cstr |
String |
| cvar |
variant |
实例：
Sub 类型转换()
Dim funds as double
Funds = 80.42454
Msgbox “类型：” & typename(funds) & “值：” & funds ‘typename()用于识别数据类型
Msgbox “类型：” & typename(cbool(funds)) & “值：” & cbool(funds)
Msgbox “类型：” & typename(cbyte(funds)) & “值：” &cbyte( funds)
End sub
2.3 变量
实例：
Sub 显示用户名()
User_name = application.inputbox(“请输入您的姓名” , “姓名”,,,,,,2)
Msgbox user_name
End sub
Dim temp as byte ‘在sub之前dim，此变量为模块级变量，或者用public申明
Sub a()
Temp = 10
Msgbox temp
End sub
Sub b()
Temp = temp + 10
Msgbox temp
End sub
Sub a()
Dim temp = as byte ‘在sub内dim，两个sub内的变量不相关，为过程级别变量
Temp = 10
Msgbox temp
End sub
Sub b()
Dim temp as byte
Temp = 20
Temp = temp + 10
Msgbox temp
End sub
Let A = 10 ‘对非对象变量赋值
Set A = range(“A10”) ‘对单元格对象赋值
Set A = [A10]
Sub 设置A10的字体()
Activeworkbook.sheets(“sheet2”).range(“A10”).font.name = “黑体”
Activeworkbook.sheets(“sheet2”).range(“A10”).font.colorindex= 3
Activeworkbook.sheets(“sheet2”).range(“A10”).interior.colorindex = 5
End sub
Sub 设置A10的字体二()
Dim rng as range
Set rng = activeworkbook.sheets(“sheet2”).range(“A10”)
Rng.font.name = “黑体” ‘设置单元格对象后，程序简化很多而且提升效率
Rng.font.colorindex = 3
Rng.interior.colorindex = 5
End sub