Numer kodu w słowach. Jak zarejestrować kwotę, numer, figury słowami w programie Excel. Użyj w typowych rozwiązaniach

Jeśli wątpisz, jak przeliterujesz teraz lub inne w języku angielskim lub w języku rosyjskim, użyj naszego tłumacza do cyfry. W celu przesłania, aby wejść, wprowadź żądany numer w postaci numerów, a program obliczy swoje pisanie.

Obecnie limit tłumacza jest limit 18 znaków do przecinka (dla wartości liczb całkowitych) i 18 cyfr po przecinku (do transferu wartości zawierających część frakcyjną).

Numer:

Jak widać powyżej, wyemitowano kilka opcji do pisania angielskiego dla przetłumaczonego numeru. Z ich pomocą, możesz określić różnicę między angielskim amerykańskim (ame) a brytyjskim angielskim (BRE). Dla każdego z nich można uzyskać również kilka opcji pisania, które z których korzysta w tekście zależy od kontekstu zdania.

Ten program jest równie łatwy w łatwych radzeniu z transferem numerów do tekstu, jak dla języka angielskiegoI dla rosyjskiego. Te. Jeśli chcesz nagrać numer słów w języku rosyjskim, po prostu wprowadź go w formacie numerycznym i kliknij przycisk "Przekłada".

Oznaczenia

Tłumaczenie na rosyjski, tłumacz uwzględnia możliwe zmiany przez poród dla danej liczby, które są wskazane przez następujące piktogramy:
- Ręka, - Mężczyzna pręt, - środkowy pręt.

Oprócz liczb, nasz program również wie, jak pisać słowa różne gotówki. W tym przypadku tłumaczenie przeprowadza się natychmiast na trzy różne waluty: rubli, dolary i funty szterling.

Przycisk służy do przełączenia między trybami "Numer słowami" a "kwotą słowami".

Przede wszystkim skupiamy się na ludziach studiujących angielski. Język, ale jeśli ten tłumacz jest przydatny dla kogoś innego (na przykład, wykonując dokumenty biznesowe), będziemy bardzo szczęśliwi.

Podczas wyświetlania różnych raportów jest często konieczne, aby przekształcić wartość liczbową w ciągu słów. W 1C rozwiązuje się bardzo proste: w tym celu zapewnione jest funkcja nigalopropisus ().

Podczas tworzenia numeru słowami istnieje numer szansy do wycofania innego i podlega obliczeniu tej liczby w wymaganym porodzie i sprawie. Rachunek obiektu. - To właśnie mierzy przekształcony numer, na przykład pieniądze, szuflady, wagony, telewizory itp.

• Bez przedmiotu obliczeń:
  • Dwadzieścia dwa;
  • Trzysta osiemdziesiąt cztery.
• Z przedmiotem obliczeń:
  • Trzydzieści osiem dachów;
  • Dwanaście statków;
  • Dwa domy.

Przykłady.

Aby rozpocząć, podajemy przykłady transformacji, aby znaleźć funkcje 1C:

// ***** Numery wyjściowe: ***** Nigalopropisus (9876.54); // dziewięć tysięcy osiemset siedemdziesiąt sześć 54 Nipperropisus (1234.56, "L \u003d Ru_en; DP \u003d Truth", "Cała, całość, F, Soja, setna, setne, W, 2"); // Tysiąc dwieście trzydzieści cztery całe pięćdziesiąt sześć setnych Nipperropisus (7432 ", L \u003d Ru_en; NP \u003d Lies", ", 0"); // siedem tysięcy czterysta trzydzieści dwa // ***** Wyjście pieniędzy: ***** Nipperropisus (9845.11, "L \u003d Ru_en",); // dziewięć tysięcy osiemset czterdzieści pięć rubli 11 kopieje Nipperropisus (2845.11, "L \u003d Ru_en; DP \u003d Truth", "Rubel, Ruble, Ruble, M, Kopeck, Penny, Kopecki, G, 2"); // dwa tysiące osiemset czterdzieści pięć rubli jedenastu kopieje Nipperropisus (555.16, "L \u003d Ru_en; DP \u003d Truth", "Dolar, dolar, dolary, m, centów, centów, centów, m, 2"); // pięćset pięćdziesiąt pięć dolarów szesnaście centów Nipperropisus (453.23 ", L \u003d Ru_en; DP \u003d Truth", "Euro, euro, euro, m, centów, centów, centów, m, 2"); // czterysta pięćdziesiąt trzy euro dwadzieścia trzy centy Nipperropisus (812,44 ", L \u003d en_us; dp \u003d prawda", "Dolar, dolary, centów, centów, 2"); // osiemset dwunastu dolarów czterdzieści cztery centów Nipperropisus (3945.76, "L \u003d en_us; DP \u003d Truth", "Euro, euro, cent, centów, 2"); Trzy thouusand dziewięćset czterdzieści pięć euro siedemdziesiąt sześć centów // ***** Możesz konwertować nie tylko jednostki gotówkowe: ***** Nipperropisus (535, "L \u003d Ru_en", "Pudełko, pudełka, pudełka, w, g, 0"); // pięćset trzydzieści pięć pudełek Nipperropisus (342 "L \u003d Ru_en", "TV, TV, TV, M, M, 0"); // trzysta czterdzieści dwa telewizory

Opis pracy z funkcją

Jak dowiedzieliśmy, funkcja służy do uzyskania wielu rejestracji.

Nipperropisus (< Число >, < Format.>, < Parametentacje>)

Funkcja zwraca wartość ciągu. Ponieważ parametry wejściowe są przesyłane:

• Numer jest przekształconą wartością;
• Formatowanie - Parametry formatowania:
  • L - Kod lokalizacji (na przykład U_ru - rosyjski; en_us - angielski, de_de - niemiecki). Używane są domyślne ustawienia systemu operacyjnego.
  • NP - Wyświetl nazwę rachunku, domyślnie - prawda.
  • Nd - wycofać nazwę części dziesiętnych rachunku, domyślnie - prawda.
  • DP - część frakcjonalna z słowami / numerem, domyślnie - kłamstwo.
  • AI - Unia Wyświetl i. Analizowany tylko dla lokalizacji anglojęzycznej. Możliwe wartości: "Zrozum", "Użyj".
• Opcje parametentacyjne - Przeniesienie przecinka parametrów obiektów rachemontusowych. Format zależy od lokalizacji.

W języku rosyjskim parametry obiektów obliczeniowych mają formularz "rubel, rubel, ruble, m, grosz, grosz, kopecki, f, 2", gdzie:

• rubel - jedyna liczba obudowa nominalna;
• rubel - jedyna liczba przypadków nachylenia;
  Ruble - liczba mnoga obudowy genetycznego;
  M - Męski pręt (W - żeński pręt, C - środkowy pręt);
  "Kopeck, Penny, Kopecks, W" - część ułamkowa, podobna do przedmiotu rachunku rachunku (może być nieobecna);
  "2" - liczba części wyładowczych (może być nieobecna, domyślnie 2).

Użyj w typowych rozwiązaniach

W konfiguracjach zbudowanych w module ogólnym WorkercursSamivatut. Jest funkcja

Formumupropise.(Podsumowanie, waluta, Wyświetla ammubesqueek. \u003d Fałsz)

Funkcja służy do konwersji suwaków walutowych w ciągu słów.

Mieć pytania?
Zapytaj w komentarze do artykułu.

Bardzo popularne zadanie zapisu numerów słów w Excelu. Nie ma jeszcze funkcji wbudowanej w programie Excel, więc możemy utworzyć funkcję użytkownika, która zastąpi liczby, liczbę tekstu.

Z reguły jest to wymagane w handlu, rachunkowości i innych obszarach, w których wykonane są obliczenia gotówka. Zwykle konieczne jest tłumaczenie ilości rubli i grosza słowami, jak na zdjęciu (pierwszy przykład).

Przypuśćmy, że wykonujemy pewne obliczenia w tabeli i otrzymujemy ostateczną kwotę w rublach 1526.23

Musimy zarejestrować tę liczbę w rublach i wskazane jest również określenie grosza. Aby to zrobić, utworzyć specjalną uniwersalną funkcję użytkownika, która będzie tak wyglądać.

Propi (kwota; pieniądze; Lang;

Pieniądze - tutaj wskazuje rodzaj waluty, można określić rubli, dolary i euro ("RUB", "RUB", "EUR") - waluta definiuje się w cytatach.

lang jest językiem, na którym musisz wycofać kwotę, dostępne są dwa języki angielskie i rosyjskie ("EN", "RU") - również określają w cytatach

Pre are - pokaż (1) lub nie pokazuj (0) części frakcyjnej

W ten sposób można zarejestrować kwotę w rublach, dolarach lub euro słowami literami rosyjskich lub angielskich wraz z częścią ułamkową, a w zależności od liczby poprawny koniec zostanie wstawiony, na przykład 2 rubli, 8 rubli, 1 rubel i tak dalej.

Aby utworzyć funkcję niestandardową propą, musisz skopiować poniższy kod, a następnie naciśnij Alt + f11.Aby otworzyć VBA, dodaj nowy moduł pusty przez menu Wstaw - moduł.i wstaw tam skopiowany kod

Suma funkcji użytkownika makro w słowach

Propis funkcji (ilość jako ciąg, opcjonalne pieniądze jako łańcuch \u003d "RUB", opcjonalny Lang jako łańcuch \u003d "RU", opcjonalnie Pre Pre Coll \u003d 1) Dim całości jako podwójna ilość \u003d Wymień (kwota, "-", aplikacja .international ( XldeciMalseparator)) Ilość \u003d Wymień (ilość ".", Zastosowanie.International (Xldecimalseparator)) Ilość \u003d Wymień (kwota, ",", aplikacja.International (xldecimalseparator)) Sum \u003d WorksheetFunction.round (CDBL (Ilość), 2) Money \u003d Ucona (Money) Lang \u003d Ucona (Lang) Cała \u003d int (suma) FRAQ \u003d Format (runda ((suma - całość) * 100), "00") Wybierz klasę przypadku (całość, 1) + klasa (całość, 2) * 10 przypadek 1, 21, 31, 41, 51, 61, 71, 81, 91 w_rus_r \u003d "rubel" w_rus_d \u003d "dolar" w_rus_e \u003d "euro" w_en_r \u003d "ruble" w_en_d \u003d "dolary" w_en_e \u003d " Euro "Case 2, 3, 4, 22, 22, 24, 32, 43, 34, 52, 53, 54, 62, 53, 54, 62, 53, 54, 52, 53, 54, 72, 73, 92 , 93, 94 W_RUS_R \u003d "RUBBLE" W_RUS_D \u003d "Dollar" W_RUS_E \u003d "Euro" W_EN_R \u003d "Rubles" W_EN_D \u003d "Dolary" W_EN_E \u003d "Euro" Case inly W_Rus_R \u003d "Ruble "W_RUS_D \u003d" Dolary "W_RUS_E \u003d" Euro "W_EN_R \u003d" Rubles "w_en_d \u003d" Dolary "W_EN_E \u003d" Euro "End Select Select Case Fraq Case 1, 21, 31, 41, 51, 61, 71, 81, 91 F_rus_r \u003d "Penny" f_rus_d \u003d "cent" f_rus_e \u003d "cent" f_rus_p \u003d "domek" F_EN_R \u003d "Kopecks" F_EN_D \u003d "CENTS" F_EN_E \u003d "CENTS" F_EN_E \u003d "CENTS" Case 2, 3, 4, 22, 23, 24, 32, 33, 34, 42, 43, 44, 52, 53, 54, 44, 52, 53, 54, 62, 63, 64, 72, 73, 74, 82, 83, 84, 92, 93, 94 F_RUS_R \u003d "Penny" F_rus_d \u003d "cent" F_RUS_E \u003d "COPECKS" F_EN_D \u003d "Kopecks" F_EN_D \u003d "CENTS" F_EN_D \u003d "CENTS" CASE ELSE F_RUS_R \u003d "Kopecks" F_rus_d \u003d "CENTS" F_RUS_E \u003d "CENTS" F_RUS_R \u003d "Kopecki" F_EN_D \u003d "COPS" F_EN_E \u003d "CENTS" wybierz, jeśli Pre Pre Pre Pre \u003d 0, a następnie FRAQ \u003d "" F_RUS_R \u003d "" F_RUS_D \u003d "F_RUS_E \u003d" "F_EN_R \u003d" "F_EN_D \u003d" "F_EN_E \u003d" "koniec Jeśli lang \u003d "ru", a następnie wybierz Case Money Case "RUB" Out \u003d Scriptrus (całość) & "& W_RUS_R &" i FRAQ & "& F_RUS_R Case" USD "Out \u003d Scriptrus (całość) &" & W_Rus_D & "& Fraq &" i f_rus_ D Przypadku "EUR" Out \u003d Scriptrus (całość) & "& W_Rus_e &" & Fraq & "& f_rus_e End Select End If Lang \u003d" EN "Następnie wybierz Case Money Case" RUB "Out \u003d Scripteng (całość) & "& W_EN_R &" "& FRAQ &" "& F_EN_R Case" USD "Out \u003d Scripteng (całość) &" & W_EN_D & "" & FRAQ & "& F_EN_D Case" EUR "Out \u003d Scripteng (całość) & "& W_EN_E &" "& FRAQ &" & F_EN_E SELECT SELECT END IF Propis \u003d WorksheetFunction.trim (out) Funkcja końcowa Prywatna funkcja Klasa (M, I) Class \u003d Int (int (M - (10 ^ I) * Int (m / (10 ^ I)) / 10 ^ (I - 1)) Funkcja końcowa Prywatna funkcja Scriptrus (N jako podwójna) Jak String Dim Nums1, Nums2, Nums3, Nums4 jako wariant Nums1 \u003d Array ("," One "," dwa "," trzy "," cztery "," pięć "," sześć "," siedem "," osiem "," dziewięć ") nums2 \u003d array (" "," dziesięć "," dwadzieścia "," Trzydzieści "," czterdzieści "," pięćdziesiąt "," sześćdziesiąt "," siedemdziesiąt "," osiemdziesiąt "," dziewięćdziesiąt ") nums3 \u003d tablica (" "," sto "," dwieście "," trzysta "," cztery " sto "," pięćset "," sześćset "," siedemset "," w siedemset "," dziewięćset ") nums4 \u003d tablica (" "," jeden "," dwa "," trzy "," cztery "," pięć "," sześć "," siedem "," osiem "," dziewięć " ") Nums5 \u003d tablica (" dziesięć "," jedenaście "," dwanaście "," trzynaście "," czternaście "," piętnaście "," szesnaście "," siedemnaście "," osiemnaście "," dziewiętnaście "), jeśli n \u003d 0 Następnie SCRIPTRUS \u003d "Zero" Exit Function End IF ED \u003d Class (N, 1) DEC \u003d Klasa (N, 2) SOT \u003d Klasa (N, 3) Tys \u003d Klasa (N, 4) DECTYS \u003d Klasa (N, 5) Sottys \u003d klasa (N, 6) Mil \u003d Klasa (N, 7) Decmil \u003d Class (N, 8) Sotmil \u003d Klasa (N, 9) MLRD \u003d Klasa (N, 10) Jeśli MLRD\u003e 0 Następnie wybierz przypadek MLRD 1 MLRD_TXT \u003d Nums1 (MLRD) & "Miliard" Case 2, 3, 4 mlrd_txt \u003d Nums1 (mlrd) i miliard futerał 5 do 20 mlrd_txt \u003d nums1 (mlrd) i miliardy końcowe końcowe zakończenie Jeśli jeśli (Sotmil + Decmil + Mil)\u003e 0 Następnie sotmil_txt \u003d nums3 (sotmil) Wybierz przypadek Decmoil Case 1 mil_txt \u003d nums5 (MIL) & "Millions" Goto WWW Case 2 do 9 Decmil_txt \u003d Nums2 (decmil) End Select Select Case Case 1 mil_txt \u003d nu MS1 (MIL) i "Million" Case 2, 3, 4 mil_txt \u003d nums1 (MIL) i "Million" Case 0, 5 do 20 mil_txt \u003d nums1 (MIL) i miliony końcowe Wybierz koniec Jeśli www: sottys_txt \u003d nums3 (sottys) Wybierz Case Decces Case 1 Tys_txt \u003d Nums5 (TIS) & "Tysiące" Goto Eee Case 2 do 9 Dectes_txt \u003d Nums2 (DECTE) END Wybierz Wybierz Case Tys Case 0 Jeśli DEDYS\u003e 0 Następnie Tys_txt \u003d Nums4 (TS) & "" Case 1 Tys_txt \u003d nums4 (TYS) & "Thousand" Case 2, 3, 4 Tys_txt \u003d Nums4 (TYS) & "Tysiące" Case 5 do 9 Tys_txt \u003d Nums4 (TIS) & "Tysiące" End Select Jeśli decys \u003d 0 i Tys \u003d 0 I sottys.<> 0 Następnie sottys_txt \u003d sottys_txt & "Tyscy" EEE: SOT_TXT \u003d Nums3 (SOT) Wybierz Case Case 1 ED_TXT \u003d nums5 (ED) GOTO RRR Case 2 do 9 Dec_txt \u003d Nums2 (DEC) End Select ED_TXT \u003d Nums1 (ED) RRR: SCRIPTRUS \u003d MLRD_TXT & SOTMIL_TXT & DECMIL_TXT & MIL_TXT & SOTTYS_TXT & DECTISTS_TXT & TYS_TXT & SOT_TXT & DEC_TXT & ED_TXT SCRIPTRUS \u003d Ucona (w lewo (Scriptrus, 1)) & LCe (Mid (Scriptrus, 2, Len (Scriptrus) - 1)) Funkcja Prywatna funkcja Scripteng (numer biaval jako podwójny) Dim Bigdenom jako łańcuch, TEMP jako string Dim Liczba jako Integer Redim Place (9) jako miejsce (2) \u003d "Tysiące" miejsce (3) \u003d "Million" Place (4) \u003d "Milion" miejsce (5) \u003d "bilion" Stramount \u003d wykończenie (STR (INT (numer)) Liczba \u003d 1 Zrób, podczas gdy stramount<> "" TEMP \u003d Gethundreds (w prawo (Strapount, 3)) Jeśli Temp<> "Wówczas BigDenom \u003d Temp & Place (Count) & Big Denom If Len (Strapount)\u003e 3 Następnie Stramount \u003d Left (Strapount, Len (Strapount) - 3) ELSE STRAMOUNT \u003d" "End IF Liczba \u003d Count + 1 Loop Select Case Case Big Denom Case "" BigDenom \u003d "Zero" Case "One" BigDenom \u003d "One" ELSELY BIGDENOM \u003d BIGDENOM & "" End Select Scripteng \u003d Bigdenom End Funkcja Prywatna funkcja Gethundreds (BYVAL MUNBumber) Dim Wynik jako String IF Val (myNumber) \u003d 0 Następnie wyjście Funkcja MyNumber \u003d Right ("000" i MyNumber, 3) Jeśli Mid (MyNumber, 1, 1)<> "0" Następnie wynik \u003d GetDigit (Mid (MyNumber, 1, 1)) i "sto", jeśli jeśli w połowie (myNumber, 1, 1)<> "0" i (Mid (MyNumber, 2, 1)<> "0" lub Mid (myNumber, 3, 1)<> "0") Następnie wynik \u003d wynik i "i" koniec, jeśli jeśli w połowie (myNumber, 2, 1)<> "0" Następnie wynik \u003d Wynik i GetTens (MID (MYNBumber, 2)) ELERS RESTER \u003d Wynik i GetDigit (Mid (Med (MyNumber, 3)) End Jeśli Gethundreds \u003d Wynik Funkcja końcowa Prywatna funkcja GetTens (Tenstext) Dim Wynik jako wynik ciągów \u003d "" Jeśli Val (w lewo (Tenstext, 1)) \u003d 1 Następnie wybierz Case Val (Tenstext) Case 10: Wynik \u003d "Dziesięć" Case 11: Wynik \u003d "Jedenaście" Case 12: Wynik \u003d "Dwunastu" Case 13: Wynik \u003d Trzynaście Case 14: Wynik \u003d "Czternaście" Case 15: Wynik \u003d "Piętnaście" Case 16: Wynik \u003d "Szesnaście" Case 17: Wynik \u003d "Siedemnaście" Case 18: Wynik \u003d "Osiemnaście" Case 19: Wynik \u003d "dziewiętnaście" przypadek Else End Select Select Select Case Val (Left (Tenstext, 1)) Case 2: Wynik \u003d "Dwadzieścia" Case 3: Wynik \u003d "Trzydzieści" Przypadek 4: Wynik \u003d "Forty" Case 5: Wynik \u003d "Pięćdziesiąt" Case 6: Wynik \u003d "Sześćdziesiąt" Case 7: Wynik \u003d "Siedemdziesiąt" Case 8: Wynik \u003d "osiemdziesiąt" Case 9: Wynik \u003d "dziewięćdziesiąt" ELSE ELSE ENSE SEEL Wybierz wynik \u003d Funkcja końcowa wyników Prywatna funkcja GetDigit (D Igit) Wybierz Case Val (cyfry) Case 1: GetDigit \u003d "One" Case 2: GetDigit \u003d "Two" Case 3: GetDigit \u003d "Trzy" Case 4: GetDigit \u003d "Four" Case 5: GetDigit \u003d "Pięć" Case 6 : GetDigit \u003d "Six" Case 7: GetDigit \u003d "Siedem" Case 8: GetDigit \u003d "Osiem" Case 9: GetDigit \u003d "Dziewięć" Case Else: GetDigit \u003d "" Zakończ funkcję końcową

Tak więc funkcja jest tworzona, aby go używać, wystarczy wpisać komórkę propiza z niezbędnymi argumentami, na przykład, jeśli musimy zarejestrować kwotę słowami w rubli z groszem i rosyjskim, wtedy formuła będzie tak wygląda.

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

Numery słowami z grosze lub małymi literami w Excelu

Oto kod VBA dla funkcji użytkownika. Wyświetla kwotę słowami z Kopecks i wyborem pierwszego tytułu lub małej litery

Funkcja Rubpearius (jako podwójny, opcjonalny UF_Kopek jako Boolean \u003d False, _ Opcjonalny Copprops jako Boolean \u003d False, opcjonalne uruchomienie jak Boolean \u003d true) jako ciąg "Funkcja do pisania kwoty słowami Mimo Ed, Des, Sot, Ten, Razr, DEC Dim I jako liczby całkowitej, str. String, Sring Dim Nutpart jako łańcuch, Frapart jako string Dim Mlnend, Tscend, Razrend, RUB, COP DEC \u003d tablica ("", "One", "dwa", "trzy", "cztery "," Pięć "," sześć "," siedem "," osiem "," dziewięć ") ed \u003d array (", "jeden", "dwa", "trzy", "cztery", "pięć", "sześć "," Siedem "," osiem "," dziesięć ") dziesięć \u003d array (" dziesięć "," jedenaście "," dwanaście "," trzynaście "," czternaście "," piętnaście "," szesnaście "," siedemnaście ", "Osiemnaście", "dziewiętnaście") des \u003d array ("", "," dwadzieścia "," trzydzieści "," czterdzieści "," pięćdziesiąt "," sześćdziesiąt "," siedemdziesiąt "," osiemdziesiąt "," dziewięćdziesiąt ") Sot \u003d Array ("", "Set", "dwieście", "trzysta", "czterysta", "pięćset", "sześćset", "siedemset", "osiemset", "dziewięćset ") Razr \u003d Array (" "," Tysiąc "," Million "," miliard ") mlnend \u003d tablica (" OV "," "," A "," A "," A "," Ov "," " , "S", "S", "S") TSkend \u003d Array ("", "A", "i", "i", "," "," ",", "", "") Razrend \u003d Tablica (mlnend, mlnend, tscend, "") RUB \u003d tablica ("ruble", "rubel", "gruz", "gruz", "gruz", "ruble", "rubli", "rubli", "rubli "," Ruble ") COP \u003d Array (" Kopecks "," Kopeck "," Kopecks "," Kopecks "," Kopecks "," Kopecks "," Kopecks "," Kopecks "," Kopecks "," Kopecks ") Jeśli suma\u003e \u003d 1000000000000 # lub suma< 0 Then РубПропись = CVErr(xlErrValue): Exit Function "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If Round(Сумма, 2) >\u003d 1 Następnie INTPART \u003d Left $ (format (suma, "0000000000000000.00"), 12) dla I \u003d 0 do 3 S \u003d w połowie $ (intpart, I * 3 + 1, 3), jeśli s<> "000", a następnie str \u003d Str & Sot (Cint (lewa $ (s, 1))) Jeśli w połowie $ (S, 2, 1) \u003d "1", Thr \u003d Str & Ten (Cint (tuż $ (s, 1) ))) ELSE STR \u003d ST & DES (CINT (w połowie $ (S, 2, 1))) i IIF (I \u003d 2, DEC (Cint (tuż za $, 1))), ED (Cint (tuż za $ (S, 1)))) Koniec, jeśli ON ERROR Wznów następne str \u003d Str & IIF (w połowie $ (s, 2, 1) \u003d "1", RAZR (3 - I) i Razrend (I) (0), _ RAZR (3 - I) & RAZREND (I) (Cint (prawy $ (s, 1)))) Na ERROR GOTO 0 END Jeśli następny I str \u003d Str & IIF (w połowie $ (S, 2, 1) \u003d "1 ", RUB (0), RUB (Cint (Prawa $ (S, 1)))) End jeśli Rubpropis \u003d str" "" "" "" "" "" "" "" "" "" "" "" "IF Bez_Kopeek \u003d False, a następnie Frpart \u003d Right $ (format (ilość "0,00"), 2) Jeśli frpart \u003d "00", a następnie Frpart \u003d "" Else jeśli Koppropisyu następnie Frpart \u003d IIF (lewy $ (Frpart, 1) \u003d "1", dziesięć (klitu (prawy $ (Frpart, 1))) i COP (0), _ des (Cint (Left $ (Frpart, 1))) & Dec (Cint (tuż $ (Frpart, 1))) i COL (Cint (tuż za $ ( Frpart, 1)))) ELSE FRPART \u003d IIF (Left $ (Frpart, 1) \u003d "1", Frpart & "& Cop (0), Frpart &" & COP (Cint (tuż $ (Frpart, 1) ))) Koniec, jeśli koniec, jeśli Rubpropenei \u003d Str & "" & Frpart End Jeśli "" "" "" "" " "" "" "" "" "Rubptarisa \u003d Str & Frart, jeśli wypchany wtedy wtedy w połowie $ (Rubptarisa, 1, 1) \u003d Ucona (w połowie $ (Rubptarisa, 1, 1))" Jeśli StartPropisnaya następnie Rubptropi \u003d Ucona (Lewa, 1)) i MID (Rubptropii, 2) Funkcja końcowa

• Bez Kopecks (1), z Kopecks (0)
• Włócznia w słowach (1), liczba (0)
• Zacznij od słów (0), tytuł (1)

W ten sposób używany jest funkcja.

Uwaga

• Ta funkcja będzie działać z numerami od 0 do 99 999 999
• Przed skopiowaniem kodu przełącz układ klawiatury na rosyjski (dla właściwej kopii tekstu rosyjskiego)
• Kod VBA musi być włożony do wszystkich plików (książki Excel), gdzie chcesz pracować
• Po wstawieniu kodu musisz zapisać obsługę pliku XLSM Macros (w Excelu, począwszy od 2007)
• Funkcja może być pobierana do ręcznego, albo jeśli zapomniałeś, jak jest zapisany, za pomocą Kreatora funkcji (przycisk fX. W ciągu wzoru, kategoria użytkownika)