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

 
Previous Post 자바스크립트] 숫자 앞에 공백 추가, 자릿수 맞추기; Leading Spaces to Nu...자바스크립트] 구구단 출력, 구구단표 만들기; HTML JavaScript Multipli...Java/자바] 구구단 출력, 구구단표 만들기 자바 소스; Multiplication Ta...C언어] 구구단 출력, 구구단표 만들기 C소스; Multiplication Table 99...Perl/펄] 구구단 출력, 구구단표 만들기; Multiplication Table 99자바스크립트] 음수, 양수의 곱셈 방법 설명; JavaScript Multiply Nega...Java/자바] 음수 곱하기 음수가, 양수가 되는 이유, 음수 곱셈; Multiplicat...KAGAYA 천문 월페이퍼 (가가야 별자리 벽지) 다운로드 홈페이지 주소; Wallpape...C언어] NaN 출력, 실수 연산 에러 판단 함수 _isnan(); isnanPerl/펄] 표준 편차 구하기/계산 함수; Standard Deviation Functi...

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

Wednesday, February 28, 2007

엑셀 비베에서, 숫자 앞의 빈 자리에 영(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

0 Comments:

Post a Comment

<< Home RSS 2.0 feed

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