- WORKSHEETS:只统计普通工作表的集合, 不会统计出图标工作表
Sub ceshi()
MsgBox Worksheets.Count
End Sub
- SHEETS:统计普通工作表和图表工作表
Sub ceshi()
MsgBox Sheets.Count
End Sub
- 指定工作表、指定单元格赋值
Sub ceshi()
Worksheets("sheet3").Range("a1") = 10 '给sheet3工作表,A1单元格赋值
Worksheets("sheet3").Cells(1, 1) = 10 '给sheet3工作表,第一行,第一列单元格赋值
End Sub
Sub ceshi()
Sheets("sheet3").Range("a1") = 10
End Sub
- 显示工作表名称
Sub ceshi()
MsgBox Sheets(1).Name '显示第一个工作表名称
End Sub
Sub ceshi()
MsgBox Worksheets(1).Name '显示第一个工作表名称
MsgBox ActiveWorkbook.Name '活动工作簿的名称
End Sub
5.汇总打开的工作簿的数量
Sub ceshi()
MsgBox "打开的工作簿的数量?" & Workbooks.Count()
End Sub
6.未保存的工作簿,不需要写工作簿的格式:
指定工作簿的第一个工作表,第二行,第一列单元格值
Sub ceshi()
Workbooks("工作簿2").Sheets("SHEET1").Range("A2") = 10
End Sub
7.已保存的工作簿,需要写工作簿的格式:
指定工作簿的第一个工作表,第一行,第一列单元格值
Sub ceshi()
Workbooks("pp.xlsx").Sheets("Sheet1").Range("A1") = 100
'Workbooks("工作簿对象的表示方法.xlsm").Sheets("Sheet1").Range("A1") = 100 文件名一定要写对
End Sub