엑셀 VBA 셀 개체

셀 개체

셀 개체는

• Cells
• Range
• Offset

이 있다.

Range 개체

Range 개체 사용법은

Range("ref ")

이며

• ref는 셀을 A1, R1C1 스타일로 입력하며, 여러 셀도 지정할 수 있다.

셀 범위 설정은

Range("B1").Select ‘B1 셀 선택
Range("B2:F5").Select ‘B2:F5 셀 선택
Range("B3:D4,B6:F8").Select ‘B3:D4과 B6:F8 셀 선택

로 한다. 열 범위는

Range("A:A").Select ‘A열 선택
Range("A:D").Select ‘A열에서 D열까지 선택
Range("A:A,F:F").Select ‘A열과 F열 선택

하고, 행 범위는

Range("1:1").Select ‘1행 선택
Range("1:3").Select ‘1행에서 3행까지 선택
Range("1:1,3:3").Select ‘1행과 3행 선택

다음은 셀에 갑을 입력하는 예이다.

Sub RangeExample()
   Range("A1").Value = "엑셀"
   Range("A2") = "비주얼 베이직"
   Range("B1:F6") = "Excel & Visual Basic"
End Sub

위 예에서 Value 속성은 생략이 가능하다.

Font 개체

Font 개체는 글자 속성을 설정한다. 이 개체로 셀의 글자 속성을 변경한다.

다음 표는 Font 개체의 속성 및 메소드이다.

속성/메소드내용

Name	글자체를 설정한다.
Size	글자체 크기이다.
Bold	글자의 굵기이다.
Color	글자색이다. RGB 함수로 값을 설정한다.
ColorIndex	글자색이다. 이미 설정된 특정한 색을 인덱스로 가져온다.
Italic	글자의 기울임체 설정이다.

다음 예는 Font 개체로 셀 글자체 설정하였다.

Sub 글자체설정()
   Range("B2").Value = 123
   Range("B3").Value = "엑셀"

   Range("B2").Font.Name = "굴림체"
   Range("B2").Font.Size = 11
   Range("B2").Font.Bold = True
   Range("B2").Font.ColorIndex = 5

   With Range("B3").Font
      .Name = "함초롬돋움"
      .Size = 13
      .Bold = True
      .Italic = True
      .Color = RGB(255, 0, 25)
   End With
End Sub

글자체에 색은 Color 속성 값에 색설정을 RGB 함수로 적용한다. RGB 함수는 빛의 삼원색인 빨강(Red), 녹색(Green), 파랑(Blue)을 적절하게 혼합하여 색을 표현한다. 색 표현 강도는 0에서 255 사이 정수값이다.

또한 색은 ColorIndex에 자연수를 사용하여 색을 표현한다.

다음은 ColorIndex 색 번호이다.

1	검정	2	흰색
3	빨강	4	녹색
5	파랑	6	노랑
7	자홍	8	하늘색

Cells 개체

Cells 개체 사용방법은

Cells(row num, col num)

이다. 인수는

• row num은 행의 위치
• col num은 열의 위치

이다. 예를 들어 Cells(1,1)은 A1 셀을 나타낸다. 이 개체와 함께 셀에 엑셀 함수를 사용하려면 Value, Formula, FormulaR1C1 속성을 사용한다.

Value : 셀에 저장된 값이다. 값으로 저장된다.

Formula : 셀에 저장된 값이다. 수식으로 저장된다. 셀 참조는 A1이다.

* FormulaR1C1 : 셀에 저장된 값이다. 수식으로 저장된다. 셀 참조는 R1C1이다.

예를 들어

Cells(1,1).Formula = "=RAND()"

를 실행하면 A1 셀에 0에서 1사이의 실수에서 난수가 출력된다.

다음은 엑셀 함수를 셀 개체에 적용한 예이다.

Range("A3").Value = "=SUM(A1:A2)"
Range("B3").Formula = "=SUM(B1:B2)"
Range("C3").FormulaR1C1 = "=SUM(R[-2]C[0]:R[-1]C[0])"
Range("D3").Value = Range("A3").Value
Range("E3").Value = Range("B3").Formula

함수에 이중 따옴표를 사용하면 이중 따옴표를 하나 더 사용한다.

다음 예는 함수 안에 이중 따옴표를 사용한다.

Cells(1,2).Formula = "=IF(A1>5,""크다"",""작다"")"

Offset 개체

Offset 개체는 현재 셀을 기준으로 속성을 적용한다. 사용법은

expression.Offset("RowOffset, ColumnOffset")

이며, 인수는

• expression : Range, Cell, AcetiveCell 개체 사용
• RowOffset : 정수를 입력하며, 양수는 아래, 음수는 위, 0은 기본값
• ColumnOffset : 정수를 입력하며, 양수는 오른쪽, 음수는 왼쪽, 0은 기본값

다음은 Offset 개체를 사용한 예이다.

Sub 셀참조()
   Worksheets("Sheet1").Activate
   ActiveCell.Offset(2,2).Activate
End Sub