VBA —— 学习Day6
面向对象
eg.
对象的层级结构：
Excel常用对象
Application（Excel应用程序）
Workbook （工作簿）
Worksheet（工作表）
Range（单元格）
eg.
依据对象层级结构一步一步定位到单元格，使用Value属性设置值
简略写法：
Application可省略
对于操作的是当前的工作簿（也可称之为活动工作簿）：Workbooks可省（当我们所执行程序前所点击的工作簿称之为当前工作簿）
对于操作的是当前的工作表（也可称之为活动工作表）：Worksheets可省
Value属性也可省略，默认调用的就是Value => Range("A6") = 600
引用某个单元格：
Range方式：Range("A1") A列1行 eg.Range("A1").Value = 100
Cells方式：Cells(2,1) 2行1列 eg.Cells(2,1).Value = 100
[]方式：[A3] eg.[A3].Value = 300
Select方法：选择某个单元格
ActiveCell：引用活动单元格
选择某个单元格之后，这个单元格就是活动单元格，使用ActiveCell进行引用
eg. Range("A4").Select
ActiveCell.Value = 400
单元格的一些特殊属性：
Interior：内部格式，Range对象属性，也是对象，可以设置单元格背景色、图案等
eg.
Range("A4").Select
ActiveCell.Value = 400
ActiveCell.Interior.Color = vbBlue
//ActiveCell.Interior.Color = VBA.RGB(255,192,0)
Font：字体格式，Range对象属性，也是对象，可以设置字体、字号、字体颜色等
eg.
Range("A4").Select
ActiveCell.Value = 400
ActiveCell.Interior.Color = VBA.RGB(255,192,0)
ActiveCell.Font.Color = vbBlue
ActiveCell.Font.Size = 20
ActiveCell.Font.Bold = True //字体加粗
结合变量进行使用：
Dim Row As Long，Column As String
Row = 1
Column = "B"
Range(Column & Row).Value = 500
Row = 2
Range(Column & Row).Value = 600
________________________________________________
Dim Row As Long，Column As Variant
Row = 1
Column = "B"
Range(Column & Row).Value = 500
Range(Column & Row).Value = 600
Column = 3
Row = 2
Cells(Row,Column).Value = 700
填充数字：
Dim Column As Long,Row As Long
Column = 8
Row = 1
For Row = 1 To 10
Cells(Row,Column).Value = Row
Next Row
引用单元格区域：
Range方式：Range("A1:B3") Range("A5","B7")