하나의 오브젝트에 대해 여러 가지 조작을 할 때 코드 자체를 매우 간결하게 표현할 수 있도록 해준다.
Sub ChangeFont()
Range("b24").ClearContents
Range("b24").Value = "Visual Basic"
Range("b24").Select
Selection.Font.Name = "Arial"
Selection.Font.FontStyle = "Bold Italic"
Selection.Font.Size = 12
Selection.Font.ColorIndex = Rnd() * 56 + 1
Selection.Font.Underline = xlSingle
End Sub
해설)
b24 셀 삭제,
b24셀에 "Visual Basic" 문자열 삽입
b24셀 선택,
폰트 이름을 "Arial"로
폰트 스타일을 "굵은 이탤릭체"로
폰트 크기를 12포인트로 지정
글자의 색을 임의의 색으로 지정
글자에 밑줄을 지정
위의 프로시저는 range 오브젝트에 대해 3개의 프로퍼티를 font 오브젝트에 대해 5개의 프로퍼티를 사용해서 작업을 하고 있는데 매번 오브젝트명을 다 불러서 작업을 함
수행속도 저하..
Sub ChangeFont2()
With Range("b50")
.ClearContents
.Value = "Visual Basic"
.Select
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold Italic"
.Size = 12
.ColorIndex = Rnd() * 56 + 1
.Underline = xlSingle
End With
End Sub
