Číslo v slovách c. Ako napísať množstvo, počet, čísla slovami v Exceli. Čísla v slovách s centami veľkými alebo malými písmenami v Exceli

Pri zobrazovaní rôznych zostáv je často potrebné previesť číselnú hodnotu na reťazec v slovách. V 1C je to vyriešené veľmi jednoducho: na tento účel je k dispozícii funkcia Číslo v slovách ().

Pri tvorení čísla slovom je možné vedľa neho zobraziť aj predmet výpočtu tohto čísla v požadovanom rode a páde. Predmet kalkulu- to je to, čo prepočítané číslo meria napríklad peniaze, krabice, vagóny, televízory atď.

• Bez predmetu kalkul:
  • Dvadsaťdva;
  • Tristo osemdesiatštyri.
• S predmetom kalkulu:
  • Tridsaťosem dublónov;
  • dvanásť lodí;
  • Dva domy.

Príklady

Na začiatok uvádzame príklady konverzie, aby sme zistili možnosti 1C:

Popis práce s funkciou

Ako sme zistili, na získanie čísla slovami sa používa funkcia

Funkcia vráti hodnotu reťazca. Ako vstupné parametre sa odovzdávajú nasledovné:

• Číslo je hodnota, ktorá sa má previesť;
• FormatString - možnosti formátovania:
  • L - Lokalizačný kód (napríklad u_RU - ruština; en_US - angličtina, de_DE - nemčina). Štandardne sa používajú nastavenia operačného systému.
  • NP - Zobrazenie názvu predmetu kalkulu, predvolene - Pravda.
  • ND - Zobrazenie názvu desatinných častí predmetu výpočtu, štandardne - Pravda.
  • DP - Zobrazenie zlomkovej časti v slovách/číslo, štandardne - False.
  • AI - Výstupné spojenie a. Analyzované len pre anglickú lokalizáciu. Možné hodnoty: "Don't Use", "Use".
• CalculusItemParameters - čiarkami oddelené vymenovanie parametrov objektu kalkulu. Formát závisí od miestneho nastavenia.

Pre ruský jazyk sú parametre predmetu výpočtu vo forme „rubeľ, rubeľ, ruble, m, kopeck, kopeck, kopeck, f, 2“, kde:

• rubeľ - nominatív jednotného čísla;
• rubeľ - genitív jednotného čísla;
  ruble - množný genitív;
  m - mužský rod (g - ženský rod, s - stredný rod);
  „penny, penny, penny, w“ - zlomková časť podobná predmetu výpočtu (môže chýbať);
  "2" - počet číslic zlomkovej časti (môže chýbať, predvolená hodnota je 2).

Použitie v typických riešeniach

V konfiguráciách postavených na , v spoločnom module Kurzy pracovných mien existuje funkcia

Funkcia sa používa na prevod menových čiastok na reťazec v slovách.

Máte nejaké otázky?
Opýtajte sa v komentároch k článku.

Ak máte pochybnosti o tom, ako sa niečo píše kurzívou v angličtine alebo v ruštine, použite náš prekladač číslic. Pre vykonanie prekladu zadajte požadovaný počet vo forme čísel a program vypočíta jeho písomnú podobu.

V súčasnosti je limit prekladateľa 18 desatinných miest (pre celočíselné hodnoty) a 18 číslic za desatinnou čiarkou (pre preklad hodnôt obsahujúcich zlomkovú časť).

číslo:

Ako vidíte vyššie, pre preložené číslo je uvedených niekoľko anglických hláskovaní. S ich pomocou môžete rozoznať rozdiel medzi americkou angličtinou (AmE) a britskou angličtinou (BrE). Pre každý z nich je možné poskytnúť aj niekoľko možností pravopisu, ktoré v texte použiť, závisí od kontextu vety.

Tento program sa rovnako ľahko vyrovnáva s prekladom čísel do textu, ako napríklad anglického jazyka a pre ruštinu. Tie. ak potrebujete napísať číslo slovami v ruštine, stačí ho zadať v číselnom formáte a kliknúť na tlačidlo „Preložiť“.

Notový zápis

Pri preklade do ruštiny berie prekladateľ do úvahy možné zmeny pohlavia pre dané číslo, ktoré sú označené nasledujúcimi ikonami:
- ženský rod, - mužský rod, - stredný rod.

Náš program vie okrem čísel zapísať aj rôzne sumy peňazí slovom. V tomto prípade sa prevod uskutoční okamžite v troch rôznych menách: rubľoch, dolároch a librách šterlingov.

Tlačidlo slúži na prepínanie medzi režimami „Číslo slovami“ a „Množstvo slovami“.

V prvom rade sa zameriavame na ľudí, ktorí sa učia angličtinu. jazyku, ale ak bude tento prekladač užitočný aj niekomu inému (napríklad pri vypĺňaní obchodných dokumentov), ​​budeme veľmi radi.

Veľmi častou úlohou je písať čísla slovami v Exceli. V Exceli zatiaľ nie je vstavaná funkcia, takže si môžeme vytvoriť vlastnú funkciu, ktorá nahradí čísla, čísla textom.

Spravidla sa to vyžaduje v obchode, účtovníctve a iných oblastiach, kde sa uskutočňujú zúčtovania v hotovosti. Zvyčajne je potrebné previesť sumu v rubľoch a kopejkách slovami, ako na obrázku (prvý príklad).

Povedzme, že urobíme nejaké výpočty v tabuľke a získame celkovú sumu v rubľoch 1526,23

Tento údaj musíme zapísať v rubľoch a je žiaduce uviesť aj cent. Na tento účel vytvoríme špeciálnu univerzálnu užívateľom definovanú funkciu, ktorá bude vyzerať takto

Propis(Suma ;Peniaze ;lang ;Prec )

Peniaze - tu je uvedený typ meny, môžete zadať ruble, doláre a eurá ("RUB", "USD", "EUR") - mena musí byť uvedená v úvodzovkách.

lang - toto je jazyk, v ktorom musíte vybrať sumu, dva jazyky, ktoré sú k dispozícii angličtina a ruština („EN“, „RU“) - uvádzame aj v úvodzovkách

Predbežne zobraziť (1) alebo nezobraziť (0) zlomkovú časť

Čiastku teda môžete napísať v rubľoch, dolároch alebo eurách slovami ruskými alebo anglickými písmenami spolu s zlomkovou časťou, pričom v závislosti od čísla sa vloží správny koniec, napríklad 2 ruble, 8 rubľov, 1 rubeľ a pod.

Ak chcete vytvoriť vlastnú funkciu Propis, musíte skopírovať kód nižšie a potom kliknúť ALT + F11 na otvorenie VBA pridajte nový prázdny modul cez menu Vložiť modul a vložte tam skopírovaný kód

Makro vlastnej funkcie pre súčet v slovách

Funkcia bola vytvorená, na jej použitie stačí zadať bunku Propis s potrebnými argumentmi, napríklad ak potrebujeme napísať sumu slovami v rubľoch a kopejkách a v ruštine, vzorec bude vyzerať takto.

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

Čísla v slovách s centami veľkými alebo malými písmenami v Exceli

Tu je kód VBA pre vlastnú funkciu. Zobrazte sumu slovami s kopejkami a výberom prvého veľkého alebo malého písmena

Funkcia RubWrite(Amount As Double, Voliteľné Bez Copecks As Boolean = False, _ Voliteľné COP As Boolean = False, Voliteľné Capitalize As Boolean = True) As String "Funkcia na zápis súčtu v slovách 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", "dva", "tri", " štyri ", "päť", "šesť", "sedem", "osem", "deväť") ed = Array("", "jeden", "dva", "tri", "štyri", "päť", " šesť", "sedem", "osem", "deväť") desať = Array("desať", "jedenásť", "dvanásť", "trinásť", "štrnásť", "pätnásť", "šestnásť", "sedemnásť" " , "osemnásť", "devätnásť") des = Array("", "", "dvadsať", "tridsať", "štyridsať", "päťdesiat", "šesťdesiat", "sedemdesiat", "osemdesiat", "deväťdesiat" " ) sot = Array("", "sto", "dvesto", "tristo", "štyristo", "päťsto", "šesťsto", "sedemsto", "osemsto", " deväťsto ") razr = Pole("", "tisíce", "milión", "miliarda") mlnEnd = Pole("s", " ", "a", "a", "a", "s", "s" ", "s", "s", "s") tscEnd = Array(" ", "a", "and", "and", "and", "", "", "", "", " ") razrEnd = Array(mlnEnd, mlnEnd, tscEnd, "") rub = Array("ruble", "ruble", "ruble", "ruble", "ruble", "ruble", "ruble", "ruble" , "ruble", "ruble") policajt = Array("penny", "cent", "penny", "cent", "cent", "cent", "cent", "cent", "cent", " kopecks") Ak Suma >= 1000000000000# alebo Suma< 0 Then РубПропись = CVErr(xlErrValue): Exit Function "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If Round(Сумма, 2) >= 1 Potom intPart = Left$(Format(Sum, "000000000000.00"), 12) Pre i = 0 až 3 s = Mid$(intPart, i * 3 + 1, 3) Ak s<>"000" Potom str = str & sot(CInt(Left$(s, 1))) If Mid$(s, 2, 1) = "1" Then str = str & ten(CInt(Right$(s, 1) ))) Else str = str & des(CInt(Stred$(s, 2, 1))) & IIf(i = 2, dec(CInt(Right$(s, 1))), ed(CInt(Right$ (s, 1)))) End If On Error Resume Next str = str & IIf(Mid$(s, 2, 1) = "1", razr(3 - i) & razrEnd(i)(0), _ razr(3 - i) & razrEnd(i)(CInt(Right$(s, 1)))) On Error GoTo 0 End If Next i str = str & IIf(Mid$(s, 2, 1) = "1 ", rub(0), rub(CInt(Right$(s, 1)))) End If RubProfile = str """""""""""""""" If No_kopeks = False Then frPart = Right$(Format(Amount, "0.00"), 2) If frPart = "00" Then frPart = "" Else If CopyWritten Then frPart = IIf(Left$(frPart, 1) = "1", ten(CInt( Right $(frPart, 1))) & cop(0), _ des(CInt(Left$(frPart, 1))) & dec(CInt(Right$(frPart, 1))) & cop(CInt(Right$ ( frPart, 1)))) Inak frPart = IIf(Left$(frPart, 1) = "1", frPart & " " & policajt(0), frPart & " " & policajt(CInt(Right$(frPart, 1 ) ))) End If End If RubWriting = str & " " & frPart End If """""""""" """""""" " RubCapital = str & frPart If beginCapital Then Mid$(RubCapital, 1, 1) = UCase(Mid$(RubCapital, 1, 1)) " If beginCapital Then RubCapital = UCase(Left(RubCapital) , 1)) & Mid (RubWriting, 2) End Function

• Bez kopejok (1), s kopejkami (0)
• Penny slovami (1), číslom (0)
• Začať kurzívou (0), veľkým (1)

Tu je návod, ako sa funkcia používa

Poznámka

• Táto funkcia bude pracovať s číslami od 0 do 99999999
• Pred kopírovaním kódu prepnite rozloženie klávesnice na ruštinu (pre správne kopírovanie ruského textu)
• Kód VBA musí byť vložený do všetkých súborov ( Excel knihy), kde chcete, aby to fungovalo
• Po vložení kódu je potrebné uložiť súbor xlsm s podporou makier (v Exceli od verzie 2007)
• Funkciu je možné zadať buď ručne, alebo, ak ste zabudli, ako je napísaná, pomocou sprievodcu funkciou (tlačidlo fx na paneli vzorcov, kategória definovaná používateľom)