VBA 学习笔记1 对象以及属性

进入vba 界面
方式之一：
快捷键：ALTER+F11

运行方式之一：
进入vba界面，点击绿色三角符号

1 取得VBA对象

1.1 取得工作簿对象

Sub Test()
  '把当前工作簿的名称赋值给单元格A1
  'testvba.xlsm 只能是当前工作簿的名称
  [a1] = Workbooks("testvba.xlsm").Name
  '把活动工作簿的名称赋值给单元格A2
  [a2] = ActiveWorkbook.Name
  '把当前工作簿的名称赋值给单元格A3
  [a3] = ThisWorkbook.Name
End Sub

下面是执行结果

1.2 取得工作表对象

默认sheet名称是Sheet1
新建一个sheet，名称是Sheet2
新建一个sheet，并改名称为：testsheet
新建一个sheet，删除掉
新建一个sheet，并改名称为：abc
最终得到下图的结果

'取得上面4个工作表的名称
Sub Test()
  '方式1
  [a1] = Sheet1.Name
  [a2] = Sheet2.Name
  [a3] = Sheet3.Name
  [a4] = Sheet5.Name
  
  '方式2
  [b1] = Sheets(1).Name
  [b2] = Sheets(2).Name
  [b3] = Sheets(3).Name
  [b4] = Sheets(4).Name
  
  '方式3
  [c1] = Sheets("Sheet1").Name
  [c2] = Sheets("Sheet2").Name
  [c3] = Sheets("testsheet").Name
  [c4] = Sheets("abc").Name
  
  '方式4 活动工作表的名称
  [a5] = ActiveSheet.Name
End Sub

下面是执行结果

1.3 取得单元格对象

'取得单元格对象
Sub Test()
  '方式1 单元格A1，赋值文字“方式1”
  [a1] = "方式1"

  '方式2 3是第3行，1是第1列 单元格A3，赋值文字“方式2”
  Cells(3, 1) = "方式2"
  
  '方式3 当前选择的单元格，赋值文字“方式3”
  ActiveCell = "方式3"
  
  '方式4 单元格A2，赋值文字“方式4”
  Range("a2") = "方式4"
  
  '方式5 选中Excel的D列
  Range("d:d").Select
  '方式5-1 选中第10行
  'Range("10:10").Select
  
  '方式6 选中一个区域e2:g5，填充颜色红色
  Range("e2:g5").Interior.ColorIndex = 3
End Sub

选择c14单元格，然后执行代码，下面是执行结果

1.4 取得对象的属性

'取得对象的属性
Sub Test()
  '取得所有sheet的数量
  [a1] = Sheets.Count
  '取得第一个sheet的名称
  [a2] = Sheets(1).Name
  '取得当前选中的单元格的地址
  [a3] = ActiveCell.Address
  '取得本excel的文档路径
  [a4] = ThisWorkbook.Path
  '取得A1单元格的值
  [a5] = Range("a1").Value

  '选择当前excel的第3个sheet的a1:b10区域，填充颜色为50的颜色
  'ThisWorkbook.Sheets(3).Range("a1:b10").Interior.ColorIndex = 50
End Sub

选择单元格A1后，执行代码，下面是执行结果

1.5 文档的方法1

01 新建工作簿

Sub Test()
'新建工作簿
Workbooks.Add
'Workbooks.Add.Name = "test.xlsx" 可以修改新工作簿的名称
'新工作簿的第一个sheet的名称修改为add
ActiveWorkbook.Sheets(1).Name = "add"
'新工作簿的第一个sheet的单元格a3的值修改为abc
ActiveWorkbook.Sheets(1).Cells(3, 1) = "abc"
'添加一个sheet
ActiveWorkbook.Sheets.Add
'新sheet修改名称为add2
ActiveWorkbook.ActiveSheet.Name = "add2"
'第一个sheet作为活动sheet
ActiveWorkbook.Sheets("add").Activate
'关闭新工作簿
ActiveWorkbook.Close
End Sub

执行结果：

02 打开工作簿

Sub Test()
'打开一个工作簿
Workbooks.Open ("D:\Jerry\Documents\工作簿4.xlsx")
'关闭这个打开的工作簿
ActiveWorkbook.Close
End Sub

执行时一闪而过，因为文档被打开后，立马又被关闭了。如果F8，逐行代码运行，则可以看到工作簿被打开。