Numéro de code dans les mots. Comment enregistrer le montant, le nombre, les chiffres des mots dans Excel. Utilisation dans des solutions typiques

Si vous doutez, lorsque vous épelez-vous maintenant ou en anglais ou en russe, utilisez notre traducteur pour chiffrer. Afin de transférer pour entrer, entrez le numéro souhaité sous forme de chiffres et que le programme calculera son écriture.

Actuellement, la limite du traducteur est une limite de 18 caractères à une virgule (pour des valeurs entières) et de 18 chiffres après une virgule (pour transférer des valeurs contenant une partie fractionnée).

Nombre:

Comme vous pouvez le constater ci-dessus, plusieurs options d'écriture anglaise sont émises pour le numéro traduit. Avec leur aide, vous pouvez déterminer la différence entre l'anglais américain (AME) et l'anglais britannique (BRE). Pour chacun d'entre eux, il peut également y avoir plusieurs options d'écriture, que l'une à utiliser dans le texte dépend du contexte de la phrase.

Ce programme s'adresse également facilement au transfert de nombres dans le texte, comme pour de langue anglaiseEt pour le russe. Ceux. Si vous devez enregistrer un nombre en mots en russe, entrez-le simplement au format numérique, puis cliquez sur le bouton "Traduire".

Désignations

Lors de la traduction en russe, le traducteur prend en compte les changements possibles de l'accouchement pour un nombre donné, qui sont indiqués par les pictogrammes suivants:
- tige femelle, - tige mâle, - tige de milieu.

En plus des chiffres, notre programme sait également comment écrire en mots divers espèces. Dans ce cas, la traduction est effectuée immédiatement en trois devises différentes: roubles, dollars et livres sterling.

Le bouton permet de basculer entre les modes "nombre en mots" et le "montant en mots".

Tout d'abord, nous nous concentrons sur les personnes qui étudient l'anglais. Langue, mais si ce traducteur est utile à quelqu'un d'autre (par exemple, lors de la fin des documents commerciaux), nous serons très heureux.

Lors de l'affichage de divers rapports, il est souvent nécessaire de convertir une valeur numérique en une chaîne en mots. En 1C, il est résolu très simplement: pour cela, la fonction de Nigalopropisus () est fournie.

Lors de la formation d'un nombre en mots, il existe un numéro d'opportunité pour retirer un autre et soumis pour calculer ce nombre dans l'accouchement et l'affaire requis. Calcul de l'objet - C'est ce qui mesure le nombre transformé, par exemple de l'argent, des tiroirs, des wagons, des téléviseurs, etc.

• Sans objet de calcul:
  • Vingt-deux;
  • Trois cent quatre-vingt quatre.
• Sous réserve du calcul:
  • Trente-huit pendes;
  • Douze navires;
  • Deux maisons.

Exemples

Pour commencer, nous donnons des exemples de la transformation pour découvrir les caractéristiques de 1C:

// ***** numéros de sortie: ***** Nigalopropisus (9876.54); // neuf mille huit cent soixante-dix six 54 Nipperropisus (1234.56, "l \u003d ru_en; dp \u003d vérité", "Tout un tout, entier, entier, f, soja, centième, des centièmes, w, 2"); // mille deux cent trente quatre cinquante six centièmes Nipperropisus (7432, "l \u003d ru_en; np \u003d mensonges", ", 0"); // sept mille quatre cent trente deux // ***** la sortie de l'argent: ***** NIPPERROPISUS (9845.11, "L \u003d RU_EN",); // neuf mille huit cent quarante cinq roubles 11 kopecks Nipperropisus (2845.11, "l \u003d ru_en; dp \u003d vérité", "Rouble, roubles, roubles, m, kopeck, penny, kopecks, g, 2"); // deux mille huit cent quarante cinq roubles onze kopecks Nipperropisus (555.16, "l \u003d ru_en; dp \u003d vérité", "Dollar, dollar, dollars, m², cents, cents, m, 2"); // cinq cent cinquante cinq dollars seize cents NIPPERROPISUS (453.23, "L \u003d ru_en; dp \u003d vérité", "Euro, euro, euro, m, cent, cents, cents, m, 2"); // quatre cent cinquante-trois euros vingt trois cents NIPPERROPISUS (812.44, "L \u003d EN_US; DP \u003d vérité", "Dollar, dollars, cent, cents, 2"); // huit cent douze dollars quarante quatre cents NIPPERROPISUS (3945.76, "L \u003d EN_US; DP \u003d vérité", "euro, euros, cent, cents, 2"); Trois Thouusand neuf cent quarante cinq euros soixante-dix six cents // ***** Vous pouvez convertir non seulement des unités de paiement: ***** NIPPERROPISUS (535, "L \u003d RU_EN", "Boîte, cases, boîtes, w, g, 0"); // cinq cent trente cinq boîtes Nipperropisus (342, "l \u003d ru_en", "TV, TV, TV, M, M, 0"); // trois cent quarante deux téléviseurs

Description du travail avec la fonction

Comme nous l'avons découvert, une fonction est utilisée pour obtenir un certain nombre d'inscriptions.

NIPPERROPISUS (< Число >, < Formatage>, < Paramétres>)

La fonction renvoie une valeur de chaîne. Comme les paramètres d'entrée sont transmis:

• Le nombre est la valeur transformée;
• Formatage - Paramètres de mise en forme:
  • L - Code de localisation (par exemple, U_RU - Russe; EN_US - English, De_de - Allemand). Les paramètres du système d'exploitation par défaut sont utilisés.
  • NP - Affiche le nom du calcul, par défaut - vérité.
  • ND - retirer le nom des parties décimales du calcul, défaut - vérité.
  • DP - partie fractionnaire avec des mots / nombre, défaut - mensonge.
  • AI - Display Union et. Analysé uniquement pour la localisation anglophone. Valeurs possibles: "comprendre", "utiliser".
• Options de paramétrage - Transférer via la virgule des paramètres d'objet Calcul. Le format dépend de la localisation.

Pour la langue russe pour calculer les paramètres d'objet sont de la forme "Rouble, Rouble, Roubles, M, Penny, Pennies, cents, puits, 2", où:

• rouble - le seul nombre de cas nominaux;
• rouble - le seul nombre de cas génitifs;
  roubles - un pluriel de cas génitif;
  M - tige mâle (w - tige femelle, c - tige de milieu);
  "Kopeck, un penny, kopecks, w" - une partie fractionnée, semblable au calcul du calcul (peut être absente);
  "2" - Le nombre de pièces de décharge (peut être absent, par défaut est 2).

Utilisation dans des solutions typiques

Dans les configurations construites, dans le module général WORKERCUURSAMIVATUT Il y a une fonction

Formumaupropise(Résumé, Monnaie, Affiche Ammubesqueek \u003d Faux)

La fonction est utilisée pour convertir les sommes de change dans la chaîne en mots.

Avoir des questions?
Demandez dans les commentaires à l'article.

Très courante tâche d'écrire des nombres en mots dans Excel. Il n'y a pas encore de fonction intégrée dans Excel, nous pouvons donc créer une fonction utilisateur qui remplacera les chiffres, le nombre de texte.

En règle générale, il est nécessaire dans le commerce, la comptabilité et d'autres domaines où les calculs sont fabriqués à partir de en espèces. Il est généralement nécessaire de traduire la quantité en roubles et un sou par des mots, comme dans l'image (le premier exemple).

Supposons que nous fabriquions des calculs dans la table et que nous obtenons un montant final dans les roubles 1526.23

Nous devons enregistrer cette figure en roubles et il est conseillé de spécifier également un sou. Pour ce faire, créez une fonction d'utilisateur universelle spéciale qui ressemblera à ceci.

Propis (montant; argent; lang; précaire)

Argent - Ici indique le type de devise, vous pouvez spécifier des roubles, des dollars et des euros («frottez», «USD», «EUR») - La monnaie est définie entre guillemets.

lang est une langue sur laquelle vous devez retirer le montant, deux langues sont disponibles en anglais et en russe ("fr", "ru") - spécifie également des citations

Préconisation précaire (1) ou ne pas montrer (0) partie fractionnée

Ainsi, vous pouvez enregistrer le montant en roubles, en dollars ou en euros en termes de lettres russes ou anglaises avec la partie fractionnée et, selon le nombre, la bonne fin sera insérée, par exemple, 2 roubles, 8 roubles, 1 rouble et ainsi de suite.

Pour créer une fonction de propice personnalisée, vous devez copier le code ci-dessous, puis appuyer sur Alt + f11Pour ouvrir un VBA, ajoutez un nouveau module vide via le menu. Insérer - Module.et insérer le code copié là-bas

Macro Utilisateur Fonction Somme en mots

Fonction Propis (montant en tant que chaîne, argent optionnel en tant que chaîne \u003d "RUB", LANG OPTIONNEL AS String \u003d "RU", FACULTATIF EST PRÉS COMPTÉ \u003d 1) DIMA ENTABLE EN TROUBLE EN TROUBLE EN TABLE MONTANT LE TABLE QUATRE \u003d REMPLACER (MONTRE, APPLICATION. xfecimalseparator)) Montant \u003d remplacer (montant, ".", Application.International (xfeCimalSeparator)) Montant \u003d remplacer (montant, ",", application.International (XldecimalSeparator)) Somme (CDBL (montant), 2) Money \u003d Ucase (Money) Lang \u003d Ucase (lang) entiers \u003d int (somme) Fraq \u003d format (rond ((somme - entiers) * 100), "00") Sélectionnez la classe de cas (entière, 1) + classe (entier, 2) * 10 cas 1, 21, 31, 41, 51, 61, 71, 81, 91 w_rus_r \u003d "Rouble" w_rus_d \u003d "dollar" w_rus_f \u003d "euro" w_en_r \u003d "rubles" w_en_d \u003d "dollars" w_en_e \u003d " Euro "Cas 2, 3, 4, 22, 23, 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_f \u003d "euro" w_en_r \u003d "rubles" w_en_d \u003d "dollars" w_en_e \u003d "euro" caisse "EURO" W_RUS_R \u003d "Roubles "w_rus_d \u003d" dollars "w_rus_f \u003d" euro "w_en_r \u003d" rubles "w_en_d \u003d" dollars "w_en_f \u003d" euro "fin de suite Sélectionnez 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 "COTTAGE" F_EN_R \u003d "KOPECKS" F_EN_D \u003d "CENTS" F_EN_E \u003d "CENTS" F_EN_E \u003d "CENTENTS" CAS 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_E \u003d "CENTS" CENTS FLORUS_R \u003d "KOPECKS" F_RUS_D \u003d "CENTS" F_RUS_R \u003d " "kopecks" f_en_d \u003d "flics" f_en_e \u003d "cents" finissez SELECT si précise \u003d 0 puis FRAQ \u003d "" F_RUS_R \u003d "" F_RUS_D \u003d "" F_EN_D \u003d "" F_EN_E \u003d "" FIND si Si lang \u003d "ru" puis sélectionnez Case Money Case "RUB" OUT \u003d SCRIPTREUS (entier) & "& W_RUS_R &" & FRAQ & "& FRAUS_R CASE" USD "OUT \u003d SCRIPTRUS (entier) et" "& w_rus_d & "" & Fraq & "" & f_RUS_ D CASE "EUR" OUT \u003d SCRIPTRUS (entier) & "" & W_RUS_E & "" & FAQ & "" & FAQ & "" & FAQ & "" & f_RUS_E FIN Sélectionnez Fin si si Lang \u003d "fr" puis sélectionnez Case de cas "Frotter" Out \u003d scripteng (entier) & "" & W_en_r & "& fraq &" "& f_en_r cas" USD "Out \u003d scripteng (entier) &" & w_en_d & "& Fraq &" "& f_en_d cas" EUR "Out \u003d scripteng (entier) & "" & W_en_e & "" & Fraq & "" & Fraq & "" & f_en_e End Sélectionnez Fin si propis \u003d Feuille de calcul.Trim (OUT) Fonction finale CLASSE DE FONCTION PRIVÉE (M, I) CLASSE \u003d INT (INT (M - (10 ^ I) * INT (M / (10 ^ I)) / 10 ^ (I - 1)) Fonction finale Fonction privée Scriptrus (N comme Double) que String Dim Nums1, Nums2, Nums3, Nums4 en tant que variante nums1 \u003d tableau ("", " "," Deux "," trois "," quatre "," cinq "," six "," sept "," huit "," neuf "nums2 \u003d tableau (" "," dix "," vingt "," trente "," quarante "," cinquante "," soixante "," soixante-dix "," quatre-vingt "," quatre-vingt dix ") nums3 \u003d (" "," cent "," deux cents "," trois cents "," trois cents "," cent "," cinq cents "," six cents "," sept cents "," dans sept cent "," neuf cent ") nums4 \u003d tableau (" "", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", neuf ") Nums5 \u003d tableau (" dix "," onze "," douze "," treize "," quatorze "," quinze "," seize "," dix-sept "," dix-huit "," dix-neuf ") si n \u003d 0 Puis scriptrus \u003d "zéro" fonction de la fonction de sortie si ed \u003d classe (n, 1) déc \u003d Classe (n, 2) sot \u003d classe (n, 3) TYS \u003d classe (n, 4) Dectys \u003d classe (n, 5) Sottys \u003d Classe (N, 6) Mil \u003d Classe (N, 7) Decmil \u003d Classe (N, 8) Sotmil \u003d Classe (N, 9) MLRD \u003d Classe (N, 10) Si MLRD\u003e 0 Sélectionnez Case MLRD Case 1 MLRD_TXT \u003d NUMS1 (MLRD) & "milliards" Cas 2, 3, 4 MLRD_TXT \u003d NUMS1 (MLRD) et milliard Cas 5 à 20 MLRD_TXT \u003d NUMS1 (MLRD) et des milliards Sélectionnez Fin si (Sotmil + Decmil + Mil)\u003e 0 Ensuite, sotmil_txt \u003d nums3 (sotmil) Sélectionnez Case DecMil Case 1 Mil_txt \u003d Nums5 (MIL) & "MILLIONS" GOTO WWW Cas 2 à 9 décmil_txt \u003d Nums2 (DecMil) End Sélectionnez Case Milf Case 1 mil_txt \u003d NU Cas 2, 3, 4 MIL_TXT \u003d Nums1 (MIL) & "MILLES" Case 0, 5 à 20 Mil_txt \u003d Nums1 (MIL) & Millions Fin Sélectionnez Fin si www: sottys_txt \u003d nums3 (sottys) Sélectionnez Case Dectes Case 1 TYS_TXT \u003d NUMS5 (TYS) & "MOÎTES" GOTO Case 2 à 9 Dectes_txt \u003d Nums2 (Dectes) End Sélectionnez Sélectionnez Case Tys Case 0 Si Dectys\u003e 0 Tys_txt \u003d Nums4 (Tys) & "" Case 1 TYS_TXTX \u003d NUMS4 (TYS) & "Mille" Cas 2, 3, 4 TYS_TXT \u003d NUMS4 (TYS) ET Cas de NUMS4 (TYS) et "MILESS" 5 à 9 TYS_TXT \u003d NUMS4 (TYS) et "MILLES" SELECT SELECT IF IF \u003d 0 et TYS \u003d 0 Et des sottys<> 0 TU SOTTYS_TXT \u003d SOTTYS_TXT \u003d SOTTYS_TXT & "MILESS" EEE: SOT_TXT \u003d NUMS3 (SOT) Sélectionnez Case Dec Case 1 ED_TXT \u003d NUMS5 (ED) GOTO RRR Case 2 à 9 déc_txt \u003d Nums2 (DEC) Entrée Sélectionnez ED_TXT \u003d NUMS1 (ED) RRR: Scriptrus \u003d mlrd_txt & sotmil_txt & sotmil_txt & decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt scriptrus \u003d ucase (gauche (Scriptrus, 1)) & plâtre (Scriptrus, 2, len (scriptrus) - 1)) Fin Fonction Fonction privée scripteng (Numéro byval sous forme de double) Dim Bigdenom en tant que chaîne, Temp tant complets de chaîne en tant que lieu de Redim entier (9) en tant que lieu de string (2) \u003d "Mille" Place (3) \u003d "Million" (4) \u003d Place "milliards" (5) \u003d "trillion" stramount \u003d garniture (Str (int (nombre)) compte \u003d 1 faire pendant le stradon<> "" Temp \u003d GetHundreds (Droite (Stramount, 3)) Si Temp<> "" Alors Bigdenom \u003d Temp & Place (Compte) & Big Denom Si Len (Stramount)\u003e 3 puis Stramount \u003d gauche (Stramount, Len (Stramount) - 3) Stramount \u003d "" fin si Count \u003d Nombre + 1 boucle Sélectionnez cas de sélection Big Denom Case "" Bigdenom \u003d "Zero" Case "Un" Bigdenom \u003d "One" Bigdenom \u003d Bigdenom & "" Sélectionnez Scripgeng \u003d Bigdenom Fonction Fonction privée GetHundreds (Byval MyNumber) Résultat AS String si Val (MyNumber) \u003d 0 puis quitter la fonction MyNumber \u003d Droite ("000" et MyNumber, 3) Si MID (MyNumber, 1, 1)<> "0" alors résultat \u003d getdigit (Mid (MyNumber, 1, 1)) & "Cent" fin si si Mid (MyNumber, 1, 1)<> "0" et (Mid (MyNumber, 2, 1)<> "0" ou milieu (myNumber, 3, 1)<> "0") Alors Résultat \u003d Résultat & "et" fin si si Mid (myNumber, 2, 1)<> "0" Résultat \u003d Résultat et gettens (MyNumber, 2)) Sinon Résultat \u003d Résultat & GetDigit (Mid (MyNumber, 3)) Findiez si gethundreds \u003d Fonction finale Fonction Fonction privée gettens (tenrstext) Dim résultat de la chaîne \u003d "" Si Val (gauche (tenstext (gauche (Tenstext, 1)) \u003d 1 puis sélectionnez Case Val (Tenstext) Case 10: Résultat \u003d "Dix" Case 11: Résultat \u003d "Onze" Cas 12: Résultat \u003d "Douze" Cas 13: Résultat \u003d Treize cas 14: résultat \u003d "quatorze" cas 15: résultat \u003d "Quinze" Cas 16: Résultat \u003d "Sixteen" Cas 17: Résultat \u003d "Dix-sept" Cas 18: Résultat \u003d "Dix-huit" Cas 19: Résultat \u003d "Dix-neuf" cas Selier Select Select sino Select Val (gauche (Tenstext, 1)) Case 2: Résultat \u003d "Vingt" Cas 3: Résultat \u003d "Trente" Cas 4: Résultat \u003d "Quarante" Cas 5: Résultat \u003d "Cinquante" Case 6: Résultat \u003d "soixante" cas 7: résultat \u003d "soixante-dix" cas 8: Résultat \u003d "Quatre-vingt" Case 9: Résultat \u003d "NIINTY XINTY" CASE SELECTION Résultat \u003d Résultat et getDigit _ (droite (tenstext, 1)) fin si gettens \u003d Résultat Fonction finale Fonction privée GetDigit (D IGIT) Sélectionnez Case Val (chiffre) Case 1: GetDigit \u003d "One" Cas 2: GetDigit \u003d "Deux" Cas 3: GetDigit \u003d "Trois" Cas 4: GetDigit \u003d "Quatre" Cas 5: GetDigit \u003d "Cinq" Cas 6 : Getdigit \u003d "six" cas 7: getdigit \u003d "Seven" Cas 8: getdigit \u003d "huit" cas 9: getdigit \u003d "neuf" case: getdigit \u003d "" fin de fin de sélection

Donc, la fonction est créée pour l'utiliser, entrez simplement la cellule de propis avec les arguments nécessaires, par exemple, si nous devons enregistrer le montant en mots dans les roubles avec Penny et en russe, la formule ressemblera à cela.

Propis (B2; "Frotter"; "ru"; 1)

Chiffres en mots avec des lettres de penny ou minuscules dans Excel

Voici le code VBA pour la fonction utilisateur. Affiche le montant en mots avec Kopecks et le choix du premier titre ou une lettre minuscule

Fonction Rubpearius (comme double, uf_kopek en option comme boolean \u003d false, _ copprope en option comme boolean \u003d false, optionnelle à partir de Boolean \u003d true) en tant que chaîne "Fonction pour écrire le montant dans les mots DIM ED, DES, SOTS, TEN, RAZR, DEC Sombre i comme entier, str comme string, s string sombre intparpart comme chaîne, Frapart comme chaîne Dim Mlnend, TSCend, Razrend, RUB, COP DEC \u003d ("", "One" "," TROIS "," TROIS ", QUATRE "," Cinq "," six "," sept "," huit "," neuf "éd \u003d tableau (", "one", "deux", "trois", "quatre", "cinq", "cinq", six "," Sept "," huit "," neuf ") dix \u003d tableau (" dix "," onze "," douze "," Treize "," quatorze "," quinze "," seize ans "," dix-sept ans ", "Dix-huit", "dix-neuf") des \u003d tableau ("" "," "," vingt "," trente "," quarante "," cinquante "," soixante "," quatre-vingt-dix "," quatre-vingt-dix ") Sot \u003d tableau ("", "cent", "deux cents", "trois cents", "quatre cents", "cinq cents", "six cents", "sept cents", "huit cents", "neuf cent ") RAZR \u003d Array (" "," Mille "," millions "," milliards "," milliards ") mlnend \u003d tableau (" ov "," "", "A" A "," A "," A "," , "s", "s", "s") TSCEND \u003d tableau ("", "A", "et" "," et "", "" "," "", "" ", Razrend \u003d Array (MLNEND, MLNEND, TSCEND, "") RUB \u003d Array ("Rouble", "Rouble", "Rubble", "Rubble", "Rubble", "Roubles", "Roubles", "Roubles", "Roubles", "Roubles", "Roubles" "," Roubles ") COP \u003d Array (" Kopecks "," Kopecks "," Kopecks "," Kopecks "," Kopecks "," Kopecks "," Kopecks "," Kopecks "," Kopecks ") Si somme\u003e \u003d 1000000000000 # ou somme< 0 Then РубПропись = CVErr(xlErrValue): Exit Function "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If Round(Сумма, 2) >\u003d 1 alors intpart \u003d gauche $ (format (somme, "000000000000.00"), 12) pour i \u003d 0 à 3 s \u003d moyen $ (intTPart, i * 3 + 1, 3) si s<> "000" puis str \u003d str & sot (cint (gauche (S, 1))) si moyend $ (S, 2, 1) \u003d "1", alors str \u003d str & dix (cint (s) )))) STR \u003d STR \u003d STR & DES (CINT (MID $ (S, 2, 1))) & iIF (I \u003d 2, Dec (CINT (S, 1))), ED (CINT (DROIT $) (S, 1)))) Finfer si sur Erreur Reprise Next Str \u003d Str & IIF (Mid $ (S, 2, 1) \u003d "1", RAZR (3 - I) & RAZREND (I) (0) _ RAZR (3 - I) & Razrend (i) (CINT (s, 1) $ (S, 1)))) Sur erreur goto 0 extrémité si STR \u003d STR & IIF (MID $ (S, 2, 1) \u003d "1" , frotter (0), frotter (cint (s) (s, 1)))) finalement si rubpropis \u003d str "" "" "" "" "" "" "" "" "SI BEZ_KOPEECK \u003d FALSELT \u003d Droit $ (format (montant «0.00»), 2) si frPart \u003d "00" puis frpiart \u003d "" sinon si koppropisyu puis frpiart \u003d iif (gauche $ (FRPart, 1) \u003d "1", dix (cint ($) (frère, 1))) & COP (0), _ des (CINT (gauche $ (FRPART, 1))) & Dec (CINT (Droit $ (FRPART, 1))) & CINT (FRPART) , 1)))) € FrPart \u003d iif (gauche $ (FrPart, 1) \u003d "1", FRPART & "" & COP (0), Frart et "" & COP (CINT $ (FRPART, 1)) )) Fin si fin si rubpropenei \u003d str & "" & FRPart fin si "" "" "" "" "" "" "" "" "" "" "Rubptarisa \u003d strart si bourré-en-ligne puis mi $ (rubparisa, 1, 1) \u003d ucase (mi $ (rubparisa, 1, 1))" si rubptropi \u003d ucase (Gauche, 1)) et milieu (rubptropii, 2) Fonction finale

• Sans kopecks (1), avec kopecks (0)
• Spear en mots (1), nombre (0)
• Commencez par mots (0), titre (1)

C'est ainsi que la fonction est utilisée.

Noter

• Cette fonctionnalité fonctionnera avec des nombres de 0 à 99 999 999
• Avant de copier le code, passez la disposition du clavier en russe (pour la copie correcte du texte russe)
• Le code VBA doit être inséré dans tous les fichiers (Excel Books), où vous voulez qu'il fonctionne
• Après avoir inséré le code, vous devez enregistrer le support de fichier Macros XLSM (dans Excel, à partir de 2007)
• La fonction peut être comprise en manuel ou si vous avez oublié comment il est écrit, via l'assistant de fonction (bouton fx. Dans la chaîne de formule, catégorie utilisateur)