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 ' 셀 범위에 수식 자동 채우기