Excel VBA - Sheet对象

工作表引用

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

 添加工作表 

Worksheets.Add.Name = "工作表"    直接在最前面加入一个叫做“工作表”的工作表
Set Sht = Worksheets.Add(after:=Worksheets(Worksheets.Count))    在最后加入
ActiveSheet.CodeName    CodeName指的是建表是赋予的一个按顺序的名字，依次为Sheet1、Sheet2 ...在工程窗口中，左边的是CodeName，右边的是Name
ActiveSheet.Previous.Activate    前一个工作表激活
ActiveSheet.Next.Activate    后一个工作表激活

 行与列 

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    当切换工作表的时候会触发此事件

工作表之间复制：

Sub sdlkfj()
    Sheets("路床 (2)").Activate
    Cells.Select      '全部复制Selection.Copy

    Sheets.Add before:=Sheets(2)
    Cells.Select
    ActiveSheet.Paste      '全部黏贴Application.CutCopyMode = False      '关掉剪切复制模式End Sub
赞 (0)

相关推荐