mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Wednesday, February 28, 2007

Excel/엑셀 VBA] 숫자 앞에 공백 추가, 자릿수 맞추기 함수; Add Leading Spaces to Number


엑셀 비베에서, 숫자 앞의 빈 자리에 영(0)을 추가하는 것은 Format 함수로 가능하지만, 아래와 같이 숫자 앞에 공백(스페이스)을 추가하는 것은 되지 않았습니다. 엑셀의 특성상, 숫자 앞에 공백을 넣어야 할 경우가 아주 드물기에 그런 것 같습니다.
[  5]
[ 55]
[555]

그래서 그런 일을 하는 함수를 만들었습니다.

leadingSpaces(숫자, 자리수)
이런 형식으로 사용합니다.

숫자 여백에 스페이스(Space) 문자 넣기 예제; printf() 함수처럼


(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.


(공백 문자가 앞에 붙어 있는지 아닌지 알아 보기 쉽도록, 숫자 양옆에 대괄호를 붙였습니다.)
Sub Add_Leading_Spaces_Example()

  MsgBox "[" & leadingSpaces(5, 3) & "]"
  ' 출력 결과: [  5]


  MsgBox "[" & leadingSpaces(55, 3) & "]"
  ' 출력 결과: [ 55]


  MsgBox "[" & leadingSpaces(555, 3) & "]"
  ' 출력 결과: [555]

End Sub




Function leadingSpaces(n, digits)

  Dim I, Space

  If (Len(n) < digits) Then
    For I = 1 To digits - Len(n)
      Space = Space & " "
    Next I
  End If

  leadingSpaces = Space & n

End Function




숫자 앞에 0 추가: ▶▶ Excel/엑셀 VBA] 숫자 앞에 공(0), 제로(영) 붙이기-추가. Leading Zero to Number




tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스

1 Comments:
At September 5, 2019 at 3:54 PM, Blogger Unknown said...

좋은 자료 감사합니다.

 

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top