VBA基础

1.VBA中的数据类型

字节型【Byte】
整数型【Integer】
长整型【Long】
单精度浮点型【Single】
双精度浮点型【Double】
货币性【Currency】
小数型【Decimal】
字符串型【String】
日期型【Date】
布尔型【Boolean】

2.VBA变量声明

Dim name as Sting
Dim age as Integer
Dim birth as Date

Dim name as Sting,age as Integer,birth as Date

3.VBA对象、属性及方法

1）对象

Application【EXCEL应用程序】
Workbook【工作簿】
Worksheet【工作表】
Range【单元格】

2）属性

workbook
workbooks(i).Name      工作簿名称
workbooks(i).Path      工作簿存储路径
workbooks(i).FullName  工作簿存储路径和名称

worksheet
worksheets(i).Name       工作表名称
worksheets(i).Visible    工作表可见性
worksheets(i).Tab.Color  工作表标签颜色

range
range("Al").Value                单元格数值
range("Al").Address              单元格位置
range("Al").Font.Name            单元格的字体名称类型
range("Al").Font.Bold            单元格字体加粗
range("Al").Font.ltalic          单元格字体倾斜
range("Al").Font.Size            单元格字体大小
range("Al").Interior.ColorIndex  单元格背景颜色

3）方法

workbook
workbooks.add        工作簿新建
workbooks.open       工作簿打开
workbooks.activate   工作簿激活
workbooks.save       工作簿保存
workbooks.saveas     工作簿另存
workbooks.close      工作簿关闭

worksheet
worksheets.add       工作表新增
worksheets.select    工作表选择
worksheets.copy      工作表复制
worksheets.move      工作表移动
worksheets.delete    工作表删除
worksheets.activate  工作表激活

range
range("Al").select         单元格选择
range("Al").insert         单元格插入
range("Al").delete         单元格删除
range("Al").copy           单元格复制
range("Al").cut            单元格剪切
range("Al").clear          单元格清除内容和格式
range("Al").clearcontents  单元格清除内容
range("Al").clearformats   单元格清除格式
range("Al").activate       单元格激活

4.VBA常用运算符

1）关系运算符

=  等于
>  大于
<  小于
>= 大于等于
<= 小于等于
<> 不等于

2）逻辑运算符

AND 与
OR  或
NOT 非

5.逻辑判断语句

1）If.....Then

If 条件 Then
   语句1
   语句2
   ...
End If

2）If.....Then.....Else

If 条件 Then
   语句1
Else
   语句2
End If

3）Select Case

Select Case 测试表达式
   Case[Is] 表达式1
      语句1
   Case[Is] 表达式2
      语句2
   ...
End Select

6.循环判断

1）For.....Next

For 循环变量 = 初值 to 终值 [step 步长]
   语句1
   [Exit For]
   语句2
Next[循环变量]

2）For Each.....Next

For Each 元素变量 In 对象集合或数组
   语句1
   [Exit For]
   语句2
Next[元素变量]

3）Do.....While

Do While 条件
   语句块1
   [Exit For]
   语句块2
Loop

4）Do.....Until

Do Until 条件
   语句块1
   [Exit For]
   语句块2
Loop