'--- 속성과 메서드

'--- 속성과 메서드

Sub Sample005()

    Range("A1").Value = "King"

    MsgBox Range("A1").Value

    Range("A1").Copy Range("B1")

    Range("A1").Clear

End Sub

Sub With_Test()

    With Range("A1:C5")

        .Font.Size = 12

        .Font.Bold = True

        .HorizontalAlignment = xlCenter

        .Style = "Percent"

    End With

End Sub

'--- 개체 변수

Sub Sample007()

    Const UserName As String = "Lee Jae Won"

    Dim intSize As Integer

    Dim rngTarget As Range

    intSize = 11

    Set rngTarget = Sheets(1).Range("A1:C5")

    rngTarget = UserName

    rngTarget.Font.Size = intSize

End Sub