Tabelarvutuslehti kasutavad paljud inimesed oma igapäevatöös, mis teeb neist kontori olulise elemendi. Kuigi enamik inimesi kasutab tabelarvutuslehti üsna lihtsal viisil, leiavad mõned edasijõudnud kasutajad, et see on raske või keeruline. teisendada number sõnadesse Excelis. Käesolevas juhendis oleme seda küsimust käsitlenud ja esitanud neli erinevad meetodid, et teisendada number sõnadesse Excelis. Lisaks on olemas kolm rohkem meetodeid numbrite teisendamine tekstivorminguks .

Lae alla töövihik

Allpool saate alla laadida töövihiku, mida me selles artiklis kasutasime, ja sellega ise harjutada.

4 viisi, kuidas konverteerida numbreid sõnadesse Excelis

Selles artikli osas selgitatakse, kuidas konverteerida Excelis numbreid sõnadesse. Lisaks näitame, et neli tehnikaid operatsiooni läbiviimiseks. Seansi läbiviimiseks kasutame me Microsoft 365 versioon .

1. Kombineeritud funktsioonide kasutamine Excelis, et teisendada arv sõnadeks

Siin kasutatav Exceli valem tugineb järgmisele neli funktsioonid. VÄLJAS , MID , TEKST , ja VALI funktsioonid.

Esiteks, süntaks VÄLJA funktsioon on järgmine:

Põhimõtteliselt kasutatakse seda funktsiooni tähemärkide eraldamiseks tekstist.

Tekst: Tekstirida, millest tähemärke ekstraheeritakse.

num_chars [Vabatahtlik]: Väljatõmmatavate märkide arv. See algab vasakult. Vaikimisi, num_chars=1 .

Teiseks, süntaks on MID funktsioon on järgmine:

Tegelikult kasutatakse seda funktsiooni teksti väljavõtmiseks stringi seest.

Tekst: Tekst, millest ekstraheerida.

start_num: Esimese väljatõmmatava tähemärgi asukoht.

num_chars: Väljavõetavate tähemärkide arv.

Kolmandaks, süntaks TEKST funktsioon on järgmine:

Lõpuks teisendab see funktsioon numbri numbriformaadis tekstiks.

väärtus: Konverteeritav number.

format_text: Kasutatav numbrivorming.

Järgnevalt on süntaks VALI funktsioon on järgmine:

See funktsioon saab loendist väärtuse, mis põhineb positsioonil.

index_num: Valitav väärtus. Number vahemikus 1 ja 254 .

value1: Esimene väärtus, mille hulgast valida.

value2 [vabatahtlik]: Teine väärtus, mille hulgast valida.

• Siinkohal teisendame numbri Numbrid sõnades veerus.

• Nüüd kirjutage järgmine valem üles C5 rakk.

=CHOOSE(LEFT(TEXT(B5, "000000000.00″))+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&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),” Hundred”,” Hundred and “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),2,1)+1,,,,Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")

&IF(-MID(TEXT(B5, "000000000.00″),2,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1,,,One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"),

CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1, "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Eighteen", "Nineteen"))

&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),” Million and “,” Million “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),4,1)+1,, "Üks", "Kaks", "Kolm", "Neli", "Viis", "Kuue", "Seitse", "Kaheksa", "Üheksa", "Üheksa")

&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,,,," Kakskümmend"," Kolmkümmend"," Nelikümmend"," Viiskümmend"," Kuuekümmend"," Seitsmekümmend"," Kaheksakümmend"," Üheksakümmend")

&IF(-MID(TEXT(B5, "000000000.00″),5,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1,," One"," Two"," Three"," Four"," Five"," Six"," Seven"," Eight"," Nine"),CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1," Ten"," Eleven"," Twelve"," Thirteen"," Fourteen"," Fifteen"," Sixteen"," Seventeen"," Eighteen"," Nineteen"))

&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(TEXT(B5,”000000000.00″),9,1))=0,–MID(TEXT(B5,”000000000.00″),7,1)0),” Thousand “,” Thousand and “))

&CHOOSE(MID(TEXT(B5, "000000000.00″),7,1)+1,, "Üks", "Kaks", "Kolm", "Neli", "Viis", "Kuue", "Seitse", "Kaheksa", "Üheksa", "Üheksa")

&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),” Hundred “,” Hundred and “))&

CHOOSE(MID(TEXT(B5, "000000000.00″),8,1)+1,,,, "Kakskümmend ", "Kolmkümmend ", "Nelikümmend ", "Viiskümmend ", "Kuuekümmend ", "Seitsekümmend ", "Kaheksakümmend ", "Üheksakümmend ")

&IF(-MID(TEXT(B5, "000000000.00″),8,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1,,,One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine"),CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1, "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen"))

Kogu valem võib esmapilgul tunduda keeruline, kuid sisuliselt on tegemist ühe osa kordamisega. Seega, kui te saate aru, et esimene osa valemist, peaksite ülejäänud osast aru saama.

• Seejärel vajutage SISESTA .

Selle tulemusena näete järgmist väljundit.

Valemite jaotamine:

Alguses on TEKST funktsiooni kasutatakse siin selleks, et muuta arv numbriks "000000000.00" tekstivorming.

TEXT(B7,”000000000.00″)

Pärast seda on VÄLJA funktsiooni kasutatakse selleks, et eraldada numbrist kõige vasakpoolsem märk. See võimaldab meil tuvastada, kas tagastatav number on null või mõni muu väärtus.

LEFT(TEXT(B7,”000000000.00″))

Järgnevalt VALI funktsiooni kasutatakse väljavõetud numbri esitamiseks sobivate sõnadega.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

Nüüd kontrollitakse, kas väärtus on null või mitte. Kui see on null siis ei näita see midagi.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&IF(–LEFT(TEXT(B7,”000000000.00″))=0,,

See kuvab "Sada" kui järgmine kaks numbrid on null Vastasel juhul kuvatakse "Sada ja."

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&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),” Hundred”,” Hundred and “))

See valem ei nõua VBA või massiivid. See on suurepärane meetod numbrite muutmiseks sõnadeks. Siiski on see kaks vead. Esiteks, see ei suuda kümnendarvu pärast punkte ideaalselt esitada. Teiseks, maksimaalne arvupiirang on 999, 999, 999 . tegelikult, Härra Pete M. tuli välja selle valemiga.

• Nüüd võite kirjutada valemi ülejäänud ridade jaoks või lihtsalt kasutada Exceli automaatse täitmise funktsioon .

Lõpuks saate kõik teisendatud numbrid sõnadeks .

Loe edasi: Kuidas teisendada number tekstiks 2 kümnendikuga Excelis (5 võimalust)

2. VLOOKUP-funktsiooni rakendamine numbrite teisendamiseks sõnadesse

Saate taotleda VLOOKUP funktsioonile teisendada numbrid sõnadeks Excelis. Teeme midagi muud. Siin tuleb kõigepealt sisestada kõik numbrid sõnadesse, seejärel võite selle funktsiooniga muuta neist mis tahes arvu sõnadesse.

Sammud:

• Kõigepealt kirjutage kõik numbrid sõnadega käsitsi üles. C-sammas .

• Nüüd kasutage järgmist valemit C12 rakk.

• Seejärel vajutage SISESTA .

Valemi jaotus

Selles valemis on VLOOKUP funktsioon tagastab väärtuse antud massiivist.

• Esiteks, B12 on otsinguväärtus, mida ta otsib antud tabelist.
• Teiseks, B4:C9 on tabeli massiivi milles ta otsib sihtväärtus .
• Kolmandaks, 2 on tabeli veergude arv, millest väärtus tagastatakse.
• Neljandaks, Vale tähistab täpne mängu.

Loe edasi: Kuidas teisendada number tekstiks VLOOKUP-i jaoks Excelis (2 viisi)

Sarnased lugemised

• Kuidas konverteerida number tekstiks Excelis koos apostroofiga
• Teisenda number tekstiks rohelise kolmnurga abil Excelis
• Kuidas konverteerida number tekstiks koos komadega Excelis (3 lihtsat meetodit)
• Numbrite teisendamine tekstiks ilma teadusliku märketa Excelis
• Kuidas teisendada Peso number sõnadesse Excelis (lihtsate sammudega)

3. VBA kasutamine numbri teisendamiseks sõnadesse Excelis

Kõige huvitavam osa on see, et saate ehitada oma oma funktsioon aadressile teisendada numbrid sõnadeks Excelis. Lisaks saate kasutada VBA kood arendada määratletud Allpool on esitatud sammud.

Sammud :

• Esiteks peate valima Arendaja vahekaart>> seejärel valige Visual Basic.

• Nüüd, alates Sisesta vahekaart>> peate valima Moodul .

• Sel ajal peate kirja panema järgmised andmed. Kood aastal Moodul .

 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 = 0x_väljund = "" 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_väljund = 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 Booleanx_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 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 Funktsioon 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 ".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 Thenx_string = "ja " 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 = "ja " 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 

• Nüüd peate salvestama kood .
• Seejärel peate minema Exceli tööleht .

Sel ajal saate kasutada oma määratletud Selleks tuleb järgida antud juhiseid.

Sammud:

• Nüüd valige lahter, mille teisendatud väljundit soovite kuvada (meie puhul lahter C5 ).
• Seejärel sisestage Võrdsuse märk (=) lahtrisse. See peaks võimaldama teil sisestada valemeid.
• Pärast seda sisestage " =number_converting_into_words " või valige number_converting_into_words funktsioon rippmenüüst.
• Seejärel valige lahter, kus on arvväärtus, mida soovite teisendada sõnadesse (meie puhul lahter B5 ).
• Lõpuks vajutage SISESTA nupp.

Selle tulemusena teisendab see teie valitud lahtri numbri vastavateks sõnadeks. Lõpuks saate selle valemi lihtsalt kopeerida ka ülejäänud lahtritesse.

Loe edasi: Kuidas teisendada numbriline väärtus Exceli ingliskeelseteks sõnadeks

4. VBA kasutamine valuutade sõnastamiseks Excelis

See meetod on sarnane viimasele. See toimib samuti mooduli sisestamise teel, kasutades VBA (Visual Basic for Application) ja kasutades seda funktsioonina. Viimasest meetodist erineb see selle poolest, et see teisendab numbrid sobivateks valuutasõnadeks. Lisaks on allpool toodud näide.

Nüüd järgige selle meetodi rakendamiseks järgmisi samme:

• Esiteks, järgige meetod-3 mooduli sisestamiseks.
• Teiseks, kirjutage järgmine kood Moodul 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(täisarv, x_decimal - 1)) End If xIndex = 1 Do While täisarv "" xSada = "" xVäärtus = Right(täisarv, 3) If Val(xVäärtus) 0 Then xVäärtus = Right("000" & xVäärtus, 3) If Mid(xVäärtus, 1, 1) "0" Then xSada = get_digit(Mid(xVäärtus, 1, 1)) & " Hundred " End If If Mid(xVäärtus, 2, 1) "0" Then xSada =xSada & get_ten(Mid(xValue, 2)) Else xSada = xSada & get_digit(Mid(xValue, 3)) End If End If If xSada "" Then convert_into_dollar = xSada & my_ary(xIndex) & Dollar End If If Len(kogu_arv)> 3 Then kogu_arv = Left(kogu_arv, Len(kogu_arv) - 3) Else kogu_arv = "" End IfxIndex = xIndex + 1 Loop Select Case convert_into_dollar Case "" convert_into_dollar = " null dollar" Case "One" convert_into_dollar = " üks dollar" Case Else convert_into_dollar = convert_into_dollar & "Dollars" End Select Select Case convert_into_cent Case "" convert_into_cent = " ja null senti" Case "One"convert_into_cent = " ja üks sent" Case Else convert_into_cent = " ja " & convert_into_cent & "Cents" End Select Convert_Number_into_word_with_currency = convert_into_dollar & convert_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= "Kümme" Case 11: my_output = "Üksteist" Case 12: my_output = "Kaheteist" Case 13: my_output = "Kolmteist" Case 14: my_output = "Neljateist" Case 15: my_output = "Viisteist" Case 16: my_output = "Kuusteist" Case 17: my_output = "Seitseteist" Case 18: my_output = "Kaheksateist" Case 19: my_output = "Üheksateist" Case Else End Select ElseSelect 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 EndFunktsioon 

Selle tulemusena saate kasutada oma määratletud funktsioon nimega Convert_Number_into_word_with_currency (konverteeri_number_sõnaks_valuutaga) Selleks peaksite järgima esitatud samme.

Sammud:

• Nüüd tuleb valida lahter, kus soovite tulemust hoida. Me oleme valinud lahtri C5 rakk.
• Seejärel peate kasutama vastavat valemit, mis on esitatud dokumendis C5 rakk.

• Seejärel vajutage SISESTA .

• Lõpuks kasutage Exceli AutoFill funktsioon ülejäänud rakkude puhul C6:C9 .

Lõpuks saate kogu ümberarvestatud summa.

Loe edasi: Kuidas konverteerida number tekstiks ja säilitada Excelis tagumised nullid (4 viisi)

Kuidas konverteerida number Exceli tekstivormingusse

Siiani oleme rääkinud kuidas teisendada numbreid sõnadesse Excelis. Selles artikli osas selgitatakse, kuidas muuta numbrid tekstiformaadiks See on kõige lihtsam ja kiirem meetod numbrite teisendamiseks tekstiks.

Järgige selle meetodi rakendamiseks järgmisi samme:

• Kõigepealt valige lahter või lahtrid numbriliste väärtustega, mida soovite teisendada tekstiks (meie puhul lahter C5:C9 )
• Teiseks, minge Kodu vahekaart ja valige Tekst valik lahtrikategooria rippmenüüst lahtri all Number jagu.

Selle tulemusena teisendab see teie valitud lahtrite numbrilise väärtuse tekstiks. Te saate sellest aru, kui jälgite joondusi. Vaikimisi on tekstid Excelis vasakule joondatud ja numbrid paremale joondatud.

Või võite vajutada CTRL+1 et avada aken nimega Lahtrite vormindamine ja valige Number valik ja seejärel valige Tekst kategooria sealt.

Loe edasi: Exceli VBA numbri teisendamiseks tekstiks (4 näidet)

Praktika sektsioon

Harjutuse tegemiseks oleme lisanud praktika osa igale lehe paremale osale.

Kokkuvõte

Siinkohal oleme püüdnud teha sellest artiklist ülimalt hea juhendi selle kohta, kuidas teisendada number sobivateks sõnadeks või tekstiks. MS Excel Lisaks sellele oleme kitsendanud seitse erinevaid tehnikaid selles artiklis, nii et saate valida ideaalse võimaluse, mis sobib kõige paremini teie konkreetsele olukorrale. Seega loodame, et leiate otsitud lahenduse. Palun jätke kommentaar, kui teil on ettepanekuid või küsimusi. Täname teid.