Šajā rakstā es parādīšu divus ātrus un bezmaksas veidus, kā konvertēt valūtas skaitļus angļu vārdos programmā Excel 2019, 2016, 2013 un citās versijās.

Microsoft Excel ir lieliska programma, lai aprēķinātu šo un to. Sākotnēji tā tika izstrādāta lielu datu masīvu apstrādei. Tomēr tā ļauj arī ātri un efektīvi izveidot grāmatvedības uzskaites dokumentus, piemēram, rēķinus, novērtējumus vai bilances.

Vairāk vai mazāk solīdos maksājumu dokumentos skaitliskās vērtības ir jādublē ar to vārdisko formu. Ir daudz grūtāk viltot drukātos skaitļus nekā ar roku rakstītos. Kāds krāpnieks var mēģināt no 3000 izdomāt 8000, savukārt "trīs" slepus aizstāt ar "astoņi" ir gandrīz neiespējami.

Tātad jums ir ne tikai jāpārvērš skaitļi vārdos programmā Excel (piemēram, 123,45 uz "simt divdesmit trīs četrdesmit pieci"), bet arī jāraksta dolāri un centi (piemēram, 29,95 ASV dolāri kā "divdesmit deviņi dolāri un deviņdesmit deviņi centi" ), mārciņas un peni kā GBP, eiro un eirocenti kā EUR utt.

Pat jaunākajās Excel versijās nav iebūvēta rīka skaitļu pareizrakstībai, nemaz nerunājot par agrākajām versijām. Bet tieši tad Excel ir patiešām labs. Jūs vienmēr varat uzlabot tā funkcionalitāti, izmantojot formulas visās to versijās.

kombinācijām, VBA makrokomponentiem vai trešo pušu papildinājumiem.

Zemāk atradīsiet divus veidus, kā pārvērst skaitļus no cipariem uz vārdiem.

Un, iespējams, jums var būt nepieciešams konvertēt vārdus uz skaitļiem programmā Excel.

Piezīme. Ja meklējat skaitļa pārvēršana tekstā , kas nozīmē, ka vēlaties, lai Excel redzētu jūsu skaitli kā tekstu, tas ir nedaudz atšķirīgi. Šim nolūkam varat izmantot funkciju TEXT vai dažus citus veidus, kas aprakstīti sadaļā Kā mainīt skaitļus uz tekstu programmā Excel.

SpellNumber VBA makro, lai pārvērstu skaitļus vārdos

Kā jau minēju, Microsoft nevēlējās pievienot rīku šim uzdevumam. Tomēr, redzot, cik daudziem lietotājiem tas ir nepieciešams, viņi izveidoja un savā vietnē publicēja īpašu VBA makro. Makro dara to, ko norāda tā nosaukums SpellNumber. Visi pārējie man sastaptie makro ir balstīti uz Microsoft kodu.

Jūs varat atrast makro, kas minēts kā "spellnumber formula". Tomēr tā nav formula, bet gan makro funkcija, precīzāk sakot. Excel lietotāja definētā funkcija (UDF).

Ar rakstzīmju skaitļa opciju var rakstīt dolārus un centus. Ja nepieciešama cita valūta, varat mainīt " dolārs " un " centu ", norādot savu vārdu.

Ja neesat VBA zinošs puisis, zemāk atradīsiet koda kopiju. Ja joprojām nevēlaties vai jums nav laika to atrisināt, lūdzu, izmantojiet šo risinājumu.

1. Atveriet darbgrāmatu, kurā ir jāraksta skaitļi.
2. Nospiediet Alt+F11, lai atvērtu Visual Basic redaktora logu.
3. Ja ir atvērtas vairākas grāmatas, pārbaudiet, vai vajadzīgā darbgrāmata ir aktīva, izmantojot projektu sarakstu redaktora augšējā kreisajā stūrī (viens no darbgrāmatas elementiem ir izcelts ar zilu krāsu).
4. Redaktora izvēlnē dodieties uz Ievietot -> Modulis .
5. Jums jāparādās logam ar nosaukumu YourBook - Module1. Atlasiet visu zemāk redzamajā rāmī esošo kodu un ielīmējiet to šajā logā.

   Option Explicit 'Main Function Function SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Tūkstoš " Place(3) = " Miljons " Place(4) = " Miljards " Place(5) = " Triljons " 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 = "OneDollar" Case Else Dollars = Dollars & " Dollars" End Select Select Select Case Cents Case "" Cents = " un nav centu" Case "One" Cents = " un viens cents" Case Else Cents = " un " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function Function GetHundreds( ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber,3) ' Pārrēķina simtdaļas vietu. If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Simtdaļas " End If ' Pārrēķina desmitdaļas un vieninieku vietu. 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 = ""' Iznulē pagaidu funkcijas vērtību. If Val(Left(TensText, 1)) = 1 Then ' Ja vērtība starp 10-19... Select Case Val(TensText) Case 10: Rezultāts = "Desmit" Case 11: Rezultāts = "Vienpadsmit" Case 12: Rezultāts = "Divpadsmit" Case 13: Rezultāts = "Trīspadsmit" Case 14: Rezultāts = "Četrpadsmit" Case 15: Rezultāts = "Piecpadsmit" Case 16: Rezultāts = "Sešpadsmit" Case 17: Rezultāts = "Seventeen" Case 18: Rezultāts = "Astoņpadsmit" Case 19: Rezultāts ="Deviņpadsmit" Case Else End Select Else ' Ja vērtība starp 20-99... Select Case Val(Left(TensText, 1)) Case 2: Rezultāts = "Divdesmit " Case 3: Rezultāts = "Trīsdesmit " Case 4: Rezultāts = "Četrdesmit " Case 5: Rezultāts = "Četrdesmit " Case 5: Rezultāts = "Piecdesmit " Case 6: Rezultāts = "Sešdesmit " Case 7: Rezultāts = "Septiņdesmit " Case 8: Rezultāts = "Astoņdesmit " Case 9: Rezultāts = "Deviņdesmit " Case Else End Select Result = Result & amp; GetDigit _ (Right(TensText, 1)) ' Retrieveviencipara vieta. End If GetTens = Rezultāts End Function Function Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "Viens" Case 2: GetDigit = "Divi" Case 3: GetDigit = "Trīs" Case 4: GetDigit = "Četri" Case 5: GetDigit = "Pieci" Case 6: GetDigit = "Seši" Case 7: GetDigit = "Septiņi" Case 8: GetDigit = "Astoņi" Case 9: GetDigit = "Deviņi" Case Else : GetDigit = "" End Select End Select End Function

6. Nospiediet Ctrl+S, lai saglabātu atjaunināto darbgrāmatu.

   Jums būs nepieciešams atkārtoti saglabāt darbgrāmatu. Kad mēģināsiet saglabāt darbgrāmatu ar makro, tiks parādīts ziņojums " Darba burtnīcā bez makriem nevar saglabāt šādas funkcijas. "

   Skatīt arī: 12 populāras Google Sheets funkcijas ar gatavām Google Sheets formulām
   

   Noklikšķiniet uz Nē. Kad parādās jauns dialoglodziņš, izvēlieties iespēju Saglabāt kā. Laukā " Saglabāt kā veidu " izvēlēties opciju " Excel darbgrāmata ar iespējotu makru ".

   

Lietojiet SpellNumber makro darblapās

Tagad varat izmantot funkciju SpellNumber Excel dokumentos. Ievadiet =SpellNumber(A2) šūnā, kurā jums ir nepieciešams iegūt skaitli, kas rakstīts vārdos. Šeit A2 ir tās šūnas adrese, kurā ir skaitlis vai summa.

Šeit varat redzēt rezultātu:

Voila!

Ātri kopējiet SpellNumber funkciju uz citām šūnām.

Ja ir jāpārveido visa tabula, nevis tikai viena šūna, novietojiet peles kursoru tās šūnas apakšējā labajā stūrī, kurā ir formula, līdz tas kļūst par mazu melnu krustiņu:

Lai aizpildītu formulu, noklikšķiniet ar kreiso peles taustiņu un velciet to pāri kolonnai. Atlaidiet pogu, lai redzētu rezultātus:

Lūdzu, ņemiet vērā, ka, ja izmantojat SpellNumber ar saiti uz citu šūnu, uzrakstītā summa tiks atjaunināta ikreiz, kad mainīsies skaitlis avota šūnā.

Skaitli var ievadīt arī tieši funkcijā, piemēram, =SpellNumber(29.95) (29,95 - bez pēdiņām un dolāra zīmes).

Trūkumi, izmantojot makro, lai rakstītu skaitļus programmā Excel

Vispirms jums jāprot VBA, lai modificētu kodu atbilstoši savām vajadzībām. Ir nepieciešams ielīmēt kodu katrai darbgrāmatai, kurā plānojat to mainīt. Pretējā gadījumā jums būs jāizveido veidnes fails ar makrosistēmām un jākonfigurē Excel, lai ielādētu šo failu katrā sākuma reizē.

Galvenais trūkums, izmantojot makro, ir tas, ka, nosūtot darbgrāmatu citai personai, šī persona neredzēs tekstu, ja vien makro nav iebūvēts darbgrāmatā. Un pat tad, ja tas ir iebūvēts, šī persona saņems brīdinājumu, ka darbgrāmatā ir makro.

Skaitļu rakstība vārdos, izmantojot īpašu papildinājumu

Excel lietotājiem, kuriem ātri jāraksta summas, bet kuriem nav laika apgūt VBA vai izdomāt apiešanas iespējas, mēs izveidojām īpašu rīku, kas var ātri veikt summas pārvēršanu vārdos dažām populārām valūtām. Iepazīstieties ar pievienojumprogrammu Spell Number, kas ir iekļauta mūsu galīgās Excel paketes Ultimate Suite jaunākajā versijā.

Papildus tam, ka rīks ir gatavs lietošanai, tas ir patiešām elastīgs, pārvēršot summas tekstā:

• Varat izvēlēties vienu no šādām valūtām: USD, EUR, GBP, BIT, AUD.
• Daļskaitļa daļu rakstiet centos, pensos vai bitcentos.
• Rezultātam izvēlieties jebkuru teksta gadījumu: mazo, lielo, lielo, virsraksta vai teikuma gadījumu.
• Rakstiet decimāldaļu dažādos veidos.
• Iekļaut vai neiekļaut nulles centus.

Papildinājums atbalsta visas mūsdienu versijas, tostarp Excel 365, Excel 2029, Excel 2016, Excel 2013 un Excel 2010. Lūdzu, nekautrējieties izpētīt citas iespējas produkta sākumlapā, uz kuru ir saite iepriekš.

Un tagad aplūkosim šo numuru rakstības utilītu darbībā:

1. Rezultātam atlasiet tukšu šūnu.
2. Par Ablebits cilnē Komunālie pakalpojumi grupu, noklikšķiniet uz Burtu numurs .
3. In the Izplūdes numurs dialoglodziņā, kas tiek parādīts, konfigurējiet šādas darbības:
   • Par Izvēlieties savu numuru izvēlieties šūnas, kurās ir summa, ko vēlaties ierakstīt kā tekstu.
   • Norādiet vēlamo pašlaik , burtu korpuss un veids, kā decimālā daļa skaitļa rakstībai.
   • Noteikt, vai iekļaut vai neiekļaut nulles centus.
   • Izvēlieties, vai rezultātu ievietot kā vērtību vai formulu.
4. Dialogloga loga apakšā, priekšskatījums rezultātu. Ja esat apmierināts ar to, kā jūsu numurs ir uzrakstīts, noklikšķiniet uz Burvestība . Pretējā gadījumā izmēģiniet dažādus iestatījumus.

Tālāk redzamajā ekrānšāviņas attēlā ir parādītas noklusējuma izvēles un rakstītais skaitlis B2. Lūdzu, pamaniet formulu (precīzāk, lietotāja definētu funkciju) formulas joslā:

Un šis ir īss piemērs tam, kā var izskaidrot citu valūtu rakstību:

Padomi un piezīmes:

• Tā kā Burtu numurs papildinājums tika izstrādāts, lai apstrādātu reālus lietošanas gadījumus, piemēram, rēķinus un citus finanšu dokumentus, tas var tikai konvertēt. viens numurs vienlaicīgi.
• Lai burtu skaitļu sleja , ievietojiet formulu pirmajā šūnā un pēc tam nokopējiet formulu uz leju.
• Ja pastāv iespēja, ka avota dati nākotnē var mainīties, vislabāk ir. ievietot rezultātu kā formulu , tāpēc tas tiek atjaunināts automātiski, kad mainās sākotnējais numurs.
• Izvēloties rezultāts kā formula opcija, pielāgota lietotāja definēta funkcija (Ja plānojat kopīgot savu darbgrāmatu ar kādu, kam nav instalēta Ultimate Suite, atcerieties pirms kopīgošanas aizstāt formulas ar vērtībām.

Reversā konvertēšana - angļu valodas vārdi uz skaitļi

Atklāti sakot, es nevaru iedomāties, kāpēc jums tas varētu būt nepieciešams. Tikai gadījumam... :)

Šķiet, ka Excel MVP, Jerry Latham, ir izveidojis šādu Excel lietotāja noteiktu funkciju (UDF) kā WordsToDigits . Tas pārvērš angļu valodas vārdus atpakaļ skaitļos.

Lai apskatītu UDF kodu, varat lejupielādēt Džerija darbgrāmatu WordsToDigits. Šeit atradīsiet arī viņa piemērus, kā izmantot šo funkciju.

Funkcijas darbību varat apskatīt lapā " Ierakstu paraugi ", kur varēsiet ievadīt arī savus piemērus. Ja plānojat izmantot WordsToDigits savos dokumentos, ņemiet vērā, ka šai funkcijai ir ierobežojumi. Piemēram, tā neatzīst vārdos ievadītās daļskaitļus. Visu informāciju atradīsiet vietnē " Informācija " lapa.