2.深入解析数据类型与变量——《Excel VBA 程序开发自学宝典》

Posted 2020-11-02 data-science-chinchilla

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