숫자 서식 바꾸기
회사에서 문서를 작성하다보면,
천단위 콤마를 찍는 경우가 많은데, 회계형식으로 바뀌면 자동 우측정렬이 된다.
몹시 짜증난다.
천단위 콤마찍고, 가운데 정렬하는 코드를 짜봤다.
특히 0이 그냥 나와있으면, 일일이 바꿔줘야하는데, 하이픈 처리되게 했다.
[코드샘플]
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
