엑셀 VBA

▒ 변수 정의

필수		생략 가능
Dim (지역변수) Static (정적 변수) Private (모듈 변수) Public (전역 변수)	변수명	As 데이터형(Integer, Range, Date, Variant)

▒ 선택하기

Cells(1,1).Select
Range("A1").Select
Range("A1:C1").Select
Colums("B").Select
Rows(3).Select
Intersect(Range("A1:C4"), Range("B1:B6")).Select '교집합
Union(Range("A1:C4"), Range("B1:B6")).Select '합집합
ActiveSheet.Cells(1,1).Select
ActiveSheet.Range("A2").Select
Sheets("Sheet1").Cells(1,1).Select
Sheets(1).Cells(1,1).Select

▒ 지우기

Cells(1, 2).Clear
Cells(1, 2).Select
Selection.Clear

▒ Random 랜덤

특정 범위내에 속하는 임의 정수를 얻으려면 다음과 같은 공식을 이용한다.

'I = Int ( ( high number - low number + 1 ) * Rnd ) + low number
I = Int ( ( 10 – 1 +1 ) * Rnd ) + 1

▒ for 문

    Dim i As Integer
    For i = 1 To 3
        Cells(1, i) = Sheets(1).Cells(1, i)
    Next i

▒ 마지막 행 찾기

Dim lastRow As Long
lastRow = Sheets(1).Range("A1048576").End(xlUp).Row '엑셀의 행은 1,048,576개가 한계
MsgBox ("A열의 마지막 행은 " & lastRow & "행입니다.")

▒ 폰트 변경

Cells(1,1).Font.name="나눔 명조"
Cells(1,1).Font.Size=14
Cells(1,1).Font.Bold=True
Cells(1,1).Font.Italic=True
Cells(1,1).Font.Underline=True
Cells(1,1).Font.Color=RGB(255, 0, 0)