字节型【Byte】
整数型【Integer】
长整型【Long】
单精度浮点型【Single】
双精度浮点型【Double】
货币性【Currency】
小数型【Decimal】
字符串型【String】
日期型【Date】
布尔型【Boolean】
Dim name as Sting Dim age as Integer Dim birth as Date Dim name as Sting,age as Integer,birth as Date
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 单元格激活
1、关系运算符
= 等于 > 大于 < 小于 >= 大于等于 <= 小于等于 <> 不等于
2、逻辑运算符
AND 与
OR 或
NOT 非
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
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
原文：https://www.cnblogs.com/Iceredtea/p/11831843.html