vba学习笔记-操作工资表（2）

1、worksheets 工作表对象与 sheets对象（如果只有工作表没区别）
方法：
①Select 选择
②Add 添加一个新表
Sheets.Add after:=Sheets(Sheets.Count) 在最后一张添加新表格
Sheets(sheets.count).name = i & "月" 新建的最后一张表格命名

Sub shish2()

Dim i As Integer

For i = 1 To 12

    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = i & "月"

Next i

End Sub

③Delete 删除工作表（会弹出确定对话框，需要设置提示关闭）
sheets(2)重复删除第二张表格。剩下第一下张表格

Excel.Application.DisplayAlerts = False

For i = 1 To 12

    Sheets(2).Delete

Next i

Excel.Application.DisplayAlerts = True

④Copy 复制的工作表

Sub 复制工作表()

Sheet1.Copy after:=Sheets(Sheets.Count)

End Sub

属性：
①Count 数量
②Name 名字

4551c8d5bbe9b284a77c769aa1109d7.png

工作表表示方式：
①Sheets("sheets.name")
②Sheet1
③sheets（1）表示第一张工作表

补充资料：
单元格表示方式：
①Range（“a1”）可以插入变量实现逐行遍历 range("A" & i)
②[a1] 不能插入变量
③cells(1,1) 可以插入变量，而且可以逐行，逐列，cells(行，列)，操作灵活，但是没有代码提示。

2、Application主程序对象

试手例子