https://docs.microsoft.com/zh-CN/office/vba/language/reference/user-interface-help
1. Workbooks 的常用属性
Workbooks(1).Name
Workbooks(1).FullName 工作簿地址加名字
Workbooks(1).Path 工作簿地址
Workbooks(1).Close SaveChanges:=False 关闭工作簿,并且不保存
Workbooks.Open ThisWorkbook.Path & "\123.xlsx" 打开这个地址的文件
Workbooks(1).Save 工作簿保存
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\SaveAsWb.xlsm" 另存为文件
2.工作表引用
Worksheets(3).Select 这里面的3是Index,就是一个下面的顺序
Worksheets("Sheet3").Select 这里面的Sheet3是Name
Sheet3.Select 这里面的Sheet3是CodeName
数组
For Each Rng in Range("A1:J10")
For Each Sht in Worksheets
For Each Book in Workbooks
3. 添加工作表
Worksheets.Add.Name = "工作表" 直接在最前面加入一个叫做“工作表”的工作表
Set Sht = Worksheets.Add(after:=Worksheets(Worksheets.Count)) 在最后加入
ActiveSheet.CodeName CodeName指的是建表是赋予的一个按顺序的名字,依次为Sheet1、Sheet2 ...在工程窗口中,左边的是CodeName,右边的是Name
ActiveSheet.Previous.Activate 前一个工作表激活
ActiveSheet.Next.Activate 后一个工作表激活
4. 行与列
Rows(1).Select 选中第一行
Rows("1").Select 选中第一行
Colums(1).Select 选中第一列
Colums("A").Select 选中第一列
Cells(1, 1).EntireRow.Select 选中单元格所在的行
Cells(1, 1).EntireColumn.Select 选中单元格所在的列
Rows("1:4").Select 选中第一到第四行
Columns("A:D").Select 选中第一到第四列
Columns("A:F").AutoFit 将这几列自动合适分布
Rows("1:4").AutoFit 将这几行自动合适分布
WorkSheet事件 WorkSheet_Activate 激活文档的时候触发
WorkSheet_Change 内容改变
WorkSheet_SelectionChange 选择改变,单击左键的时候触发
WorkSheet_BeforeRightClick 点击右键的时候触发
WorkSheet_BeforeDoubleClick 双击左键的时候触发
WorkSheet_Calculate 当单元发生计算,公式运行等时候触发事件
WorkSheet_Deactivate 当切换工作表的时候会触发此事件