[VBA] 엑셀 매크로(2/3) - 엑셀 제어하기

1. 새로운 시트(Sheet) 만들기

     A. "시트이름"으로 시트 추가

       Worksheets.Add After:=Worksheets("시트이름")

    

     B. 'A' 의 경우, 같은 시트 이름이 존재한다면 애러가 발생함. 시트 추가 후 시간으로 이름 바꾸기

       Dim sheetName As String       

       Worksheets.Add After:=Worksheets(Worksheets.Count)

       sheetName = Format(Date, "mm.dd") & " " & Format(Time, "hh.mm.ss")

       Worksheets(Worksheets.Count).Name = sheetName

 

2. 특정 셀에 글자 쓰기

     Worksheets("시트이름").Cells(1, 1) = "단어"

 

3. 글자 가운데 정렬

     Worksheets("시트이름").Cells(1, 1).HorizontalAlignment = xlCenter

 

4. 난수쓰기

      Worksheets("시트이름").Cells(1, 1) = Rnd

 

5. D열의 난수를 기준으로 오름차순 정렬하기

     Worksheets("시트이름").Range("B2:D9999").Sort Key1:=Range("D2"), Order1:=xlAscending

     (Range의 기능은 해당 셀을 블럭 처리하는 것임)

 

6. 특정 열 삭제하기

     Worksheets("시트이름").Range(Cells(2, 4), Cells(9999 4)).Delete (xlShiftToLeft)

 

7. 데이터가 있는 셀만 블럭 지정하기

     Worksheets(Worksheets.Count).Range("A1").CurrentRegion.Select

 

8. 데이터가 있는 셀만 크기 바꾸기

     Worksheets(Worksheets.Count).Range("A1").CurrentRegion.Select  
     With Selection                  ' With라는 명령어를 사용하면 반복 사용되는 명령어를 묶을 수 있음
         .RowHeight = 17
         '.ColumnWidth = 20
     End With

    Worksheets(Worksheets.Count).Columns("A").ColumnWidth = 5
    Worksheets(Worksheets.Count).Columns("B").ColumnWidth = 30
    Worksheets(Worksheets.Count).Columns("C").ColumnWidth = 40   

 

9. 데이터가 있는 셀만 테두리 치기
     Worksheets(Worksheets.Count).Range("A1").CurrentRegion.Select
         With Selection.Borders()
             .LineStyle = xlContinuous
             .Weight = xlThin

     End With

 

10. 폰트 색 바꾸기

      Worksheets(Worksheets.Count).Range(Cells(2, 3), Cells(21, 3)).Font.Color = RGB(255, 255, 255)

 

11. 기본 프린터로 프린트 하기

      Worksheets(Worksheets.Count).PrintOut
   

 

> [VBA] 엑셀 매크로(1/3) - 시작하기
> [VBA] 엑셀 매크로(3/3) - VBA 주요문법