제10과 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

excel 작업표의 삽입

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

excel 작업표 숨기기 및 숨기기 취소

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

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

작업표의 선택

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