Sub UpTable()
 For T_Year＝㉠ To 2
  Cells(㉡ , T_Year＋1).Value _
  ＝㉢＋T_Year
 Next T_Year
 For TQ＝1 To 2
  Cells(㉣ , 1).Value _
  ＝"Quarter"& TQ
 Next TQ
End Sub

- 입력한 문자 앞에 “판매액”을 표시한다.
- 0이면 0.00으로 표시한다.
- 양수이면 검은색으로 천 단위 구분 기호를 사용해서 표시하고, 소수 자릿수는 둘째 자리까지 표시한다.
- 음수이면 빨간색으로 천 단위 구분 기호와 괄호를 표시하며, 소수 자릿수는 둘째 자리까지 표시한다.

Sub Macro1( )
 'Macro1 Macro
 '바로 가기 키: Ctrl＋a
 Range("A2:E8").Select
 Selection.Font.Bold＝True
 With Selection.Font
 　.Name＝"바탕체"
 　.Size＝11
 End With
End Sub

sub Chk( )
 LoopN＝0
 Num＝10
 Do
  Num＝Num－2
  LoopN＝LoopN＋1
Loop While Num＞5
MsgBox "루프를 "& LoopN& "번 반복."
End Sub