Ebben a cikkben két gyors és ingyenes módszert mutatok a valuta számok angol szavakra történő átalakítására az Excel 2019, 2016, 2013 és más verziókban.

A Microsoft Excel egy nagyszerű program, amellyel ezt-azt kiszámíthatsz. Eredetileg nagy adattömegek feldolgozására fejlesztették ki. Azonban olyan számviteli nyilvántartások, mint a számlák, az értékelés vagy a mérlegek gyors és hatékony elkészítését is lehetővé teszi.

A többé-kevésbé szilárd fizetési dokumentumokban meg kell duplikálni a számértékeket azok szó szerinti formájával. A gépelt számokat sokkal nehezebb meghamisítani, mint a kézzel írtakat. Néhány csaló megpróbálhat 3000-ből 8000-et csinálni, míg a "három" szót titokban szinte lehetetlen "nyolccal" helyettesíteni.

Tehát nem csak a számokat kell szavakká alakítani az Excelben (pl. 123,45 "százhuszonhárom, negyvenöt"), hanem a dollárokat és centeket is (pl. 29,95 dollár "huszonkilenc dollár és kilencvenkilenc cent" ), fontokat és pennyt GBP-nek, eurókat és eurócenteket EUR-nak, stb. írni.

Még az Excel legújabb verzióiban sincs beépített eszköz a számok helyesírására, nem is beszélve a korábbi verziókról. De az Excel ilyenkor igazán jó. Mindig lehet javítani a funkcionalitását a képletek segítségével mindenben.

kombinációk, VBA makrók vagy harmadik féltől származó bővítmények.

Az alábbiakban kétféleképpen konvertálhat számokat számokból szavakká

És esetleg szükség lehet arra, hogy a Words-t számokká konvertálja az Excelben.

Megjegyzés: Ha a szám szöveggé alakítás , ami azt jelenti, hogy az Excel szövegként szeretné látni a számot, ez egy kicsit más dolog. Ehhez használhatja a TEXT függvényt vagy néhány más módszert, amelyet a Hogyan változtassuk a számokat szöveggé az Excelben című fejezetben ismertetünk.

SpellNumber VBA makró a számok szavakká alakításához

Mint már említettem, a Microsoft nem akart eszközt adni ehhez a feladathoz. Amikor azonban látták, hogy milyen sok felhasználónak van rá szüksége, létrehozták és közzétették a speciális VBA makrót a weboldalukon. A makró azt teszi, amit a neve SpellNumber sugall. Az összes többi makró, amivel találkoztam, a Microsoft kódján alapul.

A makrót "spellnumber formula" néven találja, azonban ez nem egy formula, hanem egy makrofüggvény, pontosabban Excel felhasználó által meghatározott funkció (UDF).

A helyesírási szám opció képes dollárt és centet írni. Ha más pénznemre van szüksége, akkor a " dollár " és " cent " az Ön nevével együtt.

Ha nem értesz a VBA-hoz, alább találod a kód másolatát. Ha mégsem akarod vagy nincs időd ezt megoldani, használd ezt a megoldást.

1. Nyissa meg a munkafüzetet, ahol a számokat kell betűzni.
2. Nyomja meg az Alt+F11 billentyűkombinációt a Visual Basic szerkesztőablak megnyitásához.
3. Ha több könyv van megnyitva, ellenőrizze, hogy a szükséges munkafüzet aktív-e a szerkesztő bal felső sarkában található projektek listája segítségével (a munkafüzet egyik eleme kékkel van kiemelve).
4. A szerkesztő menüben menjen a Beillesztés -> Modul .
5. Meg kell jelennie egy YourBook - Module1 nevű ablaknak. Válassza ki az összes kódot az alábbi keretben, és illessze be ebbe az ablakba.

   Option Explicit 'Main Function Function SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace> 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber)> 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One".Dollár" Case Else Dollár = Dollár & " Dollár" End Select Select Case Cent Case Cent Case "" Cent = " és nincs cent" Case "Egy" Cent = " és egy cent" Case Else Cent = " és " & Cent & Cent & " Cent" End Select SpellNumber = Dollár & Cent End Function Function GetHundreds( ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber,3) ' Konvertáljuk a százas helyet. If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Konvertáljuk a tízes és egyes helyet. If Mid(MyNumber, 2, 1) "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = ""' Nullázza ki az ideiglenes függvény értékét. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Eighthteen" Case 19: Result ="Tizenkilenc" Case Else End Select Else ' Ha 20-99 közötti érték... Select Case Val(Left(TensText, 1)) Case 2: Eredmény = "Húsz " Case 3: Eredmény = "Harminc " Case 4: Eredmény = "Negyven " Case 5: Eredmény = "Ötven " Case 6: Eredmény = "Hatvan " Case 7: Eredmény = "Hetven " Case 8: Eredmény = "Nyolcvan " Case 9: Eredmény = "Kilencven " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieveegyes hely. End If GetTens = Result End Function Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else : GetDigit = "" End Select End Function End Function

6. Nyomja meg a Ctrl+S billentyűkombinációt a frissített munkafüzet mentéséhez.

   A munkafüzetet újra kell mentenie. Amikor megpróbálja elmenteni a munkafüzetet egy makróval, akkor a " A következő funkciók nem menthetők makrómentes munkafüzetbe "

   

   Kattintson a Nem gombra. Ha megjelenik egy új párbeszédpanel, válassza a Mentés másként lehetőséget. A " Mentés másként " válassza a lehetőséget " Excel makróval támogatott munkafüzet ".

   

A SpellNumber makró használata a munkalapokon

Most már használhatja a SpellNumber az Excel-dokumentumokban. Írja be =SpellNumber(A2) abba a cellába, ahol a számot szavakkal kell kiírni. Itt A2 a számot vagy összeget tartalmazó cella címe.

Itt láthatja az eredményt:

Voila!

A SpellNumber funkció gyors másolása más cellákba.

Ha nem csak 1 cellát, hanem az egész táblázatot kell átalakítania, helyezze az egérkurzort a képletet tartalmazó cella jobb alsó sarkába, amíg az egy kis fekete keresztté nem változik:

Kattintson a bal gombbal, és húzza végig az oszlopon a képlet kitöltéséhez. Az eredmények megtekintéséhez engedje fel a gombot:

Megjegyzés: Ne feledje, hogy ha a SpellNumber funkciót egy másik cellára mutató hivatkozással használja, a kiírt összeg minden alkalommal frissül, amikor a forráscellában lévő szám változik.

A számot közvetlenül a funkcióba is beírhatja, például, =SpellNumber(29.95) (29,95 - idézőjelek és dollárjel nélkül).

A makró használatának hátrányai az Excelben a számok helyesírására

Először is ismernie kell a VBA-t, hogy a kódot az igényeinek megfelelően módosíthassa. Be kell illesztenie a kódot minden egyes munkafüzethez, ahol módosítani kívánja. Ellenkező esetben létre kell hoznia egy sablonfájlt makrókkal, és be kell állítania az Excelt, hogy minden indításkor töltse be ezt a fájlt.

A makró használatának fő hátránya, hogy ha elküldi a munkafüzetet valaki másnak, ez a személy nem fogja látni a szöveget, hacsak a makró nincs beépítve a munkafüzetbe. És még ha be is van építve, akkor is kap egy figyelmeztetést, hogy vannak makrók a munkafüzetben.

Betűzze a számokat szavakba egy speciális add-in segítségével

Azoknak az Excel-felhasználóknak, akiknek gyorsan kell betűzniük összegeket, de nincs idejük megtanulni a VBA-t vagy kitalálni megoldásokat, létrehoztunk egy speciális eszközt, amely néhány népszerű pénznem esetében gyorsan elvégzi az összegek szóvá alakítását. Ismerkedjen meg a Spell Number kiegészítővel, amely az Ultimate Suite for Excel legújabb kiadásában található.

Amellett, hogy az eszköz használatra kész, nagyon rugalmas az összegek szöveggé alakításában:

• A következő pénznemek közül választhat: USD, EUR, GBP, BIT, AUD.
• Írja a törtrészeket centekben, fillérekben vagy bitcentekben.
• Válassza ki az eredményhez a szöveg bármelyik esetét: kisbetűs, nagybetűs, címeset vagy mondateset.
• Írja a tizedes részt különböző módon.
• A nulla centek beillesztése vagy elhagyása.

A bővítmény támogatja az összes modern verziót, beleértve az Excel 365, Excel 2029, Excel 2016, Excel 2013 és Excel 2010 változatokat. Kérjük, bátran fedezze fel a termék fentebb hivatkozott honlapjának további képességeit.

És most lássuk ezt a szám helyesírási segédprogramot működés közben:

1. Válasszon ki egy üres cellát az eredményhez.
2. A Ablebits lapon, a Közművek csoport, kattintson a Varázslat száma .
3. A Szivárgás száma párbeszédablakban a következő dolgokat konfigurálja:
   • A Válassza ki a számot mezőben válassza ki azt a cellát, amely tartalmazza azt az összeget, amelyet szövegként szeretne kiírni.
   • Adja meg a kívánt jelenleg , betűhüvely és ahogyan a tizedes rész a szám helyesírása.
   • Határozza meg, hogy a nulla centeket tartalmazza-e vagy sem.
   • Válassza ki, hogy az eredményt értékként vagy képletként kívánja-e beilleszteni.
4. A párbeszédablak alján, előnézet Ha elégedett vagy a számoddal, kattints a Varázslat Ellenkező esetben próbáljon ki más beállításokat.

Az alábbi képernyőkép az alapértelmezett választási lehetőségeket és a B2-ben szereplő betűjeles számot mutatja. Vegye észre a képletet (pontosabban egy felhasználó által definiált függvényt) a képletsorban:

Ez pedig egy gyors bemutató arra, hogy más valuták hogyan írhatók ki:

Tippek és megjegyzések:

• Mert a Varázslat száma add-in valós felhasználási esetek, például számlák és egyéb pénzügyi dokumentumok kezelésére lett tervezve, csak a következő dokumentumokat tudja átalakítani egy szám egyszerre.
• A betűzéshez egy számoszlop , illesszen be egy képletet az első cellába, majd másolja lefelé a képletet.
• Ha van rá esély, hogy a forrásadatok a jövőben megváltozhatnak, akkor a legjobb, ha illessze be az eredményt képletként , így automatikusan frissül, ha az eredeti szám változik.
• Amikor kiválasztja a eredmény mint képlet opció, egy egyéni felhasználó által definiált funkció (UDF) van beillesztve. Ha a munkafüzetet meg kívánja osztani valakivel, aki nem rendelkezik az Ultimate Suite telepítésével, ne feledje, hogy a megosztás előtt a képleteket értékekkel kell helyettesíteni.

Fordított átalakítás - angol szavak számokká alakítása

Őszintén szólva nem tudom elképzelni, hogy miért lenne rá szükséged. Csak a biztonság kedvéért... :)

Úgy tűnik, hogy az Excel MVP, Jerry Latham, olyan Excel felhasználó által definiált függvényt (UDF) hozott létre, mint WordsToDigits Az angol szavakat visszaalakítja számokká.

Letöltheti Jerry WordsToDigits munkafüzetét, hogy megnézze az UDF kódot. Itt találja a példáit is a függvény használatára.

A funkció működését a " Minta bejegyzések ", ahol saját példákat is megadhat. Ha azt tervezi, hogy a WordsToDigits funkciót alkalmazza dokumentumaiban, kérjük, vegye figyelembe, hogy a funkciónak vannak korlátai. Például nem ismeri fel a szavakba beírt törteket. Minden részletet megtalál a " Információ " lap.