숫자 서식 바꾸기

회사에서 문서를 작성하다보면, 천단위 콤마를 찍는 경우가 많은데, 회계형식으로 바뀌면 자동 우측정렬이 된다.

천단위 콤마찍고, 가운데 정렬하는 코드를 짜봤다. 특히 0이 그냥 나와있으면, 일일이 바꿔줘야하는데, 하이픈 처리되게 했다.

myimg



Sub format_()

Dim x As Range
Dim i As Integer

Set x = Selection

For i = 1 To x.Count
   x(i).NumberFormat = "#,##0;[RED]-#,##0;-"
   x(i).HorizontalAlignment = xlCenter
Next i

End Sub

요것도 나중에 업데이트.

끝.