Hoe getal omzetten naar woorden in Excel (4 geschikte manieren)

  • Deel Dit
Hugh West

Spreadsheets worden door veel mensen gebruikt in hun dagelijkse werk, waardoor ze een belangrijk onderdeel vormen van hun kantoor. Hoewel de meeste mensen spreadsheets op een redelijk eenvoudige manier gebruiken, vinden sommige gevorderde gebruikers het moeilijk of ingewikkeld om getal omzetten in woorden in Excel. In deze gids hebben we dit probleem aangepakt en voorzien van vier verschillende methoden om getal omzetten in woorden in Excel. Verder zijn er drie meer methoden voor getallen omzetten in tekstformaten .

Werkboek downloaden

Je kunt het werkboek dat we in dit artikel hebben gebruikt hieronder downloaden en er zelf mee oefenen.

Getallen omzetten in woorden.xlsm

4 manieren om in Excel getallen naar woorden om te zetten

In dit deel van het artikel wordt uitgelegd hoe u in Excel getallen kunt omzetten in woorden. Bovendien gaan we demonstreren vier technieken om de operatie uit te voeren. Voor het uitvoeren van de sessie gebruiken we Microsoft 365 versie .

1. Gebruik van gecombineerde functies in Excel om getallen om te zetten in woorden

De Excel-formule die we hier hebben gebruikt, is gebaseerd op vier functies. LINKS , MID , TEKST , en KIES functies.

Ten eerste, de syntaxis van de LINKS functie is als volgt:

In principe wordt deze functie gebruikt om tekens uit tekst te extraheren.

=LEFT (tekst, [num_chars])

Tekst: De tekststring om de tekens uit te halen.

num_chars [Optioneel]: Het aantal te extraheren karakters. Het begint vanaf links. Standaard, num_chars=1 .

Ten tweede is de syntaxis van de MID functie is als volgt:

Eigenlijk wordt deze functie gebruikt om tekst uit een string te halen.

=MID (tekst, start_num, num_chars)

Tekst: De tekst om uit te pakken.

start_num: De plaats van het eerste teken dat moet worden uitgepakt.

num_chars: Het aantal te extraheren karakters.

Ten derde is de syntaxis van de TEKST functie is als volgt:

Uiteindelijk zet deze functie een getal om in een tekst in getalformaat.

=TEXT (value, format_text)

waarde: Het getal om te converteren.

format_text: Het te gebruiken getalformaat.

Vervolgens wordt de syntaxis van de KIES functie is als volgt:

Deze functie haalt een waarde uit een lijst op basis van de positie.

=CHOOSE (index_num, waarde1, [waarde2], ...)

index_num: De te kiezen waarde. Een getal tussen 1 en 254 .

waarde1: De eerste waarde waaruit kan worden gekozen.

value2 [optioneel]: De tweede waarde waaruit kan worden gekozen.

  • Hier zullen we het getal in de Getallen in woorden column.

  • Schrijf nu de volgende formule op in de C5 cel.

=CHOOSE(LEFT(TEXT(B5,"000000000.00″))+1,,,"Eén","Twee","Drie","Vier","Vijf","Zes","Zeven","Acht","Negen")

&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,,,,"Twintig","Dertig","Veertig","Vijftig","Zestig","Zeventig","Tachtig","Negentig")

&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,"Tien","Elf","Twaalf","Dertien","Veertien","Vijftien","Zestien","Zeventien","Achttien","Negentien"))

&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","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,,,," Twintig"," Dertig"," Veertig"," Vijftig"," Zestig"," Zeventig"," Tachtig"," Negentig")

&IF(-MID(TEXT(B5,"000000000.00"),5,1)1,CHOOSE(MID(TEXT(B5,"000000000.00"),6,1)+1," Eén"," Twee"," Drie"," Vier"," Vijf"," Zes"," Zeven"," Acht"," Negen"),CHOOSE(MID(TEXT(B5,"000000000.00"),6,1)+1," Tien"," Elf"," Twaalf"," Dertien"," Veertien"," Vijftien"," Zestien"," Zeventien"," Achttien"," Negentien"))

&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","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,,,"Twintig","Dertig","Veertig","Vijftig","Zestig","Zeventig","Tachtig","Negentig")

&IF(-MID(TEXT(B5,"000000000.00"),8,1)1,CHOOSE(MID(TEXT(B5,"000000000.00"),9,1)+1,"Eén","Twee","Drie","Vier","Vijf","Zes","Zeven","Acht","Negen"),CHOOSE(MID(TEXT(B5,"000000000.00"),9,1)+1,"Tien","Elf","Twaalf","Dertien","Veertien","Vijftien","Zestien","Zeventien","Achttien","Negentien"))

De hele formule kan op het eerste gezicht ingewikkeld lijken, maar is in wezen een herhaling van een enkel deel. Dus als u de eerste deel van de formule, zou je de rest moeten kunnen begrijpen.

  • Druk vervolgens op ENTER .

Het resultaat is de volgende uitvoer.

Formule Breakdown:

In het begin, de TEKST functie wordt hier gebruikt om het getal om te zetten in een "000000000.00" tekstformaat.

TEXT(B7,”000000000.00″)

Daarna wordt de LINKS functie wordt gebruikt om het meest linkse karakter uit het getal te halen. Hiermee kunnen we vaststellen of het retournummer nul of een andere waarde.

LEFT(TEXT(B7,”000000000.00″))

Vervolgens wordt de KIES functie wordt gebruikt om het geëxtraheerde getal met passende woorden weer te geven.

CHOOSE(LEFT(TEXT(B7,"000000000.00"))+1,,"Eén","Twee","Drie","Vier","Vijf","Zes","Zeven","Acht","Negen")

Nu wordt gecontroleerd of de waarde nul of niet. Als het nul dan wordt er niets weergegeven.

CHOOSE(LEFT(TEXT(B7,"000000000.00"))+1,,"Eén","Twee","Drie","Vier","Vijf","Zes","Zeven","Acht","Negen")

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

Het toont "Honderd" als de volgende twee nummers zijn nul Anders verschijnt er "Honderd en."

CHOOSE(LEFT(TEXT(B7,"000000000.00"))+1,,"Eén","Twee","Drie","Vier","Vijf","Zes","Zeven","Acht","Negen")

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

Deze formule vereist geen VBA of arrays. Het is een uitstekende methode om getallen in woorden om te zetten. Echter, het heeft twee onvolkomenheden. Een, het kan niet perfect decimale getallen weergeven na punten. Twee, de maximale nummerlimiet is... 999, 999, 999 Eigenlijk.., Mr. Pete M. kwam met deze formule.

  • Nu kunt u de formule schrijven voor de rest van de rijen of gewoon gebruik maken van Excel AutoFill functie .

Tenslotte krijgt u alle getallen in woorden omgezet .

Lees meer: Hoe getal om te zetten naar tekst met 2 decimalen in Excel (5 manieren)

2. De VLOOKUP-functie toepassen om getallen in woorden om te zetten

U kunt de VLOOKUP functie naar getallen omzetten in woorden Laten we iets anders doen. Hier moet je eerst alle getallen in woorden omzetten, daarna kun je deze functie gebruiken om elk getal in woorden om te zetten.

Stappen:

  • Schrijf eerst alle getallen in woorden handmatig op in het C-colonne .

  • Gebruik nu de volgende formule in de C12 cel.
=VLOOKUP(B12,B4:C9,2,FALSE)

  • Druk vervolgens op ENTER .

Formuleverdeling

In deze formule is de VLOOKUP functie geeft een waarde terug uit een gegeven array.

  • Ten eerste, B12 is de opzoekwaarde die het zoekt in de gegeven tabel.
  • Ten tweede, B4:C9 is de tabelreeks waarin het zoekt naar de streefwaarde .
  • Ten derde, 2 is het aantal kolommen in de tabel waarvan een waarde moet worden teruggegeven.
  • Ten vierde, Valse geeft een exact wedstrijd.

Lees meer: Hoe getal naar tekst converteren voor VLOOKUP in Excel (2 manieren)

Vergelijkbare lezingen

  • Hoe getal naar tekst converteren in Excel met apostrof
  • Getal omzetten naar tekst met groene driehoek in Excel
  • Hoe getal naar tekst converteren met komma's in Excel (3 eenvoudige methodes)
  • Getal naar tekst converteren zonder wetenschappelijke notatie in Excel
  • Hoe Peso getal omzetten naar woorden in Excel (met gemakkelijke stappen)

3. Een VBA gebruiken om getallen om te zetten in woorden in Excel

Het meest interessante is dat u uw eigen eigen functie naar de getallen omzetten in woorden in Excel. Bovendien kunt u de VBA-code om een gedefinieerd functie. De stappen staan hieronder.

Stappen :

  • Ten eerste moet u de Ontwikkelaar tab>> selecteer dan Visual Basic.

  • Nu, van de Plaats tab>> je moet selecteren Module .

  • Op dit moment moet u het volgende opschrijven Code in de Module .
 Functie 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_output = "" x_T = "" x_my_len = 0 x_my_len = Int(Len(Str(x_numb)) / 3) Als (Len(Str(x_numb)) Mod 3) = 0 Dan x_my_len = x_my_len - 1 Do While x_numb "" Als x_my_len = x_cnt Dan x_T = get_hundred_digit(Right(x_numb, 3), False) Else Als x_cnt = 0 Dan 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 x_T "" Dan x_output = x_T& x_P(x_cnt) & x_output End 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 Mid(x_string_Num, 2, 2)"00" Dan 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 Functie 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("Tien ", "Elf ", "Twaalf ", "Dertien ", "Veertien ", "Vijftien ", "Zestien ", "Zeventien ","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 = "en " x_string = x_string & x_array_2(Val(Left(x_TDgt, 1))) x_T = False End If x_string = "" Then If y_b Then x_string = "en " End If If Right(x_TDgt, 1) "0" Then x_string = x_string & get_digit(Right(x_TDgt, 1)) End If get_ten_digit = x_string End Function Functie get_digit(xDgt) Dim x_string As String Dim x_array_1() As Variant x_array_1 = Array("Zero ","Een", "Twee", "Drie", "Vier", "Vijf", "Zes", "Zeven", "Acht", "Negen") x_string = "" On Error Resume Next x_string = x_array_1(Val(xDgt)) get_digit = x_string End Function 

  • Nu moet je de code .
  • Dan moet je naar de Excel-werkblad .

Op dit moment kunt u uw gedefinieerd functie. Hiervoor moet u de gegeven stappen volgen.

Stappen:

  • Selecteer nu de cel die u de geconverteerde uitvoer wilt tonen. (In ons geval, cel C5 ).
  • Voer vervolgens de Gelijkteken (=) in de cel. U zou formules moeten kunnen typen.
  • Daarna typt u " =nummer_omzetten_in_woorden " of selecteer de aantal_omzetten_in_woorden functie uit het keuzemenu.
  • Selecteer vervolgens de cel met de getalswaarde die u in woorden wilt omzetten (In ons geval, cel B5 ).
  • Druk tenslotte op de ENTER knop.

Het resultaat is dat uw geselecteerde celnummer wordt omgezet in de bijbehorende woorden. Tenslotte kunt u deze formule ook gewoon kopiëren naar de rest van de cellen.

Lees meer: Een numerieke waarde omzetten in Engelse woorden in Excel

4. VBA gebruiken voor de opmaak van valuta in Excel

Deze methode is vergelijkbaar met de vorige. Het werkt ook door een module in te voegen met behulp van VBA (Visual Basic for Application) en het gebruiken als een functie. Waar het verschilt van de laatste methode is dat het zet de getallen om in passende valutawoorden. Voorts wordt hieronder een voorbeeld gegeven.

375.65=Three Hundred Seventy Five Dollars and Sixty Five Cents

Volg nu deze stappen om deze methode toe te passen:

  • Ten eerste, volg methode-3 om de module te plaatsen.
  • Ten tweede, schrijf de volgende code op in Module 2 .
 Functie 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 xHundred "" Then converted_into_dollar = xHundred & my_ary(xIndex) & Dollar End 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 = " Zero Dollar" Case "One" converted_into_dollar = " One Dollar" Case Else converted_into_dollar = converted_into_dollar & "Dollars" End Select Case converted_into_cent Case "" converted_into_cent = " en Zero Cent" Case "One".converted_into_cent = " en één cent" Case Else converted_into_cent = " en " & 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= "Tien" Case 11: my_output = "Elf" Case 12: my_output = "Twaalf" Case 13: my_output = "Dertien" Case 14: my_output = "Veertien" Case 15: my_output = "Vijftien" Case 16: my_output = "Zestien" Case 17: my_output = "Zeventien" Case 18: my_output = "Achttien" Case 19: my_output = "Negentien" 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 Einde Functie Functie 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 EndFunctie 

Daardoor kunt u uw gedefinieerd functie genaamd Converteer_getal_in_woord_met_valuta Hiervoor moet je de gegeven stappen volgen.

Stappen:

  • Nu moet u een cel selecteren, waar u het resultaat wilt bewaren. Wij hebben geselecteerd de C5 cel.
  • Dan moet u de overeenkomstige formule in de C5 cel.
=Omzetten_getal_in_woord_met_valuta(B5)

  • Druk vervolgens op ENTER .

  • Gebruik tot slot de Excel AutoFill-functie voor de rest van de cellen C6:C9 .

Tenslotte krijgt u het gehele omgezette bedrag.

Lees meer: Hoe getal naar tekst converteren en de achterliggende nullen behouden in Excel (4 manieren)

Hoe getal naar tekstformaat converteren in Excel

Tot nu toe hebben we gesproken over hoe zet je getallen om in woorden in Excel. In dit deel van het artikel wordt uitgelegd hoe u nummers wijzigen in tekstformaat Het is de eenvoudigste en snelste methode om getallen in tekst om te zetten.

Volg deze stappen om deze methode toe te passen:

  • Selecteer eerst de cel of cellen met numerieke waarden die u in tekst wilt omzetten (in ons geval cel C5:C9 )
  • Ten tweede, ga naar de Home tabblad en selecteer de Tekst optie uit het uitrolmenu van de celcategorie onder de Nummer sectie.

Het resultaat is dat de numerieke waarde van uw geselecteerde cellen wordt omgezet in tekst. U kunt dit begrijpen door te kijken naar de uitlijning. Standaard worden teksten links uitgelijnd en getallen rechts uitgelijnd in Excel.

Of u kunt op CTRL+1 om het venster met de naam Cellen opmaken en selecteer de Nummer optie en selecteer dan de Tekst categorie van daar.

Lees meer: Excel VBA omzetten van getal naar tekst (4 voorbeelden)

Praktijk Sectie

Om te oefenen hebben we op elk blad aan de rechterkant een oefengedeelte toegevoegd.

Conclusie

Hier hebben we geprobeerd om dit artikel een ultieme gids te maken over hoe je getal kunt omzetten naar de juiste woorden of tekst in MS Excel Bovendien hebben we het aantal zeven verschillende technieken in dit artikel, zodat u de ideale optie kunt kiezen die het meest geschikt is voor uw specifieke situatie. Dus, we hopen dat u de oplossing vindt die u zocht. Laat een reactie achter als u suggesties of vragen heeft. Dank u.

Hugh West is een zeer ervaren Excel-trainer en -analist met meer dan 10 jaar ervaring in de branche. Hij heeft een bachelor in Accounting en Finance en een master in Business Administration. Hugh heeft een passie voor lesgeven en heeft een unieke lesaanpak ontwikkeld die gemakkelijk te volgen en te begrijpen is. Zijn deskundige kennis van Excel heeft duizenden studenten en professionals over de hele wereld geholpen hun vaardigheden te verbeteren en uit te blinken in hun carrière. Via zijn blog deelt Hugh zijn kennis met de wereld en biedt hij gratis Excel-tutorials en online trainingen aan om individuen en bedrijven te helpen hun volledige potentieel te bereiken.