Në këtë artikull do t'ju tregoj dy mënyra të shpejta dhe falas për të kthyer numrat e monedhës në fjalë angleze në Excel 2019, 2016, 2013 dhe versione të tjera.

Microsoft Excel është një mjet i shkëlqyeshëm program për të llogaritur këtë dhe atë. Fillimisht u zhvillua për të përpunuar grupe të mëdha të dhënash. Megjithatë, ai gjithashtu lejon krijimin e regjistrave kontabël si faturat, vlerësimin ose bilancet shpejt dhe në mënyrë efektive.

Në dokumentet pak a shumë solide të pagesave është e nevojshme të dyfishohen vlerat numerike me formën e tyre të fjalës. Është shumë më e vështirë të falsifikosh numrat e shtypur sesa ato të shkruara me dorë. Një mashtrues mund të përpiqet të bëjë 8000 nga 3000, ndërkohë që është pothuajse e pamundur të zëvendësohet fshehurazi "tre" me "tetë".

Pra, ajo që ju nevojitet nuk është thjesht të konvertoni numrat në fjalë në Excel (p.sh. 123.45 në "njëqind e njëzet e tre, dyzet e pesë"), por shënoni dollarë dhe cent (p.sh. 29,95 dollarë si "njëzet e nëntë dollarë dhe nëntëdhjetë e nëntë cent" ), paund dhe pena për GBP, euro dhe eurocent për euro, etj.

Edhe versionet më të fundit të Excel nuk kanë një mjet të integruar për drejtshkrimin e numrave, për të mos përmendur versionet e mëparshme. Por kjo është kur Excel është vërtet i mirë. Mund ta përmirësosh gjithmonë funksionalitetin e tij duke përdorur formulat në të gjitha

kombinimet e tyre, makro VBA ose shtesat e palëve të treta.

Më poshtë do të gjeni dy mënyra për të kthyer numrat nga shifra me fjalë

Dhe, ndoshta, mund t'ju duhet tëkonvertoni fjalët në numra në Excel

Shënim. Nëse jeni duke kërkuar për konvertimin e numrit në tekst , që do të thotë që dëshironi që Excel ta shohë numrin tuaj si tekst, është pak më ndryshe. Për këtë, mund të përdorni funksionin TEXT ose disa mënyra të tjera të përshkruara në Si të ndryshoni numrat në tekst në Excel.

Makro SpellNumber VBA për të kthyer numrat në fjalë

Siç e kam përmendur tashmë , Microsoft nuk donte të shtonte një mjet për këtë detyrë. Megjithatë, kur panë se sa përdorues kishin nevojë për të, ata krijuan dhe publikuan makro speciale VBA në faqen e tyre të internetit. Makro bën atë që sugjeron emri i tij SpellNumber. Të gjitha makrot e tjera që kam hasur bazohen në kodin e Microsoft.

Mund ta gjeni makronë e përmendur si "formula e numrave të magjisë". Megjithatë, nuk është një formulë, por një funksion makro, ose për të qenë më të saktë Funksioni i përcaktuar nga përdoruesi i Excel (UDF).

Opsioni spellnumber mund të shkruajë dollarë dhe cent. Nëse keni nevojë për një monedhë tjetër, mund të ndryshoni " dollar " dhe " cent " me emrin e monedhës suaj.

Nëse nuk jeni një djalë i zgjuar në VBA , më poshtë do të gjeni një kopje të kodit. Nëse ende nuk dëshironi ose nuk keni kohë për ta zgjidhur këtë, ju lutemi përdorni këtë zgjidhje.

1. Hapni librin e punës ku duhet të shkruani numrat.
2. Shtypni Alt +F11 për të hapur dritaren e redaktuesit të Visual Basic.
3. Nëse keni disa libra të hapur, kontrolloni që libri i nevojshëm i punës është aktiv duke përdorurlista e projekteve në këndin e sipërm të majtë të redaktorit (një nga elementët e librit të punës është theksuar me blu).
4. Në menynë e redaktorit shkoni te Fut -> Moduli .
5. Duhet të shihni një dritare të quajtur YourBook - Module1. Zgjidhni të gjithë kodin në kornizën më poshtë dhe ngjiteni në këtë dritare.

   Opsioni eksplicit 'Funksioni kryesor i Funksionit SpellNumber( ByVal MyNumber) Dollarë të zbehtë, Cent, Temp Dim Vend Dhjetor, Numëroni Vendin ReDim (9) Si Vend vargu (2) = " Mijë " Vend (3) = " Milion " Place(4) = " Miliard " Place(5) = " Trilion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) Nëse Vendi Dhjetor > 0 Pastaj Cent = GetTens(Majtas(Mid(Numri im, Vendi Dhjetor + 1) & _ "00" , 2)) MyNumber = Prit(Majtas(MyNumber, Vendi Dhjetor - 1)) Fundi Nëse Numërimi = 1 Bëje ndërsa Numri im "" Temp = GetHundreds(Right(MyNumber, 3)) Nëse Temp "" Atëherë Dollarë = Temp & Vendi(Numri) & Dollarë nëse Len(Numri im) > 3 Pastaj MyNumber = Left(MyNumber, Len(MyNumber) - 3) Tjetër MyNumber = "" Fund If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "Pa Dollars" Rasti "One" Dollars = "One Dollar" Rasti tjetër Dollarë = Dollarë & " Dollarë" Fund Zgjidh Zgjidh Rastin Cent Rasti "" Cent = " dhe Pa Cent" Rasti "Një" Cent = " dhe Një Cent" Rasti Tjetër Cent = " dhe " & Cent & " Cent" Fund Zgjidh SpellNumber = Dollarë & Cents Fund Funksioni Funksioni GetHundreds(ByVal MyNumber) Rezultati i zbehtë si varg Nëse Val(MyNumber) = 0 Pastaj dilni nga funksioni MyNumber = Djathtas( "000" & amp; MyNumber, 3) ' Konvertoni vendin e qindrave. Nëse Mid(MyNumber, 1, 1) "0" Atëherë Rezultati = GetDigit(Mid(MyNumber, 1, 1)) & "Njëqind" Fundi nëse 'Konverto vendin e dhjetësheve dhe njësheve. Nëse Mid(Numri im, 2, 1) "0" Atëherë Rezultati = Rezultati & GetTens(Mid(MyNumber, 2)) Rezultati tjetër = Rezultati & GetDigit(Mid(MyNumber, 3)) Fundi If GetHundreds = Rezultati Funksioni Fund Funksioni GetTens(TensText) Zbehja e rezultatit si rezultat i vargut = "" ' Zhduk vlerën e përkohshme të funksionit. Nëse Val(Left(TensText, 1)) = 1 Pastaj ' Nëse vlera midis 10-19… Zgjidhni Rastin Val(TensText) Rasti 10: Rezultati = "Dhjetë" Rasti 11: Rezultati = "Eleven" Rasti 12: Rezultati = "Twelve " Rasti 13: Rezultati = "Trembëdhjetë" Rasti 14: Rezultati = "Katërmbëdhjetë" Rasti 15: Rezultati = "Pesëmbëdhjetë" Rasti 16: Rezultati = "Gjashtëmbëdhjetë" Rasti 17: Rezultati = "Shtatëmbëdhjetë" Rasti 18: Rezultati = "Tetëmbëdhjetë" Rasti 19: Rezultati = "Nëntëmbëdhjetë" Rasti tjetër Fund Zgjidh tjetër ' Nëse vlera midis 20-99… Zgjidh Rastin Val(Left(TensText, 1)) Rasti 2: Rezultati = "Twenty" Rasti 3: Rezultati = "Thirdhjetë" Rasti 4: Rezultati = "Dyzet " Rasti 5: Rezultati = "Fifty" Rasti 6: Rezultati = "Gjashtëdhjetë" Rasti 7: Rezultati = "Shtatëdhjetë" Rasti 8: Rezultati = "Tetëdhjetë" Rasti 9: Rezultati = "Nëntëdhjetë" Rasti tjetër Fund Zgjidh rezultatin = Rezultati & GetDigit _ (Djathtas(TensText, 1)) ' Merr vendin e tyre. Fundi Nëse GetTens = Rezultati Funksioni Fund Funksioni GetDigit(Digit) Zgjidhni rastinVal(shifror) Rasti 1: GetDigit = "Një" Rasti 2: GetDigit = "Dy" Rasti 3: GetDigit = "Tre" Rasti 4: GetDigit = "Katër" Rasti 5: GetDigit = "Pesë" Rasti 6: GetDigit = " Rasti i gjashtë" 7: GetDigit = "Shtatë" Rasti 8: GetDigit = "Tetë" Rasti 9: GetDigit = "Nëntë" Rasti tjetër : GetDigit = "" Fundi Zgjidh Funksionin e Fundit

6. Shtypni Ctrl+S për të ruajtur librin e përditësuar të punës.

   Do t'ju duhet të ruani përsëri librin tuaj të punës. Kur përpiqeni të ruani librin e punës me një makro, do të merrni mesazhin " Veçoritë e mëposhtme nuk mund të ruhen në librin e punës pa makro "

   

   Klikoni nr. Kur të shihni një dialog të ri, zgjidhni opsionin Ruaj si. Në fushën " Ruaj si lloj " zgjidhni opsionin " Libri i punës i aktivizuar me makro Excel ".

   

Përdor makro SpellNumber në fletët tuaja të punës

Tani mund të përdorni funksionin SpellNumber në dokumentet tuaja Excel. Fusni =SpellNumber(A2) në qelizën ku duhet të merrni numrin e shkruar me fjalë. Këtu A2 është adresa e qelizës me numrin ose shumën.

Këtu mund të shihni rezultatin:

Voila!

Kopjojeni shpejt funksionin SpellNumber në qelizat e tjera.

Nëse ju duhet të konvertoni të gjithë tabelën, jo vetëm 1 qelizë, vendosni kursorin e miut në këndin e poshtëm djathtas të qelizës me formulën derisa të kthehet në një kryq të vogël të zi:

Klikoni me të majtën dhe tërhiqeni nëpër kolona për të plotësuar formulën. Lëshojeni butonin për të parë rezultatet:

Shënim. Ju lutemmbani në mend se nëse përdorni SpellNumber me një lidhje në një qelizë tjetër, shuma e shkruar do të përditësohet sa herë që ndryshon numri në qelizën burimore.

Ju gjithashtu mund ta futni numrin direkt në funksion, për shembull, =SpellNumber(29.95) (29,95 - pa thonjëza dhe shenjën e dollarit).

Disavantazhet e përdorimit të makro për të shqiptuar numrat në Excel

Së pari, duhet të dini VBA për të modifikuar kodin sipas suaj nevojave. Është e nevojshme të ngjitni kodin për çdo libër pune, ku planifikoni ta ndryshoni atë. Përndryshe, do t'ju duhet të krijoni një skedar shabllon me makro dhe të konfiguroni Excel për të ngarkuar këtë skedar në çdo fillim.

Disavantazhi kryesor i përdorimit të një makro është nëse ia dërgoni librin e punës dikujt tjetër, ky person nuk do shikoni tekstin nëse makroja është e integruar në librin e punës. Dhe edhe nëse është i integruar, ata do të marrin një alarm se ka makro në librin e punës.

Shkruani numrat në fjalë duke përdorur një shtesë të veçantë

Për përdoruesit e Excel që duhet të shkruajnë shpejt shumat, por nuk kanë kohë për të mësuar VBA ose për të gjetur zgjidhje, ne krijuam një mjet të veçantë që mund të kryejë shpejt konvertimin e shumës në fjalë për disa monedha të njohura. Ju lutemi, takoni shtesën Spell Number të përfshirë me versionin më të fundit të Suite tonë Ultimate për Excel.

Përveç se është gati për përdorim, mjeti është vërtet fleksibël në konvertimin e shumave në tekst:

• Mund të zgjidhni një ngamonedhat e mëposhtme: USD, EUR, GBP, BIT, AUD.
• Shkruani pjesën fraksionale në cent, qindarkë ose bitcent.
• Zgjidhni çdo shkronja teksti për rezultatin: shkronja të vogla, SUPER , Rasti i titullit ose rasti i fjalisë.
• Shkruani pjesën dhjetore në mënyra të ndryshme.
• Përfshini ose hiqni zero cent.

Shtesa mbështet gjithçka moderne versionet duke përfshirë Excel 365, Excel 2029, Excel 2016, Excel 2013 dhe Excel 2010. Ju lutemi mos ngurroni të eksploroni aftësi të tjera në faqen kryesore të produktit të lidhur më sipër.

Dhe tani, le ta shohim këtë mjet drejtshkrimi të numrave në veprim :

1. Zgjidh një qelizë boshe për rezultatin.
2. Në skedën Ablebits , në grupin Utilities , kliko Spell Number .
3. Në dritaren e dialogut Spill Number që shfaqet, konfiguroni gjërat e mëposhtme:
   • Për kutinë Zgjidhni numrin tuaj , zgjidhni qelizën që përmban sasinë që dëshironi të shkruani si tekst.
   • Specifikoni aktualisht e dëshiruar, shkronjën dhe mënyrën dhjetëshe pjesa e numrit duhet të shkruhet.
   • Përcaktoni nëse do të përfshijë zero cent apo jo.
   • Zgjidh nëse do të futet rezultati si vlerë ose formulë.
4. Në fund të dritares së dialogut, parashikoni rezultatin. Nëse jeni të kënaqur me mënyrën se si është shkruar numri juaj, klikoni Drejtshkrim . Përndryshe, provo cilësime të ndryshme.

Pamja e ekranit më poshtë tregon parazgjedhjenzgjedhjet dhe numrin e shkruar në B2. Ju lutemi vini re një formulë (më saktë, një funksion të përcaktuar nga përdoruesi) në shiritin e formulave:

Dhe ky është një demonstrim i shpejtë se si mund të shqiptohen monedhat e tjera:

Këshilla dhe shënime:

• Për shkak se shtesa Spell Number është projektuar për të trajtuar raste të përdorimit në jetën reale si faturat dhe dokumentet e tjera financiare, ajo mund të konvertojë vetëm një numër në një moment.
• Për të shkruar një kolona numrash , futni një formulë në qelizën e parë dhe më pas kopjojeni formulën poshtë.
• Nëse ka mundësi që të dhënat tuaja burimore mund të ndryshojnë në të ardhmen, është më mirë që fusni rezultatin si formulë , kështu që ai përditësohet automatikisht kur ndryshon numri origjinal.
• Kur zgjidhni rezultatin si formulë opsioni, është futur një funksion i personalizuar i përcaktuar nga përdoruesi (UDF). Nëse planifikoni të ndani librin tuaj të punës me dikë që nuk e ka të instaluar Ultimate Suite, mos harroni të zëvendësoni formulat me vlera përpara ndarjes.

Konvertimi i kundërt - fjalët angleze në numra

Sinqerisht , nuk mund ta imagjinoj pse mund t'ju duhet. Vetëm në rast… :)

Duket se Excel MVP, Jerry Latham, krijoi një funksion të tillë të përcaktuar nga përdoruesi i Excel (UDF) si WordsToDigits . Ai i kthen fjalët angleze përsëri në numër.

Mund të shkarkoni librin e punës të Jerry's WordsToDigits për të parë kodin UDF. Këtu do të gjeni edhe shembujt e tij se si të përdornifunksionin.

Mund të shihni se si funksionon funksioni në fletën " Sample Entries ", ku do të mund të futni edhe shembujt tuaj. Nëse planifikoni të përdorni WordsToDigits në dokumentet tuaja, ju lutemi informohuni se ky funksion ka kufizime. Për shembull, nuk i njeh thyesat e futura me fjalë. Të gjitha detajet do t'i gjeni në fletën " Informacion ".