Skaitlis vārdos c. Kā programmā Excel vārdos uzrakstīt summu, skaitli, skaitļus. Cipari vārdos ar kapeikām ar lielajiem vai mazajiem burtiem programmā Excel

Rādot dažādus pārskatus, bieži vien ir nepieciešams pārvērst skaitlisko vērtību virknē vārdos. 1C tas tiek atrisināts ļoti vienkārši: šim nolūkam ir paredzēta funkcija NumberInWord().

Veidojot skaitli vārdos, blakus ir iespējams attēlot šī skaitļa aprēķināšanas priekšmetu vajadzīgajā dzimumā un reģistrā. Aprēķinu priekšmets- to mēra konvertētais skaitlis, piemēram, nauda, ​​kastes, ratiņi, televizori utt.

• Bez aprēķina priekšmeta:
  • Divdesmit divi;
  • Trīs simti astoņdesmit četri.
• Ar aprēķinu priekšmetu:
  • Trīsdesmit astoņi dubloni;
  • Divpadsmit kuģi;
  • Divas mājas.

Piemēri

Vispirms sniegsim pārveidošanas piemērus, lai uzzinātu 1C iespējas:

Apraksts par darbu ar funkciju

Kā mēs noskaidrojām, lai iegūtu skaitli vārdos, izmantojiet funkciju

Funkcija atgriež virknes vērtību. Kā ievades parametri tiek nodoti:

• Skaitlis ir konvertējamā vērtība;
• FormatString — formatēšanas opcijas:
  • L — lokalizācijas kods (piemēram, u_RU — krievu valoda; en_US — angļu valoda, de_DE — vācu valoda). Pēc noklusējuma tiek izmantoti operētājsistēmas iestatījumi.
  • NP — parāda aprēķinu priekšmeta nosaukumu, pēc noklusējuma — True.
  • ND — parāda aprēķinu priekšmeta decimāldaļu nosaukumu, pēc noklusējuma — True.
  • DP — parāda daļējo daļu vārdos/skaitļos, noklusējuma — False.
  • AI — izseciniet savienojumu un. Analizēts tikai angļu valodas lokalizācijai. Iespējamās vērtības: “Nelietot”, “Izmantot”.
• Calculus Subject Parameters - komatatdalīts aprēķina priekšmeta parametru saraksts. Formāts ir atkarīgs no lokalizācijas.

Krievu valodai aprēķinu priekšmeta parametri ir formā “rublis, rublis, rubļi, m, kapeika, kapeikas, kapeikas, zh, 2”, kur:

• rublis – vienskaitļa nominatīva loceklis;
• rublis – vienskaitļa ģenitīva burts;
  rubļi – daudzskaitļa ģenitīva burts;
  m – vīrišķais (w – sievišķais, s – neitrāls);
  “kapeika, kapeika, kapeika, zh” – daļdaļa, līdzīga aprēķina priekšmetam (var nebūt);
  “2” – daļdaļas ciparu skaits (var nebūt, pēc noklusējuma ir 2).

Izmanto standarta šķīdumos

Konfigurācijās, kas balstītas uz , kopējā modulī WorkWithRatesCurrencies ir funkcija

Funkciju izmanto, lai konvertētu valūtas summas vārdos.

Vai joprojām ir jautājumi?
Jautājiet raksta komentāros.

Ja jums ir šaubas par to, kā kaut ko uzrakstīt angļu vai krievu valodā, izmantojiet mūsu ciparu tulkotāju. Lai veiktu tulkojumu, ievadiet vajadzīgo skaitli skaitļu veidā, un programma aprēķinās tā rakstisko formu.

Pašlaik tulkotājs ir ierobežots līdz 18 cipariem pirms komata (veselām vērtībām) un 18 cipariem pēc komata (vērtību tulkošanai, kas satur daļskaitli).

Numurs:

Kā redzat iepriekš, tulkojamajam numuram ir dotas vairākas pareizrakstības angļu valodā. Ar viņu palīdzību jūs varat atšķirt amerikāņu angļu valodu (AmE) un britu angļu valodu (BrE). Katram no tiem savukārt var paredzēt arī vairākas pareizrakstības iespējas, kuru lietot tekstā, atkarīgs no teikuma konteksta.

Šī programma tikpat viegli tiek galā ar skaitļu pārveidošanu tekstā angliski, un krievu valodai. Tie. Ja jums ir jāraksta skaitlis ar vārdiem krievu valodā, vienkārši ievadiet to ciparu formātā un noklikšķiniet uz pogas "Tulkot".

Apzīmējumi

Tulkojot krievu valodā, tulks ņem vērā iespējamās dzimuma izmaiņas dotais numurs, kas apzīmētas ar šādām ikonām:
- sievišķīgs, - vīrišķīgs, - neitrāls.

Papildus cipariem mūsu programma var rakstīt arī dažādas naudas summas ar vārdiem. Šajā gadījumā pārskaitījums tiek veikts trīs dažādās valūtās vienlaikus: rubļos, dolāros un sterliņu mārciņās.

Poga tiek izmantota, lai pārslēgtos starp režīmiem “Skaitlis vārdos” un “Summa vārdos”.

Pirmkārt, mēs koncentrējamies uz cilvēkiem, kuri mācās angļu valodu. valodu, bet, ja šis tulks noderēs kādam citam (piemēram, aizpildot biznesa dokumentus), būsim ļoti priecīgi.

Ļoti izplatīts uzdevums ir rakstīt skaitļus vārdos programmā Excel. Programmā Excel vēl nav iebūvētas funkcijas, tāpēc varam izveidot pielāgotu funkciju, kas aizstās skaitļus ar tekstu.

Parasti tas ir nepieciešams tirdzniecībā, grāmatvedībā un citās jomās, ar kurām tiek veikti norēķini skaidrā naudā. Parasti ir nepieciešams tulkot summu rubļos un kapeikās vārdos, kā attēlā (pirmais piemērs).

Pieņemsim, ka mēs veicam dažus aprēķinus tabulā un iegūstam kopējo summu rubļos 1526,23

Mums šis skaitlis jāievada rubļos un vēlams norādīt arī kapeikas. Lai to izdarītu, mēs izveidosim īpašu universālu lietotāja funkciju, kas izskatīsies šādi:

Propis(Summa ;Nauda ;lang ;Prec )

Nauda - šeit ir norādīts valūtas veids, varat norādīt rubļus, dolārus un eiro (“RUB”, “USD”, “EUR”) - valūta jānorāda pēdiņās.

lang ir valoda, kurā jums jāparāda summa, ir pieejamas divas valodas: angļu un krievu (“EN”, “RU”) - norādīts arī pēdiņās

Prec — rādīt (1) vai nerādīt (0) daļdaļu

Tādējādi jūs varat rakstīt summu rubļos, dolāros vai eiro ar krievu vai angļu burtiem kopā ar daļskaitli, un atkarībā no skaitļa tiks ievietots pareizais beigas, piemēram, 2 rubļi, 8 rubļi, 1 rublis utt. .

Lai izveidotu pielāgotu Propis funkciju, jums ir jākopē tālāk norādītais kods un pēc tam noklikšķiniet uz ALT+F11 lai atvērtu VBA, izvēlnē pievienojiet jaunu tukšu moduli Ievietot - modulis un ielīmējiet tur nokopēto kodu

Pielāgotas summas funkcijas makro vārdos

Tātad, funkcija tika izveidota, lai to izmantotu, vienkārši ievadiet Propis šūnu ar nepieciešamajiem argumentiem, piemēram, ja mums ir jāraksta summa vārdos rubļos un kapeikās un krievu valodā, tad formula izskatīsies šādi.

Propis(B2;"RUB";"RU";1)

Cipari vārdos ar kapeikām ar lielajiem vai mazajiem burtiem programmā Excel

Šeit ir pielāgotās funkcijas VBA kods. Parādiet summu vārdos ar kapeikām un izvēlieties pirmo lielo vai mazo burtu

Funkcija RubIn Writing (Summa kā dubultā, neobligāti bez_kopeikas kā Būla = false, _ izvēles CopIn Words kā Būla = false, neobligāti fillinCapital kā Būla = patiess) kā virkne "Funkcija summas rakstīšanai vārdos Dim ed, des, sot, ten, razr, dec Dim i As Integer, str As String, s As String Dim intPart As String, frPart As String Dim mlnEnd, tscEnd, razrEnd, rub, cop dec = Array("", "one", "two", "trīs" ", "četri", "pieci", "seši", "septiņi", "astoņi", "deviņi") ed = Array("", "one", "divi", "trīs", "četri", " pieci", "seši", "septiņi", "astoņi", "deviņi") desmit = Array("desmit", "vienpadsmit", "divpadsmit", "trīspadsmit", "četrpadsmit", "piecpadsmit", "sešpadsmit" , "septiņpadsmit" , "astoņpadsmit", "deviņpadsmit") des = Array("", "", "divdesmit", "trīsdesmit", "četrdesmit", "piecdesmit", "sešdesmit", "septiņdesmit", "astoņdesmit" , "deviņdesmit" ) sot = Array("", "simts", "divi simti", "trīs simti", "četri simti", "pieci simti", "seši simti", "septiņi simti", "astoņi simti" ", "deviņi simti") razr = Masīvs("" , "tūkst.", "miljons", "miljards") mlnBeigas = Masīvs("ov", " ", "a", "a", "a", " ov", "ov", "ov", "ov ", "ov ") tscEnd = Masīvs(" ", "a ", "un ", "un ", "un ", " ", " ", " " , " ", " ") razrEnd = Array(mlnEnd, mlnEnd, tscEnd, "") rub = Array("rubļi", "rublis", "rublis", "rublis", "rublis", "rubļi", "rubļi ", "rubļi", "rubļi", "rubļi" ) cop = Array("kapeikas", "kapeikas", "kapeikas", "kapeikas", "kapeikas", "kapeikas", "kapeikas", "kapeikas", "kapeikas", "kapeikas") Ja summa >= 1000000000000 # vai summa< 0 Then РубПропись = CVErr(xlErrValue): Exit Function "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If Round(Сумма, 2) >= 1 Tad intPart = Kreisais$(Formāts(Summa, "000000000000.00"), 12) Ja i = 0 līdz 3 s = vidus$(intPart, i * 3 + 1, 3) Ja s<>"000" Tad str = str & sot(CInt(Left$(s, 1))) If Mid$(s, 2, 1) = "1" Tad str = str & ten(CInt(Right$(s, 1) ) ))) Else str = str & des(CInt(Mid$(s, 2, 1))) & IIf(i = 2, dec(CInt(Right$(s, 1))), ed(CInt(Right $ (s, 1)))) Beigas, ja kļūdas gadījumā Atsākt nākamo str = str & IIf(Mid$(s, 2, 1) = "1", razr(3 - i) & razrEnd(i)(0), _ razr(3 - i) & razrEnd(i)(CInt(Right$(s, 1)))) Kļūdas gadījumā GoTo 0 End If Next i str = str & IIf(Mid$(s, 2, 1) = " 1 ", rub(0), rub(CInt(Right$(s, 1)))) End If RubCapital = str """"""""""""""" If Without_kapecks = False, then frPart = Labais$(Formāts(Summa, "0,00"), 2) Ja frPart = "00" Tad frPart = "" Citādi Ja CopIn vārdi Tad frPart = IIf(Left$(frPart, 1) = "1", desmit(CInt ( Right$(frPart, 1))) & cop(0), _ des(CInt(Left$(frPart, 1))) & dec(CInt(Right$(frPart, 1))) & cop(CInt(labais $ (frDaļa, 1)))) Cits frDaļa = IIf(Kreisā$(frDaļa, 1) = "1", frDaļa & " " & cop(0), frDaļa & " " & cop(CInt(labais$(frDaļa, 1 )))) End If End If RubProps = str & " " & frPart End If """"""""""""""" " RubProps = str & frPart If fillCapital Then Mid$(RubProps, 1, 1) = UCase(Vidējs $(RubCapital, 1, 1)) "Ja aizpildietCapital, tad RubCapital = UCase(kreisais(RubCapital, 1)) & Mid(RubCapital, 2) beigu funkcija

• Bez kapeikām (1), ar kapeikām (0)
• Kapeikas vārdos (1), skaitļos (0)
• Sāciet ar vārdiem (0), ar lielajiem burtiem (1)

Šādi tiek izmantota funkcija

Piezīme

• Šī funkcija darbosies ar cipariem no 0 līdz 99 999 999
• Pirms koda kopēšanas pārslēdziet tastatūras izkārtojumu uz krievu valodu (pareizai krievu teksta kopēšanai)
• VBA kods ir jāielīmē visos failos ( Excel darbgrāmatas), kur vēlaties to palaist
• Pēc koda ievietošanas fails jāsaglabā ar xlsm makro atbalstu (programmā Excel, sākot no 2007. gada versijas)
• Funkciju var ievadīt manuāli vai, ja esat aizmirsis kā to ierakstīt, izmantojot funkciju vedni (poga fx formulu joslā kategorijā Lietotāja definēts)