Regneark bruges af mange mennesker i deres daglige arbejde, hvilket gør dem til et vigtigt element på kontoret. Mens de fleste mennesker bruger regneark på en rimelig grundlæggende måde, finder nogle avancerede brugere det svært eller kompliceret at bruge regneark. konvertere tal til ord i Excel. I denne vejledning har vi taget fat på dette problem og givet fire forskellige metoder til at konvertere tal til ord i Excel. Desuden er der tre flere metoder til konvertering af tal til tekstformater .

Download arbejdsbog

Du kan downloade den arbejdsbog, som vi har brugt i denne artikel, nedenfor og øve dig med den selv.

4 måder at konvertere tal til ord i Excel på

Dette afsnit af artiklen forklarer, hvordan du konverterer tal til ord i Excel. Desuden vil vi demonstrere fire teknikker til at udføre operationen. Til at gennemføre sessionen vil vi bruge Microsoft 365-version .

1. Brug af kombinerede funktioner i Excel til at konvertere tal til ord

Den Excel-formel, som vi har brugt her, er baseret på fire funktioner. VENSTRE , MID , TEKST , og VÆLG funktioner.

For det første er syntaksen i VENSTRE funktion er som følger:

Grundlæggende bruges denne funktion til at udtrække tegn fra tekst.

Tekst: Den tekststreng, som tegnene skal udtrækkes fra.

num_chars [Valgfrit]: Antallet af tegn, der skal udtrækkes. Det starter fra venstre. Som standard, num_chars=1 .

For det andet er syntaksen i MID funktion er som følger:

Faktisk bruges denne funktion til at udtrække tekst fra en streng.

Tekst: Den tekst, der skal udtrækkes fra.

start_num: Placeringen af det første tegn, der skal udtrækkes.

num_chars: Antallet af tegn, der skal udtrækkes.

For det tredje er syntaksen i TEKST funktion er som følger:

Denne funktion konverterer et tal til sidst til en tekst i talformat.

værdi: Det tal, der skal konverteres.

format_text: Det talformat, der skal anvendes.

Dernæst syntaksen for VÆLG funktion er som følger:

Denne funktion henter en værdi fra en liste baseret på position.

index_num: Den værdi, der skal vælges. Et tal mellem 1 og 254 .

value1: Den første værdi, som du kan vælge mellem.

value2 [valgfri]: Den anden værdi, som du kan vælge mellem.

• Her konverterer vi tallet i Tal i ord kolonne.

• Skriv nu følgende formel ned i C5 celle.

=CHOOSE(LEFT(TEXT(B5, "000000000.00″))+1,,, "En", "To", "Tre", "Fire", "Fem", "Fem", "Seks", "Syv", "Otte", "Ni")

&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", "Three", "Four", "Four", "Five", "Six", "Seven", "Eight", "Nine"),

CHOOSE(MID(TEXT(B5, "000000000.00″),3,1)+1, "Ti", "Elleve", "Tolv", "Tretten", "Fjorten", "Femten", "Seksten", "Seksten", "Syvten", "Ottendedes", "Niogtyve"))

&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,,, "One", "Two", "Three", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&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,,,," Twenty"," Thirty"," Forty"," Fifty"," Sixty"," Seventy"," Eventy"," Eighty"," Ninety")

&IF(-MID(TEXT(B5, "000000000.00″),5,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),6,1)+1,," One"," Two"," Three"," Four"," 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,,, "One", "Two", "Three", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")

&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,,,, "Tyve ", "Tredive ", "Fyrre ", "Halvtreds ", "Halvtreds ", "Halvtreds ", "Halvfjerds ", "Halvfjerds ", "Halvtreds ", "Halvfems ")

&IF(-MID(TEXT(B5, "000000000.00″),8,1)1,CHOOSE(MID(TEXT(B5, "000000000.00″),9,1)+1,,, "One", "Two", "Three", "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")))

Hele formlen kan ved første øjekast virke kompliceret, men den er i bund og grund en gentagelse af en enkelt del. Så hvis du kan forstå den første del af formlen, så burde du kunne forstå resten.

• Derefter skal du trykke på INDTAST .

Som et resultat vil du se følgende output.

Opdeling af formler:

I første omgang TEKST funktionen bruges her til at omdanne tallet til en "000000000.00" tekstformat.

TEXT(B7,”000000000.00″)

Herefter vil den VENSTRE funktionen bruges til at udtrække det yderste venstre tegn fra tallet. Den giver os mulighed for at identificere, om det returnerede tal er nul eller enhver anden værdi.

LEFT(TEXT(B7,”000000000.00″))

Dernæst VÆLG funktionen bruges til at repræsentere det udtrukne tal med passende ord.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,,, "En", "To", "Tre", "Fire", "Fem", "Fem", "Seks", "Syv", "Otte", "Ni")

Nu kontrolleres det, om værdien er nul eller ej. Hvis det er nul så vises der intet.

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,,, "En", "To", "Tre", "Fire", "Fem", "Fem", "Seks", "Syv", "Otte", "Ni")

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

Den vil vise "Hundrede" hvis den næste to numre er nul Ellers vil den vise "Hundrede og."

CHOOSE(LEFT(TEXT(B7, "000000000.00″))+1,,, "En", "To", "Tre", "Fire", "Fem", "Fem", "Seks", "Syv", "Otte", "Ni")

&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 “))

Denne formel kræver ikke VBA eller arrays. Det er en fremragende metode til at omdanne tal til ord. Den har dog to For det første kan den ikke perfekt repræsentere decimaltal efter point. For det andet er den maksimale grænse for antal tal 999, 999, 999 . faktisk, Mr. Pete M. fandt frem til denne formel.

• Nu kan du skrive formlen for resten af rækkerne eller blot bruge Excel AutoFill funktion .

Endelig vil du få alle de konverterede tal til ord .

Læs mere: Sådan konverteres tal til tekst med 2 decimaler i Excel (5 måder)

2. Anvendelse af VLOOKUP-funktionen til at konvertere tal til ord

Du kan ansøge VLOOKUP funktion til konvertere tal til ord Her skal du først indsætte alle tallene i ord og derefter kan du bruge denne funktion til at konvertere et tal til ord ud fra dem.

Trin:

• Først skal du skrive alle tallene i ord manuelt ned i C-kolonne .

• Brug nu følgende formel i C12 celle.

• Derefter skal du trykke på INDTAST .

Opdeling af formler

I denne formel er VLOOKUP funktionen returnerer en værdi fra et givet array.

• For det første, B12 er den opslagsværdi, som den leder efter i den givne tabel.
• For det andet, B4:C9 er den tabelmatrix hvor den leder efter den målværdi .
• For det tredje, 2 er antallet af kolonner i den tabel, hvorfra der skal returneres en værdi.
• For det fjerde, Falsk betegner en nøjagtig match.

Læs mere: Sådan konverteres tal til tekst til VLOOKUP i Excel (2 måder)

Lignende læsninger

• Sådan konverteres tal til tekst i Excel med apostrof
• Konverter tal til tekst med grøn trekant i Excel
• Sådan konverteres tal til tekst med kommaer i Excel (3 nemme metoder)
• Konverter tal til tekst uden videnskabelig notation i Excel
• Sådan konverteres Peso-tal til ord i Excel (med nemme trin)

3. Brug af en VBA til at konvertere tal til ord i Excel

Det mest interessante er, at du kan bygge din egen egen funktion til konvertere tallene til ord i Excel. Desuden kan du bruge VBA-koden til at udvikle en defineret funktion. Trinene er angivet nedenfor.

Trin :

• For det første skal du vælge den Udvikler fanebladet>> vælg derefter Visual Basic.

• Nu, fra den Indsæt fanebladet>> du skal vælge Modul .

• På dette tidspunkt skal du skrive følgende ned Kode i den Modul .

 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_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_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 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 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 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 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_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 = "og " 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 = "og " End If End If 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 If 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 

• Nu skal du gemme den kode .
• Derefter skal du gå til Excel-regneark .

På dette tidspunkt kan du bruge din defineret funktion. Du skal følge de angivne trin for at opnå dette.

Trin:

• Vælg nu den celle, du vil have det konverterede output vist (i vores tilfælde er det celle C5 ).
• Derefter skal du indtaste Lighedstegn (=) i cellen. Det skulle gøre det muligt at skrive formler.
• Derefter skal du indtaste " =number_converting_into_words " eller vælg den antal_omregning_i_ord funktion fra rullemenuen.
• Vælg derefter cellen med den talværdi, som du vil konvertere til ord (i vores tilfælde celle B5 ).
• Endelig skal du trykke på INDTAST knap.

Resultatet er, at det vil konvertere det valgte cellenummer til de tilsvarende ord. Endelig kan du blot kopiere denne formel til resten af cellerne.

Læs mere: Sådan konverteres en numerisk værdi til engelske ord i Excel

4. Brug af VBA til at formulere valutaer i Excel

Denne metode ligner den sidste. Den fungerer også ved at indsætte et modul ved hjælp af VBA (Visual Basic for Application) og bruge den som en funktion. Det, der adskiller den fra den sidste metode, er, at den konverterer tallene til de relevante valutaord. Desuden er der et eksempel nedenfor.

Følg nu disse trin for at anvende denne metode:

• For det første skal du følge metode-3 for at indsætte modulet.
• For det andet skal du skrive følgende kode ned i Modul 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, 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 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 IfxIndex = xIndex + 1 Loop Select Case converted_into_dollar Case "" converted_into_dollar = " Nul dollar" Case "En" converted_into_dollar = " En dollar" Case Else converted_into_dollar = converted_into_dollar & "Dollars" End Select Select Select Case converted_into_cent Case "" converted_into_cent = " og nul cent" Case "En"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 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= "Ti" Case 11: my_output = "Elleve" Case 12: my_output = "Tolv" Case 13: my_output = "Tretten" Case 14: my_output = "Fjorten" Case 15: my_output = "Femten" Case 16: my_output = "Seksten" Case 17: my_output = "Syvten" Case 18: my_output = "Otteen" Case 19: my_output = "Nitten" 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 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 EndFunktion 

Som følge heraf kan du bruge din defineret funktion ved navn Konverter_Nummer_i_ord_med_valuta Du skal derfor følge de angivne trin.

Trin:

• Nu skal du vælge en celle, hvor du ønsker at gemme resultatet. Vi har valgt cellen C5 celle.
• Derefter skal du bruge den tilsvarende formel i C5 celle.

• Derefter skal du trykke på INDTAST .

• Endelig skal du bruge Excel AutoFill funktion for resten af cellerne C6:C9 .

Til sidst får du hele det konverterede beløb.

Læs mere: Sådan konverteres tal til tekst og beholder de efterfølgende nuller i Excel (4 måder)

Sådan konverteres tal til tekstformat i Excel

Indtil videre har vi talt om hvordan man konverterer tal til ord i Excel. I dette afsnit af artiklen forklares det, hvordan man ændre tal til tekstformat i Excel. Det er den enkleste og hurtigste metode til at konvertere tal til tekst.

Her skal du følge disse trin for at anvende denne metode:

• Først skal du vælge den eller de celler med numeriske værdier, som du vil konvertere til tekst (i vores tilfælde er det celle C5:C9 )
• For det andet skal du gå til Hjem fanen og vælg den Tekst fra rullemenuen for cellekategori under Nummer sektion.

Resultatet er, at den konverterer dine markerede cellers numeriske værdi til tekst. Du kan forstå det ved at se på justeringen. Som standard er tekster venstrejusteret og tal højrejusteret i Excel.

Eller du kan trykke på CTRL+1 for at åbne vinduet med navnet Formater celler og vælg den Nummer og vælg derefter den Tekst kategori derfra.

Læs mere: Excel VBA til konvertering af tal til tekst (4 eksempler)

Øvelsesafsnit

Vi har tilføjet en øvelsesdel på hvert ark i højre del til at øve sig i.

Konklusion

Her har vi forsøgt at gøre denne artikel til en ultimativ guide om, hvordan man konverterer tal til passende ord eller tekst i MS Excel Desuden har vi indsnævret syv forskellige teknikker i denne artikel, så du kan vælge den ideelle løsning, der passer bedst til din specifikke situation. Så vi håber, at du finder den løsning, du søgte efter. Skriv en kommentar, hvis du har forslag eller spørgsmål. Tak.