스프레드시트는 많은 사람들이 일상 업무에서 사용하므로 사무실의 중요한 요소입니다. 대부분의 사람들은 합리적으로 기본적인 방식으로 스프레드시트를 사용하지만 일부 고급 사용자는 숫자를 단어로 변환하는 것이 어렵거나 복잡하다고 생각합니다. 엑셀에서. 이 가이드에서는 이 문제를 해결하고 네 가지 숫자를 단어로 변환하는 다양한 방법 엑셀에서. 또한 세 숫자를 텍스트 형식으로 변환하는 더 많은 방법.
통합 문서 다운로드
아래에서 이 기사에서 사용한 워크북을 다운로드하여 스스로 연습할 수 있습니다.
Excel에서 숫자를 단어로 변환하는 4가지 방법
이 문서 섹션에서는 Excel에서 숫자를 단어로 변환하는 방법을 설명합니다. 또한 네 가지 작업을 수행하는 기술. 세션을 진행하기 위해 Microsoft 365 버전을 사용할 것입니다. .
1. Excel에서 결합된 함수를 사용하여 숫자를 단어로 변환
여기에서 사용한 Excel 수식은 4에 의존합니다. 기능. 왼쪽 , 미드 , 텍스트 , 및 선택 기능.
첫째, LEFT 구문 기능은 다음과 같습니다.
기본적으로 이 기능은 텍스트에서 문자를 추출하는 데 사용됩니다.
=LEFT(텍스트, [num_chars])텍스트: 문자를 추출할 텍스트 문자열입니다.
num_chars [선택사항]: 추출할 문자 수입니다. 왼쪽부터 시작됩니다. 기본적으로 num_chars=1입니다. .
둘째, MID 구문 기능은 다음과 같습니다.
실제로 이 함수는 문자열 내부에서 텍스트를 추출하는 데 사용됩니다.
=MID(텍스트, start_num, num_chars)텍스트: 추출할 텍스트입니다.
start_num: 추출할 첫 번째 문자의 위치입니다.
num_chars: 추출할 문자 수입니다.
셋째, TEXT 구문 기능은 다음과 같습니다.
결국 이 함수는 숫자를 숫자 형식의 텍스트로 변환합니다.
=TEXT(값, format_text)값: 변환할 숫자입니다.
형식_텍스트: 사용할 숫자 형식입니다.
다음으로 CHOOSE 구문 기능은 다음과 같습니다.
이 함수는 위치에 따라 목록에서 값을 가져옵니다.
=CHOOSE (index_num, value1, [value2], …)index_num: 선택할 값입니다. 1 사이의 숫자 및 254 .
값1: 선택할 첫 번째 값입니다.
값2 [선택사항]: 선택할 두 번째 값입니다.
- 여기서 단어의 숫자 의 숫자를 변환합니다. 칼럼.
- 이제 C5에 다음 공식을 적으세요. 세포.
=CHOOSE(LEFT(TEXT(B5,”000000000.00″))+1,,”One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven”,” 여덟”,”아홉”)
&IF(–LEFT(TEXT(B5,”000000000.00″))=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),2,1)=0,–MID(TEXT(B5) ,”000000000.00″),3,1)=0),” 백”,” 백 및 “))
&CHOOSE(MID(TEXT(B5,”000000000.00″),2,1)+1,,,”스물 “,”삼십 “,”사십 “,”오십 “,” 육십 “,”칠십 “,” 80 ","90 ")
&IF(–MID(TEXT(B5,”000000000.00″),2,1)<>1,CHOOSE(MID(TEXT(B5,”000000000.00″),3,1)+1,,”One”, "둘","셋","넷","다섯","여섯","일곱","여덟","아홉"),
CHOOSE(MID(TEXT(B5,”000000000.00″),3,1)+1,”Ten”,”Eleven”,”Twelve”,”Thirteen”,”Fourteen”,”Fifteen”,”Sixteen” ,"세븐틴","열여덟","열아홉"))
&IF((–LEFT(TEXT(B5,”000000000.00″))+MID(TEXT(B5,”000000000.00″),2,1)+MID(TEXT(B5,”000000000.00″),3,1) )=0,,IF(AND((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,” 000000000.00″),6,1)+MID(TEXT(B5,”000000000.00″),7,1))=0,(–MID(TEXT(B5,”000000000.00″),8,1)+RIGHT(TEXT( B5,”000000000.00″)))>0),”백만 및 “,”백만 “))
&CHOOSE(MID(TEXT(B5,”000000000.00″),4,1)+1,,”One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven ","여덟","아홉")
&IF(–MID(TEXT(B5,”000000000.00″),4,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),5,1)=0,–MID (TEXT(B5,”000000000.00″),6,1)=0),” Hundred”,” Hundred and”))
&CHOOSE(MID(TEXT(B5,”000000000.00″),5,1)+1,,,” 스물”,” 삼십”,” 사십”,” 오십”,” 육십”,” 칠십”,” 여든”,” 아흔”)
&IF(–MID(TEXT(B5,”000000000.00″),5,1)<>1,CHOOSE(MID(TEXT(B5,”000000000.00″),6,1)+1,,” One”, "둘","셋","넷","다섯","여섯","일곱","여덟","아홉"),CHOOSE(MID(TEXT(B5,"000000000.00"),6,1) +1," 열"," 열한"," 열두"," 열셋"," 열네"," 열다섯"," 열여섯"," 열일곱"," 열여덟"," 열아홉"))
&IF((–MID(TEXT(B5,”000000000.00″),4,1)+MID(TEXT(B5,”000000000.00″),5,1)+MID(TEXT(B5,”000000000.00″), 6,1))=0,,IF(OR((–MID(TEXT(B5,”000000000.00″),7,1)+MID(TEXT(B5,”000000000.00″),8,1)+MID(텍스트 (B5,”000000000.00″),9,1))=0,–MID(TEXT(B5,”000000000.00″),7,1)<>0),”천 “,”천 및 “))
&CHOOSE(MID(TEXT(B5,”000000000.00″),7,1)+1,,”One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven ","여덟","아홉")
&IF(–MID(TEXT(B5,”000000000.00″),7,1)=0,,IF(AND(–MID(TEXT(B5,”000000000.00″),8,1)=0,–MID (TEXT(B5,”000000000.00″),9,1)=0),” 백 “,” 백 및 “))&
CHOOSE(MID(TEXT(B5,”000000000.00″),8,1)+1,,,”Twenty “,”Thirty “,”Forty “,”Fifty “,”Sixty “,”Seventy “,” 80 ","90 ")
&IF(–MID(TEXT(B5,”000000000.00″),8,1)<>1,CHOOSE(MID(TEXT(B5,”000000000.00″),9,1)+1,,”One”, "둘","셋","넷","다섯","여섯","일곱","여덟","아홉"),CHOOSE(MID(TEXT(B5,"000000000.00"),9,1) +1,"열","열한","열둘","열셋","열넷","열다섯","열여섯","열일곱","열여덟","열아홉"))
전체 공식이 언뜻 보기에는 복잡해 보일 수 있지만 본질적으로 단일 부분의 반복입니다. 따라서 먼저 이해할 수 있다면 공식의 일부만 이해하면 나머지는 이해할 수 있습니다.
- 그런 다음 Enter 키를 누릅니다. .
결과적으로 다음과 같은 출력이 표시됩니다.
수식 분석:
처음에는 TEXT 여기에서 함수를 사용하여 숫자를 “000000000.00”으로 바꿉니다. 텍스트 형식.
텍스트(B7,”000000000.00″)
그 후 왼쪽 함수는 숫자에서 가장 왼쪽 문자를 추출하는 데 사용됩니다. 반환 번호가 0인지 식별할 수 있습니다. 또는 다른 값.
LEFT(TEXT(B7,”000000000.00″))
다음으로 선택 함수는 추출된 숫자를 적절한 단어로 표현하는데 사용됩니다.
CHOOSE(LEFT(TEXT(B7,”000000000.00″))+1,”One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven”,”Eight ”,”9”)
이제 값이 0인지 확인합니다. 아니면. 0인 경우 그러면 아무 것도 표시되지 않습니다.
CHOOSE(LEFT(TEXT(B7,”000000000.00″))+1,”One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven”,”Eight ”,”9”)
&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,
"100"이 표시됩니다. 다음 2 숫자는 0입니다. . 그렇지 않으면 '백과'가 표시됩니다.
CHOOSE(LEFT(TEXT(B7,”000000000.00″))+1,”One”,”Two”,”Three”,”Four”,”Five”,”Six”,”Seven”,”Eight ”,”9”)
&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,IF(AND(–MID(TEXT(B7,”000000000.00″),2,1)=0,–MID(TEXT(B7) ,”000000000.00″),3,1)=0),” 백”,” 백 및 “))
이 수식은 VBA 가 필요하지 않습니다. 또는 배열. 숫자를 단어로 바꾸는 훌륭한 방법입니다. 그러나 2개 결함. 첫째, 소수점 이하 소수점 이하 자릿수를 완벽하게 표현할 수 없습니다. 둘, 최대 수 제한은 999, 999, 999입니다. . 사실 씨. 피트 엠 이 공식을 생각해 냈습니다.
- 이제 나머지 행에 대한 수식을 작성하거나 Excel 자동 완성 기능을 사용할 수 있습니다. .
마지막으로 모든 변환된 숫자를 단어로 얻을 수 있습니다. .
2. VLOOKUP 함수를 적용하여 숫자를 단어로 변환
VLOOKUP을(를) 적용할 수 있습니다. 숫자를 단어로 변환 기능 엑셀에서. 다른 것을 해보자. 여기에서는 먼저 단어에 있는 모든 숫자를 삽입해야 하며 이 기능을 사용하여 숫자를 단어로 변환할 수 있습니다.
단계:
- 먼저, C 열에 단어의 모든 숫자를 수동으로 기록합니다. .
- 이제 C12 세포.
=VLOOKUP(B12,B4:C9,2,FALSE) - 그런 다음 Enter 키를 누릅니다. .
수식 분석
이 공식에서 VLOOKUP 함수는 주어진 배열에서 값을 반환합니다.
- 첫째, B12 주어진 테이블에서 찾는 조회 값입니다.
- 둘째, B4:C9 테이블 배열 입니다. 여기서 목표 값을 찾습니다. .
- 셋째, 2 값을 반환할 테이블의 열 수입니다.
- 넷째, 거짓 정확함을 나타냅니다. 일치합니다.
3. VBA를 사용하여 Excel에서 숫자를 단어로 변환
가장 흥미로운 부분은 자신만의 기능을 구축할 수 있다는 것입니다. 숫자를 단어로 변환 엑셀에서. 또한 VBA 코드를 사용할 수 있습니다. 정의된 개발 기능. 단계는 다음과 같습니다.
단계 :
- 먼저 개발자를 선택해야 합니다. 탭>>을 선택한 다음 Visual Basic을 선택합니다.
- 이제 삽입에서 탭>> 모듈을 선택해야 합니다. .
- 이때 다음의코드를 기록해 두어야 합니다. 모듈에서 .
Function number_converting_into_words(ByVal MyNumber)
Dim x_string As String
Dim whole_num As Integer
Dim x_string_pnt
Dim x_string_Num
Dim x_pnt As String
Dim x_numb As String
Dim x_P() As Variant
Dim x_DP
Dim x_cnt As Integer
Dim x_output, x_T As String
Dim x_my_len As Integer
On Error Resume Next
x_P = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
x_numb = Trim(Str(MyNumber))
x_DP = InStr(x_numb, ".")
x_pnt = ""
x_string_Num = ""
If x_DP > 0 Then
x_pnt = " point "
x_string = Mid(x_numb, x_DP + 1)
x_string_pnt = Left(x_string, Len(x_numb) - x_DP)
For whole_num = 1 To Len(x_string_pnt)
x_string = Mid(x_string_pnt, whole_num, 1)
x_pnt = x_pnt & get_digit(x_string) & " "
Next whole_num
x_numb = Trim(Left(x_numb, x_DP - 1))
End If
x_cnt = 0
x_output = ""
x_T = ""
x_my_len = 0
x_my_len = Int(Len(Str(x_numb)) / 3)
If (Len(Str(x_numb)) Mod 3) = 0 Then x_my_len = x_my_len - 1
Do While x_numb <> ""
If x_my_len = x_cnt Then
x_T = get_hundred_digit(Right(x_numb, 3), False)
Else
If x_cnt = 0 Then
x_T = get_hundred_digit(Right(x_numb, 3), True)
Else
x_T = get_hundred_digit(Right(x_numb, 3), False)
End If
End If
If x_T <> "" Then
x_output = x_T & x_P(x_cnt) & x_output
End If
If Len(x_numb) > 3 Then
x_numb = Left(x_numb, Len(x_numb) - 3)
Else
x_numb = ""
End If
x_cnt = x_cnt + 1
Loop
x_output = x_output & x_pnt
number_converting_into_words = x_output
End Function
Function get_hundred_digit(xHDgt, y_b As Boolean)
Dim x_R_str As String
Dim x_string_Num As String
Dim x_string As String
Dim y_I As Integer
Dim y_bb As Boolean
x_string_Num = xHDgt
x_R_str = ""
On Error Resume Next
y_bb = True
If Val(x_string_Num) = 0 Then Exit Function
x_string_Num = Right("000" & x_string_Num, 3)
x_string = Mid(x_string_Num, 1, 1)
If x_string <> "0" Then
x_R_str = get_digit(Mid(x_string_Num, 1, 1)) & "Hundred "
Else
If y_b Then
x_R_str = "and "
y_bb = False
Else
x_R_str = " "
y_bb = False
End If
End If
If Mid(x_string_Num, 2, 2) <> "00" Then
x_R_str = x_R_str & get_ten_digit(Mid(x_string_Num, 2, 2), y_bb)
End If
get_hundred_digit = x_R_str
End Function
Function get_ten_digit(x_TDgt, y_b As Boolean)
Dim x_string As String
Dim y_I As Integer
Dim x_array_1() As Variant
Dim x_array_2() As Variant
Dim x_T As Boolean
x_array_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
x_array_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
x_string = ""
x_T = True
On Error Resume Next
If Val(Left(x_TDgt, 1)) = 1 Then
y_I = Val(Right(x_TDgt, 1))
If y_b Then x_string = "and "
x_string = x_string & x_array_1(y_I)
Else
y_I = Val(Left(x_TDgt, 1))
If Val(Left(x_TDgt, 1)) > 1 Then
If y_b Then x_string = "and "
x_string = x_string & x_array_2(Val(Left(x_TDgt, 1)))
x_T = False
End If
If x_string = "" Then
If y_b Then
x_string = "and "
End If
End If
If Right(x_TDgt, 1) <> "0" Then
x_string = x_string & get_digit(Right(x_TDgt, 1))
End If
End If
get_ten_digit = x_string
End Function
Function get_digit(xDgt)
Dim x_string As String
Dim x_array_1() As Variant
x_array_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
x_string = ""
On Error Resume Next
x_string = x_array_1(Val(xDgt))
get_digit = x_string
End Function
- 이제 코드를 저장해야 합니다. .
- 그런 다음 Excel 워크시트로 이동해야 합니다. .
현재 정의된 기능. 이를 위해서는 주어진 단계를 따라야 합니다.
단계:
- 이제 변환된 출력을 표시할 셀을 선택합니다. (이 경우 셀 C5 ).
- 그런 다음 등호(=)를 입력합니다. 세포에서. 수식을 입력할 수 있어야 합니다.
- 그런 다음 "=number_converting_into_words를 입력합니다. ' 또는 number_converting_into_words를 선택합니다. 드롭다운 메뉴에서 기능.
- 그런 다음 단어로 변환하려는 숫자 값이 있는 셀을 선택합니다(이 경우 셀 B5 ).
- 마지막으로 ENTER 키를 누릅니다. 버튼.
결과적으로 선택한 셀 번호를 해당 단어로 변환합니다. 마지막으로 이 수식을 나머지 셀에도 복사할 수 있습니다.
4. Excel에서 표현 통화에 VBA 사용
이 방법은 마지막 방법과 유사합니다. 또한 VBA(Visual Basic for Application) 를 사용하여 모듈을 삽입하여 작동합니다. 그리고 그것을 함수로 사용합니다. 마지막 방법과 다른 점은 숫자를 적절한 통화 단어로 변환한다는 것입니다. 또한 아래에 예가 나와 있습니다.
375.65=삼백칠십오 달러와 육십오 센트이제 이 방법을 적용하려면 다음 단계를 따르세요.
- 먼저, 방법-3을 따릅니다. 모듈을 삽입합니다.
- 둘째, 모듈 2에 다음 코드를 작성합니다. .
Function Convert_Number_into_word_with_currency(ByVal whole_number)
Dim converted_into_dollar, converted_into_cent
my_ary = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
whole_number = Trim(Str(whole_number))
x_decimal = InStr(whole_number, ".")
If x_decimal > 0 Then
converted_into_cent = get_ten(Left(Mid(whole_number, x_decimal + 1) & "00", 2))
whole_number = Trim(Left(whole_number, x_decimal - 1))
End If
xIndex = 1
Do While whole_number <> ""
xHundred = ""
xValue = Right(whole_number, 3)
If Val(xValue) <> 0 Then
xValue = Right("000" & xValue, 3)
If Mid(xValue, 1, 1) <> "0" Then
xHundred = get_digit(Mid(xValue, 1, 1)) & " Hundred "
End If
If Mid(xValue, 2, 1) <> "0" Then
xHundred = xHundred & get_ten(Mid(xValue, 2))
Else
xHundred = xHundred & get_digit(Mid(xValue, 3))
End If
End If
If xHundred <> "" Then
converted_into_dollar = xHundred & my_ary(xIndex) & Dollar
End If
If Len(whole_number) > 3 Then
whole_number = Left(whole_number, Len(whole_number) - 3)
Else
whole_number = ""
End If
xIndex = xIndex + 1
Loop
Select Case converted_into_dollar
Case ""
converted_into_dollar = " Zero Dollar"
Case "One"
converted_into_dollar = " One Dollar"
Case Else
converted_into_dollar = converted_into_dollar & "Dollars"
End Select
Select Case converted_into_cent
Case ""
converted_into_cent = " and Zero Cent"
Case "One"
converted_into_cent = " and One Cent"
Case Else
converted_into_cent = " and " & converted_into_cent & "Cents"
End Select
Convert_Number_into_word_with_currency = converted_into_dollar & converted_into_cent
End Function
Function get_ten(pTens)
Dim my_output As String
my_output = ""
If Val(Left(pTens, 1)) = 1 Then
Select Case Val(pTens)
Case 10: my_output = "Ten"
Case 11: my_output = "Eleven"
Case 12: my_output = "Twelve"
Case 13: my_output = "Thirteen"
Case 14: my_output = "Fourteen"
Case 15: my_output = "Fifteen"
Case 16: my_output = "Sixteen"
Case 17: my_output = "Seventeen"
Case 18: my_output = "Eighteen"
Case 19: my_output = "Nineteen"
Case Else
End Select
Else
Select Case Val(Left(pTens, 1))
Case 2: my_output = "Twenty "
Case 3: my_output = "Thirty "
Case 4: my_output = "Forty "
Case 5: my_output = "Fifty "
Case 6: my_output = "Sixty "
Case 7: my_output = "Seventy "
Case 8: my_output = "Eighty "
Case 9: my_output = "Ninety "
Case Else
End Select
my_output = my_output & get_digit(Right(pTens, 1))
End If
get_ten = my_output
End Function
Function get_digit(pDigit)
Select Case Val(pDigit)
Case 1: get_digit = "One"
Case 2: get_digit = "Two"
Case 3: get_digit = "Three"
Case 4: get_digit = "Four"
Case 5: get_digit = "Five"
Case 6: get_digit = "Six"
Case 7: get_digit = "Seven"
Case 8: get_digit = "Eight"
Case 9: get_digit = "Nine"
Case Else: get_digit = ""
End Select
End Function
결과적으로 정의된 Convert_Number_into_word_with_currency라는 함수 . 이를 위해서는 주어진 단계를 따라야 합니다.
단계:
- 이제 결과를 저장할 셀을 선택해야 합니다. C5를 선택했습니다. 세포.
- 그런 다음 C5에서 해당 수식을 사용해야 합니다. 세포.
=Convert_Number_into_word_with_currency(B5) - 그런 다음 Enter 키를 누릅니다. .
- 마지막으로 Excel 자동 완성 기능 을 사용합니다. 나머지 셀 C6:C9 .
마지막으로 모든 변환된 금액을 받게 됩니다.
Excel에서 숫자를 텍스트 형식으로 변환하는 방법
지금까지 숫자를 단어로 변환하는 방법에 대해 알아보았습니다. 엑셀에서. 이 문서 섹션에서는 숫자를 텍스트로 변경하는 방법을 설명합니다. Excel에서 형식을 지정합니다. 숫자를 텍스트로 변환하는 가장 간단하고 빠른 방법입니다.
이 방법을 적용하려면 다음 단계를 따르세요.
- 먼저 텍스트로 변환하려는 숫자 값이 있는 셀을 선택합니다(이 경우 C5:C9 )
- 둘째, 홈 으로 이동합니다. 탭을 클릭하고 텍스트를 선택합니다. 숫자 아래의 셀 카테고리 드롭다운 메뉴에서 옵션 섹션.
결과적으로 선택한 셀의 숫자 값을 텍스트로 변환합니다. 정렬을 관찰하면 이해할 수 있습니다. 기본적으로 Excel에서 텍스트는 왼쪽으로 정렬되고 숫자는 오른쪽으로 정렬됩니다.
또는 CTRL+1을 누를 수 있습니다. 셀 서식이라는 창을 열려면 숫자를 선택합니다. 옵션을 선택한 다음 텍스트를 선택합니다. 카테고리입니다.
연습 섹션
연습을 위해 각 시트의 오른쪽 부분에 연습 부분을 추가했습니다.
결론
여기에서 우리는 이 기사를 MS Excel에서 숫자를 적절한 단어나 텍스트로 변환하는 방법에 대한 궁극적인 가이드로 만들려고 노력했습니다. . 또한 7 특정 상황에 가장 적합한 이상적인 옵션을 선택할 수 있도록 이 문서에서 다양한 기술을 사용합니다. 따라서 원하는 솔루션을 찾으시기 바랍니다. 제안이나 질문이 있으면 댓글을 남겨주세요. 감사합니다.
관련 기사
- 날짜를 텍스트 YYYYMMDD로 변환하는 방법(3가지 빠른 방법)
- Excel에서 날짜를 텍스트 월로 변환(8가지 빠른 방법)