Excel VBA Basic Code

학습일자: 2020. 12. 11. (금)

□ 한 셀 선택하기

Range("A5").Select

 

□ 연속된 셀 범위 선택하기

Range("C5:G5").Select

 

□ 서로 떨어져 있는 각각의 셀 범위 선택하기

Range("C5, G5").Select

 

□ 지정한 셀 범위의 색 변경하기

Range("A3:A7").Interior.Color = RGB(100,200,35)

Cells(1, 1).Interior.Color = RGB(100,200,35)

 

□ Cells 프로퍼티로 셀 선탁하기

Cells(2, 5).Activate

Cells(2, "E).Activate

 

□ Cells와 Range의 행, 열 기술 방법

 Cells(행, 열) 형식을 갖춥니다. 따라서 Range("E2") = Cells(2, 5) 

 

□ Union 메서드로 복수의 Range 오브젝트를 결합하여 하나의 Range 오브젝트로 만들기

Application.Union(Range("A1:B5"), Range("D2:E5")).Select

 

□ Intersect 메서드를 사용하여 여러 Range 오브젝트의 공통 부분 구하기

Application.Intersect([A1:D5], [C3:G10]).Select

 

□ Offset 프로퍼티로 선택한 셀 범위 위치 변경하기

Offset(4, 0)은 [A2] 셀을 기준으로 아래로 4행, 오른쪽으로 0열 이동한 위치인 [A6] 셀을 구합니다. 

With ActiveSheet.Range("A2")

　　.Offset(4, 0).Value = 5

　　.Offset(4, 1).Value = "오렌지"

　　.Offset(4, 2).Value = 1500

　　.Offset(4, 3).Value = 20

End With

 

□ Address 프로퍼티로 셀의 위치값 구하기

Dim 셀번지 As Range

Dim 상품명 As String

상품명 = "망고쥬스"

Set 셀번지 = Range("B3:B7").Find(what:=상품명) ' B3:B7 범위에서 상품명이 망고쥬스를 찾는다.

If Not 셀번지 Is Nothing Then

　　셀번지.Select

　　msbox 상품명 & "는 " _

　　& vbCrLf & 셀번지.Address & " 셀입니다. ' vbCrLf 로 Msgbox 함수 내부에서 개행처리 하기

End If

 

□ Select와 Activate 메서드

단일 셀이나 셀 범위를 선택하려면 Select 메서드를 사용합니다.

단일 셀을 활성셀로 설정하려면 Activate 메서드를 사용합니다.

단일 셀이 선택 대상이 되는 경우에는 Select, Activate 둘다 사용할 수 있습니다.

 

□ 셀 범위를 선택한 다음 활성셀을 선택하기

Range("A1:H5").Select

Range("H3").Activate

 

□ 선택 셀 참조하기

Range("A3:H5").Select

Range("H3").Activate

Msgbox "선택한 범위는" & Selection.Address & vbCrLf & "활성셀은 " & ActiveCell.Address & " 입니다."

 

□ 셀 값 반환하기

Range("C1") = Range("A1").Value ' 값 리턴

Range("C3") = Range("A1").Formula ' 수식 리턴

 

□ Range 오브젝트에 대해서 Range 프로퍼티 사용하기

ActiveCell.Offset(3, 6).Range("A1").Select ' 활성셀이 A1일 경우 Offset(3, 6)은 [G4] 셀이 됩니다.

 

□ 범위 선택하기 Worksheets("sheet1").UsedRange.Select

 

□ 시작 행은 제외하고 범위 선택하기 

Range("A2").CurrentRegion.Select

Range("A2").Resize(Selection.Rows.Count - 2, Selection.Columns.Count + 0).Offset(1, 0).Select

 

□ End 프로퍼티로 표의 마지막 셀 선택하기

Range("A2").End(xlDown).Select

Selection.End(xlToRight).Select

 

□ GoTo 메서드를 사용하여 지정한 셀로 바로 이동하기

Application.Goto reference:=Range("A7:E7"), scroll:=True

 

□ SpecialCells 메서드로 특정 셀 참조하기

Range("A2:F7").SpecialCells(xlCellTypeBlanks).Select 'Type 값에 따라 공백 셀을 선택합니다.

 

□ 셀 범위에 함수식 입력하기

Range("D3:D5").Value = "=vlookup($b3, $i$3:$j$7, 2, false)"

Range("E3:E20").FillDown ' 셀 범위에 수식 자동 채우기