단어를 숫자 변환

참고:  사용자 언어로 가능한 한 빨리 가장 최신의 도움말 콘텐츠를 제공하고자 합니다. 이 페이지는 자동화를 통해 번역되었으며 문법 오류나 부정확한 설명을 포함할 수 있습니다. 이 목적은 콘텐츠가 사용자에게 유용하다는 것입니다. 이 페이지 하단의 정보가 도움이 되었다면 알려주세요. 쉽게 참조할 수 있는 영어 문서 가 여기 있습니다.

Excel 2013 및 Excel 2016 스프레드시트 셀에서 영어 단어와 숫자를 표시 하는 기본 함수 않지만 SpellNumber 함수 코드 모듈 시트에 붙여 넣어이 기능을 추가할 수 있습니다. 이 함수를 사용 하면 단어 달러와 센트 금액으로 변환할 수 있습니다.

대신 TEXT 함수를 사용 하 여 단어로 표시 하지 않고 텍스트 형식으로 숫자 값으로 변환 해야 합니다.

이 문서의 내용

단어에 숫자를 변환 하려면 SpellNumber 함수 만들기

  1. 바로 가기 키 Alt + f 11을 열고 Visual Basic Editor를 사용 합니다.

    참고: 리본 메뉴에 개발 도구 탭 표시 하 여 Visual Basic Editor를 액세스할 수 있습니다.

  2. 삽입 탭을 클릭 하 고 모듈 을 클릭 합니다.

    삽입 메뉴에서 모듈을 클릭 합니다.
  3. 다음 코드 줄을 복사 합니다.

    참고: 이 코드 숫자 스프레드시트 전체에서 텍스트를 변환 하는 작업을 자동화 매크로 함수라고 합니다.

    명시적 옵션

    ' 주 함수

    함수 SpellNumber (ByVal MyNumber)

    달러 센트, Temp 흐리게 표시

    Dim DecimalPlace 개수

    문자열로 Place(9) reDim

    Place(2) = "천"

    Place(3) = "백만"

    Place(4) = "십억"

    Place(5) = "조"

    ' 문자열 표현 금액입니다.

    MyNumber Trim(Str(MyNumber)) =

    ' 소수점 아래 첫째 자리로 되지 않으면 0의 위치를 반환 합니다.

    DecimalPlace = InStr (MyNumber, ".")

    ' 센트 변환 하 고 MyNumber 달러 금액으로 설정 합니다.

    하는 경우 DecimalPlace > 0 다음

    센트 GetTens = (왼쪽 (Mid (MyNumber, DecimalPlace + 1) & _ "00", 2))

    MyNumber = Trim (왼쪽 (MyNumber, DecimalPlace-1))

    종료 하는 경우

    Count = 1

    수행 하는 동안 MyNumber <> ""

    Temp GetHundreds = (오른쪽 (MyNumber, 3))

    하는 경우 <> Temp "" 다음 달러 Temp & Place(Count) 달러 =

    하는 경우 Len(MyNumber) > 3 다음

    MyNumber = 왼쪽 (MyNumber, Len(MyNumber)-3)

    Else

    MyNumber = ""

    종료 하는 경우

    Count = 개수 + 1

    루프

    대/소문자 달러 선택

    대/소문자 ""

    달러 = "No 달러"

    대/소문자 "1"

    달러 = "하나의 달러"

    대/소문자가

    달러 = 달러 & "달러"

    끝 선택

    대/소문자 센트 선택

    대/소문자 ""

    센트 = "및 No 센트"

    대/소문자 "1"

    센트 = "및 하나의 센트"

    대/소문자가

    센트 = "및" & 센트 & "센트"

    끝 선택

    SpellNumber = 달러 & 센트

    끝 함수

    ' 100 999에서 숫자를 텍스트로 변환

    함수 GetHundreds (ByVal MyNumber)

    Dim 결과 문자열로

    하는 경우 Val(MyNumber) = 0 다음 끝내기 함수

    MyNumber = 오른쪽 ("000" & MyNumber, 3)

    ' 변환을 수백 배치 합니다.

    If (MyNumber, 1, 1) Mid 다음 <> "0"

    결과 (중간 (MyNumber, 1, 1)) GetDigit = & "백"

    종료 하는 경우

    ' 십 및 된 곳으로 변환 합니다.

    If (MyNumber, 2, 1) Mid 다음 <> "0"

    결과 = 결과 (중간 (MyNumber, 2)) GetTens

    Else

    결과 = 결과 (중간 (MyNumber, 3)) GetDigit

    종료 하는 경우

    GetHundreds = 결과

    끝 함수

    ' 숫자 10에서 99 텍스트로 변환 합니다.

    함수 GetTens(TensText)

    Dim 결과 문자열로

    결과 = "" ' 임시 함수 값을 Null입니다.

    경우 Val (왼쪽 (TensText, 1)) = 1 다음 ' 경우 10 19 사이의 값 중...

    대/소문자 Val(TensText) 선택

    10 대/소문자: 결과 = "10"

    사례 11: 결과 = "11"

    사례 12: 결과 = "12"

    사례 13: 결과 = "13"

    사례 14: 결과 = "Fourteen"

    사례 15: 결과 = "15"

    사례 16: 결과 = "16"

    사례 17: 결과 = "Seventeen"

    사례 18: 결과 = "Eighteen"

    사례 19: 결과 = "19"

    대/소문자가

    끝 선택

    다른 ' 경우 20-99 사이의 값 중...

    대/소문자 Val 선택 (왼쪽 (TensText, 1))

    사례 2: 결과 = "20"

    사례 3: 결과 = "30"

    사례 4: 결과 = "Forty"

    사례 5: 결과 = "50"

    6 대/소문자: 결과 = "Sixty"

    사례 7: 결과 = "70"

    사례 8: 결과 = "Eighty"

    사례 9: 결과 = "Ninety"

    대/소문자가

    끝 선택

    결과 결과 & GetDigit _ =

    (오른쪽 (TensText, 1)) ' 추천 위치를 검색 합니다.

    종료 하는 경우

    GetTens = 결과

    끝 함수

    ' 숫자 1부터 9를 텍스트로 변환 합니다.

    함수 GetDigit(Digit)

    대/소문자 Val(Digit) 선택

    사례 1: GetDigit "1" =

    사례 2: GetDigit = "2"

    사례 3: GetDigit = "3"

    사례 4: GetDigit = "4"

    5 대/소문자: GetDigit = "5"

    6 대/소문자: GetDigit = "Six"

    대/소문자 7: GetDigit = "7"

    대/소문자 8: GetDigit "8" =

    대/소문자 9: GetDigit = "9"

    다른 경우: GetDigit = ""

    끝 선택

    끝 함수

  4. 코드 줄을 붙여 넣습니다는 Module1 (코드) 상자입니다.

    Module1에 붙여 넣은 코드 (코드) 상자입니다.
  5. 파일 을 클릭 하 고 닫고 Microsoft Excel로 돌아가기 를 클릭 합니다. SpellNumber 함수를 사용할 준비가 되었습니다.

    참고: 이 함수는 현재 Excel 파일이 열려 있는 대해서만 작동 합니다. 다른 Excel 통합 문서에서이 함수를 사용 하 여 복사 하 고 해당 파일에 태그를 붙여 단계를 반복 해야 합니다.

맨 위로 이동

SpellNumber 함수를 사용 하 여 개별 셀에서

  1. 저장할 작성 된 번호를 표시 하려면 원하는 번호 바꾸기 셀에 수식 = SpellNumber ()을 입력 합니다.

  2. 키보드에서 enter 키를 누릅니다.

    예를 들어 =SpellNumber(22.50) 입력할 때 셀 20 두 달러 50 센트 읽어야 합니다.

    팁: 별도 셀에서 텍스트에 숫자를 변환할 숫자 값을 SpellNumber 수식에 셀 참조를 바꿉니다. 예를 들어 셀 a 1의 서 면된 값을 표시 하려면 =SpellNumber(A1) 입력 합니다.

맨 위로 이동

SpellNumber 함수 통합 문서 저장

Excel 매크로 함수를 표준 매크로 제외 통합 문서 형식에서으로 통합 문서를 저장할 수 없습니다. 파일 을 클릭 하면 > 저장 합니다. VB 프로젝트 대화 상자가 열립니다. 아니요 를 클릭 합니다.

클릭 하 여 VB 프로젝트 대화 상자에서 아니요

현재 형식으로 파일을 유지 하려면 excel 매크로 사용 서식 파일을 저장할 수 있습니다.

  1. 파일 > 다른 이름으로 저장을 클릭합니다.

  2. 파일 형식 드롭다운 메뉴를 클릭 하 고 Excel Macro-Enabled Template을 선택 합니다.

    Excel 매크로 사용 서식 파일을 선택 합니다.
  3. 저장을 클릭합니다.

맨 위로 이동

참고 항목

TEXT 함수

Office 기술 확장
교육 살펴보기
새로운 기능 우선 가져오기
Office Insider 참여

이 정보가 유용한가요?

의견 주셔서 감사합니다!

피드백을 주셔서 감사합니다. Office 지원 에이전트와 연락하는 것이 도움이 될 것 같습니다.

×