In hierdie artikel sal ek jou twee vinnige en gratis maniere wys om geldeenheidnommers in Engelse woorde in Excel 2019, 2016, 2013 en ander weergawes om te skakel.

Microsoft Excel is 'n wonderlike program om dit en dat te bereken. Dit is aanvanklik ontwikkel om groot dataskikkings te verwerk. Dit laat egter ook toe om rekeningkundige rekords soos fakture, evaluering of balansstate vinnig en effektief te skep.

In min of meer soliede betalingsdokumente is dit nodig om numeriese waardes met hul woordvorm te dupliseer. Dit is baie moeiliker om getikte nommers te vervals as dié wat met die hand geskryf is. Een of ander swendelaar kan probeer om 8000 uit 3000 te maak, terwyl dit byna onmoontlik is om "drie" in die geheim met "agt" te vervang.

Dus wat jy nodig het, is nie net getalle om te skakel na woorde in Excel nie (bv. 123.45 tot "eenhonderd-drie-en-twintig, vyf-en-veertig"), maar spel dollars en sente uit (bv. $29,95 as "negen-en-twintig dollars en nege-en-negentig sent"), ponde en pennies vir GBP, euros en eurosente vir EUR, ens.

Selfs die jongste weergawes van Excel het nie 'n ingeboude hulpmiddel om getalle te spel nie, om nie eers te praat van vroeëre weergawes nie. Maar dit is wanneer Excel regtig goed is. Jy kan altyd die funksionaliteit daarvan verbeter deur formules in al hul

kombinasies, VBA-makro's of derdeparty-byvoegings te gebruik.

Hieronder vind jy twee maniere om getalle om te skakel van syfers na woorde

En, moontlik, moet jy dalkomskep Woorde na Getalle in Excel

Let wel. As jy op soek is na die getal-na-teks-omskakeling , wat beteken dat jy wil hê dat Excel jou nommer as teks moet sien, is dit 'n bietjie anders. Hiervoor kan jy die TEKS-funksie gebruik of 'n paar ander maniere wat beskryf word in Hoe om getalle na teks in Excel te verander.

SpellNumber VBA-makro om getalle na woorde om te skakel

Soos ek reeds genoem het , Microsoft wou nie 'n hulpmiddel vir hierdie taak byvoeg nie. Toe hulle egter sien hoeveel gebruikers dit nodig het, het hulle die spesiale VBA-makro op hul webwerf geskep en gepubliseer. Die makro doen wat sy naam SpellNumber suggereer. Alle ander makro's wat ek teëgekom het, is gebaseer op die Microsoft-kode.

Jy kan die makro vind wat genoem word as "spelnommerformule". Dit is egter nie 'n formule nie, maar 'n makrofunksie, of om meer presies te wees Excel Gebruikergedefinieerde funksie (UDF).

Die spelnommer opsie is in staat om dollars en sente te skryf. As jy 'n ander geldeenheid nodig het, kan jy " dollar " en " sent " met die naam van jou een verander.

As jy nie 'n VBA-vaardige ou is nie. , hieronder sal jy 'n kopie van die kode vind. As jy steeds nie wil of nie tyd het om dit uit te sorteer nie, gebruik asseblief hierdie oplossing.

1. Maak die werkboek oop waar jy die syfers moet spel.
2. Druk Alt +F11 om die Visual Basic-redigeerdervenster oop te maak.
3. As jy verskeie boeke oopgemaak het, maak seker dat die benodigde werkboek aktief is metdie lys van projekte in die boonste linkerhoek van die redigeerder (een van die werkboekelemente is met blou uitgelig).
4. Gaan in die redigeerderkieslys na Voeg in -> Module .
5. Jy behoort 'n venster met die naam JouBoek - Module1 te sien. Kies al die kode in die raam hieronder en plak dit in hierdie venster.

   Opsie Eksplisiet 'Hooffunksie Funksie SpelNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Duisend " Plek(3) = " Miljoen " Place(4) = " Billion " Place(5) = " Triljoen " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DesimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber, DesimalPlace - 1)) End If Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) As Temp "" Dan Dollars = Temp & Plek (Tel) & Dollars As Len(MyNumber) > 3 Dan MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" Einde As Telling = Tel + 1 lus Kies Case Dollars Case "" Dollars = "Geen Dollars" Case "One" Dollars = "Een Dollar" Case Else Dollars = Dollars & amp; " Dollars" Einde Kies Kies Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " en " & Sente & amp; " Sente " End Select SpellNumber = Dollars & Sente Eindfunksie Funksie GetHundreds(ByVal MyNumber) Dim Resultaat As String As Val(MyNumber) = 0 Verlaat funksie MyNumber = Right( "000" & MyNumber, 3) ' Skakel die honderde plek om. As Mid(MyNumber, 1, 1) "0" Dan Result = GetDigit(Mid(MyNumber, 1, 1)) & "Honderd" End If ' Skakel die tiene en ene-plek om. As Mid(MyNumber, 2, 1) "0" Dan Resultaat = Resultaat & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Resultaat Einde Funksie GetTens(TensText) Dim Result As String Result = "" ' Haal die tydelike funksiewaarde uit. If Val(Left(TensText, 1)) = 1 Then ' As waarde tussen 10-19... Kies Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twaalf" " Geval 13: Resultaat = "Dertien" Geval 14: Resultaat = "Veertien" Geval 15: Resultaat = "Vyftien" Geval 16: Resultaat = "Sestien" Geval 17: Resultaat = "Sewentien" Geval 18: Resultaat = "Agttien" Geval 19: Resultaat = "Negentien" Case Else End Kies Else ' As waarde tussen 20-99... Kies Case Val (Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Resultaat = "Veertig" Saak 5: Resultaat = "Vyftig " Saak 6: Resultaat = "Sestig " Saak 7: Resultaat = "Sewentig " Saak 8: Resultaat = "Tagtig " Saak 9: Resultaat = "Negentig " Saak Anders Einde Kies resultaat = Resultaat & GetDigit _ (Right(TensText, 1)) ' Haal die plek op. Einde As GetTens = Resultaat Einde Funksie Funksie GetDigit(Digit) Kies CaseVal(Digit) Geval 1: GetDigit = "Een" Geval 2: GetDigit = "Twee" Geval 3: GetDigit = "Drie" Geval 4: GetDigit = "Vier" Geval 5: GetDigit = "Vyf" Geval 6: GetDigit = " Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else : GetDigit = "" Eindig Kies Eindfunksie

6. Druk Ctrl+S om die opgedateerde werkboek te stoor.

   Jy sal jou werkboek moet stoor. Wanneer jy probeer om die werkboek met 'n makro te stoor, sal jy die boodskap kry " Die volgende kenmerke kan nie in makrovrye werkboek gestoor word nie "

   

   Klik Nee. Wanneer jy sien 'n nuwe dialoog, kies die Stoor as opsie. In die veld " Stoor as tipe " kies die opsie " Excel-makro-geaktiveerde werkboek ".

   

Gebruik Spelnommer-makro in jou werkblaaie

Nou kan jy die funksie Spellnommer in jou Excel-dokumente gebruik. Tik =SpellNumber(A2) in die sel waar jy die nommer in woorde moet skryf. Hier is A2 die adres van die sel met die nommer of bedrag.

Hier kan jy die resultaat sien:

Voila!

Kopieer die SpelNumber-funksie vinnig na ander selle.

As jy moet die hele tabel omskep, nie net 1 sel nie, plaas jou muiswyser na die onderste regterhoek van die sel met die formule totdat dit in 'n klein swart kruisie verander:

Links-kliek en sleep dit oor die kolom om die formule in te vul. Laat die knoppie los om die resultate te sien:

Let wel. Assebliefhou in gedagte dat as jy SpelNumber met 'n skakel na 'n ander sel gebruik, die geskrewe som opgedateer sal word elke keer as die nommer in die bronsel verander word.

Jy kan die nommer ook direk in die funksie invoer, t.o.v. byvoorbeeld =SpellNumber(29.95) (29.95 - sonder aanhalingstekens en die dollarteken).

Nadele van die gebruik van makro om getalle in Excel te spel

Eerstens moet jy VBA ken om die kode te wysig volgens jou behoeftes. Dit is nodig om die kode vir elke werkboek te plak, waar jy beplan om dit te verander. Andersins sal jy 'n sjabloonlêer met makro's moet skep en Excel moet instel om hierdie lêer by elke aanvang te laai.

Die grootste nadeel van die gebruik van 'n makro is as jy die werkboek na iemand anders stuur, sal hierdie persoon nie sien die teks tensy die makro in die werkboek ingebou is. En selfs al is dit ingebou, sal hulle 'n waarskuwing kry dat daar makro's in die werkboek is.

Spel getalle in woorde deur 'n spesiale byvoeging te gebruik

Vir Excel-gebruikers wat vinnig somme moet spel, maar nie tyd het om VBA te leer of oplossings uit te vind nie, het ons 'n spesiale hulpmiddel geskep wat vinnig die bedrag-tot-woord-omskakeling vir 'n paar gewilde geldeenhede kan uitvoer. Ontmoet asseblief die Spellnommer-byvoeging wat by die jongste weergawe van ons Ultimate Suite for Excel ingesluit is.

Behalwe dat dit gereed is vir gebruik, is die instrument baie buigsaam in die omskakeling van hoeveelhede na teks:

• Jy kan een van dievolgende geldeenhede: USD, EUR, GBP, BIT, AUD.
• Spel die breukdeel in sente, pennies of bitsents.
• Kies enige tekskas vir die resultaat: kleinletters, HOOFLETTERS , Titel-hoofletter of sinkas.
• Spel die desimale deel op verskillende maniere.
• Sluit nul sent in of laat weg.

Die byvoeging ondersteun alle moderne weergawes insluitend Excel 365, Excel 2029, Excel 2016, Excel 2013 en Excel 2010. Voel asseblief vry om ander vermoëns te verken op die produk se tuisblad wat hierbo geskakel is.

En nou, kom ons sien hierdie nommerspelprogram in aksie :

1. Kies 'n leë sel vir die resultaat.
2. Op die Ablebits -oortjie, in die Utilities -groep, klik Spelnommer .
3. In die dialoogvenster Gemorsnommer wat verskyn, stel die volgende dinge op:
   • Vir die boks Kies jou nommer , kies die sel wat die hoeveelheid bevat wat jy as teks geskryf wil kry.
   • Spesifiseer die gewenste huidige , letterkas en die manier waarop die desimale deel van die nommer moet gespel word.
   • Definieer of nul sent ingesluit moet word of nie.
   • Kies of die resultaat as 'n waarde of formule ingevoeg moet word.
4. Onderaan die dialoogvenster, voorskou die resultaat. As jy tevrede is met die manier waarop jou nommer geskryf is, klik Spell . Andersins, probeer verskillende instellings.

Die skermkiekie hieronder demonstreer die verstekkeuses en die gespelde nommer in B2. Let asseblief op 'n formule (meer presies, 'n gebruikergedefinieerde funksie) in die formulebalk:

En dit is 'n vinnige demonstrasie van hoe ander geldeenhede uitgespel kan word:

Wenke en notas:

• Omdat die Spell Number -byvoeging ontwerp is om werklike gebruiksgevalle soos fakture en ander finansiële dokumente te hanteer, kan dit net een nommer <6 omskakel>op 'n slag.
• Om 'n kolom van getalle te spel, voeg 'n formule in die eerste sel in en kopieer dan die formule af.
• As daar kans is dat jou brondata kan in die toekoms verander, dit is die beste om die resultaat as formule in te voeg , sodat dit outomaties bywerk soos die oorspronklike getal verander.
• Wanneer jy die resultaat as formule opsie, 'n pasgemaakte gebruikergedefinieerde funksie (UDF) word ingevoeg. As jy van plan is om jou werkboek te deel met iemand wat nie die Ultimate Suite geïnstalleer het nie, onthou om formules met waardes te vervang voordat jy deel.

Omgekeerde omskakeling - Engelse woorde in getalle

Eerlik gesê , Ek kan my nie indink hoekom jy dit dalk nodig het nie. Net vir ingeval... :)

Dit blyk dat Excel MVP, Jerry Latham, 'n Excel-gebruikergedefinieerde funksie (UDF) soos WordsToDigits geskep het. Dit skakel Engelse woorde terug na nommer.

Jy kan Jerry's WordsToDigits-werkboek aflaai om die UDF-kode te sien. Hier sal jy ook sy voorbeelde vind van hoe om diefunksie.

Jy kan sien hoe die funksie werk op die blad " Voorbeeldinskrywings ", waar jy ook jou eie voorbeelde sal kan invoer. As jy van plan is om WordsToDigits in jou dokumente te gebruik, word asseblief ingelig dat hierdie funksie beperkings het. Dit herken byvoorbeeld nie breuke wat in woorde ingevoer is nie. Jy sal al die besonderhede op die " Inligting "-blad kry.