第十课 excel工作表操作

1.excel工作表的分类
excel工作表有两大类，一类是我们平常用的工作表(worksheet)，另一类是图表、宏表等。这两类的统称是sheets。sheets 工作表集合，泛指excel各种工作表
Sheets("A")，名称为A的excel工作表

     Sub t1()
        Sheets("A").Range("a1") = 100
     End Sub

'workbooks(2)，按打开顺序，第二个打开的工作簿。

      Sub t2()
        Sheets(2).Range("a1") = 200
     End Sub

"ActiveSheet "，当打开多个excel工作簿时，你正在操作的那个就是ActiveSheet
2.判断A工作表文件是否存在

    Sub s1()
     Dim X As Integer
      For X = 1 To Sheets.Count
        If Sheets(X).Name = "A" Then
          MsgBox "A工作表存在"
          Exit Sub
        End If
      Next
      MsgBox "A工作表不存在"
    End Sub

3. excel工作表的插入

  Sub s2()
     Dim sh As Worksheet
     Set sh = Sheets.Add
       sh.Name = "模板"
       sh.Range("a1") = 100
  End Sub

4. excel工作表隐藏和取消隐藏

Sub s3()
   Sheets(2).Visible = True
End Sub

5. excel工作表的移动

   Sub s4()
     Sheets("Sheet2").Move before:=Sheets("sheet1")   'sheet2移动到sheet1前面 
     Sheets("Sheet1").Move after:=Sheets(Sheets.Count)   'sheet1移动到所有工作表的最后面
   End Sub

6.excel工作表的复制

   Sub s5() '在本工作簿中
      Dim sh As Worksheet
      Sheets("模板").Copy before:=Sheets(1)  "工作表copy后返回true或false，不是一个对象，故不能用set  ="
       Set sh = ActiveSheet
          sh.Name = "1日"
          sh.Range("a1") = "测试"
   End Sub

7、工作表另存为 新工作簿

Sub s6() '      
      Dim wb As Workbook
       Sheets("模板").Copy
       Set wb = ActiveWorkbook
          wb.SaveAs ThisWorkbook.Path & "/1日.xls"
          wb.Sheets(1).Range("b1") = "测试"
          wb.Close True
   End Sub

8.保护工作表

   Sub s7()
      Sheets("sheet2").Protect "123"  "123为密码"
   End Sub
   Sub s8() '判断工作表是否添加了保护密码
      If Sheets("sheet2").ProtectContents = True Then
        MsgBox "工作簿保护了"
      Else
        MsgBox "工作簿没有添加保护"
      End If
   End Sub

'9.工作表删除

     Sub s9()
       Application.DisplayAlerts = False  "屏蔽删除的提示框"
         Sheets("模板").Delete
       Application.DisplayAlerts = True
     End Sub

10. 工作表的选取

     Sub s10()
       Sheets("sheet2").Select
     End Sub