Numero di codice in parole. Come registrare la quantità, il numero, le figure in parole in Excel. Utilizzare in soluzioni tipiche

Se dubiti, mentre si scrive ora o altro in inglese o in russo, usa il nostro traduttore per il numero. Per trasferire per entrare, inserire il numero desiderato sotto forma di numeri e il programma calcolerà la sua scrittura.

Attualmente, il limite del traduttore è un limite di 18 caratteri a una virgola (per valori interi) e 18 cifre dopo una virgola (per trasferire valori contenenti parte frazionaria).

Numero:

Come puoi vedere sopra, diverse opzioni per la scrittura inglese sono rilasciate per il numero tradotto. Con il loro aiuto, puoi determinare la differenza tra American English (AME) e inglese britannico (BRE). Per ognuno di essi, potrebbero esserci anche alcune opzioni di scrittura, che si utilizzano nel testo dipende dal contesto della frase.

Questo programma è facilmente copre facilmente con il trasferimento di numeri nel testo, come per della lingua ingleseE per il russo. Quelli. Se è necessario registrare un numero in parole in russo, basta inserirlo nel formato numerico e fai clic sul pulsante "Traduci".

Designazioni

Quando si traduce in russo, il traduttore tiene conto delle possibili modifiche del parto per un determinato numero, che sono indicate dai seguenti pittogrammi:
- Asta femminile, - asta maschile, - asta centrale.

Oltre ai numeri, il nostro programma sa anche come scrivere in parole vari contanti. In questo caso, la traduzione viene eseguita immediatamente in tre diverse valute: rubli, dollari e sterline.

Il pulsante viene utilizzato per passare da una modalità "Numero in parole" e "Quantità in parole".

Prima di tutto, ci concentriamo sulle persone che studiano l'inglese. Lingua, ma se questo traduttore è utile per qualcun altro (ad esempio, quando completa i documenti aziendali), saremo molto felici.

Quando si visualizzano vari report, è spesso necessario convertire un valore numerico in una stringa a parole. In 1C, è risolto molto semplicemente: per questo è fornita la funzione di Nigalopropisus ().

Durante la formazione di un numero a parole, c'è un numero di opportunità per prelevare un altro e soggetto a calcolare questo numero nel parto e nella custodia richiesti. Oggetto calcolo. - Questo è ciò che misura il numero trasformato, ad esempio denaro, cassetti, carri, TV, ecc.

• Senza un oggetto di calcolo:
  • Ventidue;
  • Trecentoottantaquattro.
• Con l'oggetto del calcolo:
  • Trentotto deroni;
  • Dodici navi;
  • Due case.

Esempi

Per cominciare, forniamo esempi della trasformazione per scoprire le caratteristiche del 1C:

// Numeri di uscita *****: ***** Nigalopropiso (9876.54); // nove migliaia ottocento settantasei 54 Nipperropisus (1234.56, "l \u003d ru_en; dp \u003d verità", "Un intero, intero, intero, f, soia, centesimo, centesimi, w, 2"); // mille duecentotrentaquattro quattro cinquantasei centesimi Nipperropisus (7432, "l \u003d ru_en; np \u003d bugie", ", 0"); // settemilaquattrocentotrentadue // ***** L'output di denaro: ***** Nipperropisus (9845.11, "l \u003d ru_en",); // nove migliaia ottocentoquarantacinque rubli 11 kopecks Nipperropisus (2845.11, "l \u003d ru_en; dp \u003d verità", "Rublo, rubli, rubli, m, kopeck, penny, kopecks, g, 2"); // duemila ottocentoquarantacinque rubli undici kopecks Nipperropisus (555.16, "l \u003d ru_en; dp \u003d verità", "Dollaro, dollaro, dollari, m, centesimi, centesimi, centesimi, m, 2"); // cinquecentocinquantacinque dollari sedici centesimi Nipperropisus (453.23, "l \u003d ru_en; dp \u003d verità", "Euro, euro, euro, m, centesimo, centesimi, centesimi, m, 2"); // Quattrocentocinquantatrè euro ventitré centesimi Nipperropisus (812.44 ", l \u003d en_us; dp \u003d verità", "Dollaro, dollari, centesimi, centesimi, 2"); // ottocento dodici dollari quarantaquattro centesimi Nipperropisus (3945.76, "l \u003d en_us; dp \u003d verità", "euro, euro, centesimi, centesimi, 2"); Tre Thouus e novecentoquarantacinque euro settantasei centesimi // ***** È possibile convertire non solo le unità di cassa: ***** Nipperropisus (535, "l \u003d ru_en", "Box, scatole, scatole, w, g, 0"); // cinquecentotrentacinque scatole Nipperropisus (342, "l \u003d ru_en", "TV, TV, TV, M, M, 0"); // trecentoquaranta due televisori

Descrizione del lavoro con la funzione

Come abbiamo scoperto, una funzione viene utilizzata per ottenere un numero di registrazione.

Nipperropiso (< Число >, < Formatrock.>, < Parametazioni>)

La funzione restituisce un valore di stringa. Come vengono trasmessi i parametri di input:

• Il numero è il valore trasformato;
• Formattazione - Parametri di formattazione:
  • L - codice di localizzazione (ad esempio, u_ru - russo; en_us - inglese, de_de - tedesco). Le impostazioni predefinite del sistema operativo vengono utilizzate.
  • NP: visualizza il nome del calcolo, per impostazione predefinita - verità.
  • ND - Ritirare il nome delle parti decimali del calcolo, predefinito - verità.
  • DP - Parte frazionaria con parole / numero, default - bugia.
  • AI - Display Union e. Analizzato solo per la localizzazione di lingua inglese. Valori possibili: "Comprendi", "Usa".
• Opzioni di paramezione - Trasferimento attraverso la virgola dei parametri dell'oggetto del calcolo. Il formato dipende dalla localizzazione.

Per la lingua russa, i parametri dell'oggetto del calcolo hanno il modulo "rublo, rublo, rubli, m, un centesimo, un centesimo, kopecks, f, 2", dove:

• rublo - l'unico numero di custodia nominale;
• rublo - l'unico numero di custodia genitiva;
  rubli - un plurale di custodia genitiva;
  M - Asta maschile (w - femmina asta, c - medio asta);
  "Kopeck, un centesimo, kopecks, w" - una parte frazionata, simile al soggetto di calcolo (può essere assente);
  "2" - Il numero di parti di scarico (può essere assente, per impostazione predefinita è 2).

Utilizzare in soluzioni tipiche

Nelle configurazioni integrate, nel modulo generale Workercursamivatut. C'è una funzione

Formulumupropise.(Riassunto, valuta, Visualizza AmMubesqueek. \u003d Falso)

La funzione viene utilizzata per convertire somme di valuta nella stringa a parole.

Avere domande?
Chiedi nei commenti all'articolo.

Compito molto comune per scrivere numeri in parole in Excel. Non c'è ancora funzione incorporata in Excel, quindi possiamo creare una funzione utente che sostituirà i numeri, il numero di testo.

Di norma, è richiesto in commercio, contabilità e altre aree in cui sono fatti i calcoli contanti. Di solito è necessario tradurre la quantità in rubli e un centesimo in parole, come nell'immagine (il primo esempio).

Supponiamo di fare alcuni calcoli nella tabella e otteniamo una quantità definitiva in rubli 1526.23

Dobbiamo registrare questa figura in rubli ed è consigliabile specificare anche un centesimo. Per fare ciò, creare una speciale funzione utente universale che sarà simile a questa.

Propis (importo; denaro; Lang; prec)

SOLDI - Qui indica il tipo di valuta, è possibile specificare rubli, dollari ed euro ("RUB", "USD", "EUR") - La valuta è definita nelle citazioni.

lang è una lingua su cui è necessario ritirare la quantità, due lingue sono disponibili in inglese e russo ("IT", "ru") - anche specificare nelle citazioni

Prec - mostra (1) o non mostrare (0) parte frazionaria

Pertanto, è possibile registrare l'importo in rubli, dollari o euro a parole di lettere russe o inglesi insieme alla parte frazionata, e, a seconda del numero, la fine corretta sarà inserita, ad esempio 2 rubli, 8 rubli, 1 rublo e così via.

Per creare una funzione di propis personalizzata, è necessario copiare il codice qui sotto, quindi premere ALT + F11.Per aprire un VBA, aggiungere un nuovo modulo vuoto attraverso il menu Inserisci - Modulo.e inserire il codice copiato lì

Macro funzione utente Somma a parole

Propis funzione (importo come stringa, denaro opzionale come stringa \u003d "strofina", opzionale Lang come stringa \u003d "ru", opzionale prec come intero \u003d 1) Dim intera come doppia importo \u003d sostituzione (importo, "-", applicazione. xldecimalseparator)) importo \u003d sostituzione (importo ".", application.international (xldecimalseparator)) importo \u003d sostituzione (importo ",", application.international (xldecimalseparator)) Sum \u003d foglio di lavoroFunction.Round (CDBL (importo), 2) Soldi \u003d ucase (soldi) lang \u003d ucase (lang) intero \u003d int (somma) fraq \u003d formato (rotondo ((((somma - intero) * 100), "00") Selezionare Case Classe (intera, 1) + Classe (intera, 2) * 10 Caso 1, 21, 31, 41, 51, 61, 71, 41, 51, 61, 71, 81, 91, 61, 71, 81, 91 W_RUS_R \u003d "rublo" w_rus_d \u003d "dollaro" w_rus_e \u003d "euro" w_en_r \u003d "rubles" w_en_d \u003d "dollari" w_en_e \u003d " Euro "Caso 2, 3, 4, 22, 23, 24, 32, 43, 34, 52, 53, 54, 62, 53, 54, 62, 53, 54, 54, 62, 53, 54, 52, 53, 54, 72, 73, 92 , 93, 94 w_rus_r \u003d "macerie" w_rus_d \u003d "dollaro" w_rus_e \u003d "euro" w_en_r \u003d "rubles" w_en_d \u003d "dollari" w_en_e \u003d "euro" caso qualcun altro w_rus_r \u003d "rubli "w_rus_d \u003d" dollari "w_rus_e \u003d" euro "w_en_r \u003d" rubles "w_en_d \u003d" dollari "w_en_e \u003d" Euro "Seleziona fine Seleziona Caso Caso Fraq 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 "centesimi" f_en_e \u003d "centesimi" f_en_e \u003d "centesimi" caso 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, 72, 73, 74, 82, 83, 84, 94, 82, 83, 84, 94, 94, 93 94 f_rus_r \u003d "penny" f_rus_d \u003d "centes" f_rus_e \u003d "centecks" f_en_d \u003d "kopecks" f_en_d \u003d "centesimi" f_en_e \u003d "centesimi" custodia caso f_rus_r \u003d "kopecks" f_rus_d \u003d "centesimi" f_rus_e \u003d "centesimi" f_en_r \u003d "Kopecks" f_en_D \u003d "Cops" f_en_e \u003d "centesimi" End Selezionare se prec \u003d 0 THEN 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 "" END IF Se Lang \u003d "RU", quindi selezionare Caso Caso di denaro "RUB" OUT \u003d Scriptrus (intero) & "& w_RUS_R &" "& FRAQ &" "& f_rus_R &" "USD" out \u003d scriptrus (intero) & "" & w_rus_d & "" & Fraq & "" & f_rus_ D Caso "EUR" out \u003d Scriptrus (intero) & "" & w_rus_e & "" & fraq & w_rus_e & "hel end Select End IF se se Lang \u003d" en ", quindi selezionare Caso di denaro" RUB "OUT \u003d ScriptGeng (intero) & "" & W_en_r & "" & fraq & "e f_en_r caso" USD "out \u003d scripteng (intero) &" "& w_en_d &" "& fraq &" & f_en_d caso "eur" out \u003d scriptng (intero) & "" & W_en_e & "" & fraq & "" & f_en_e End Select End Se propis \u003d worksheetfunction.trim (out) Funzione finale Funzione Privata Classe (M, I) Class \u003d INT (INT (M - (10 ^ I) * Int (m / (10 ^ i)) / 10 ^ (i-1)) Funzione di fine funzione di funzioni private scriptrus (n raddoppia) come stringa dim nums1, nums2, nums3, nums4 come variante nums1 \u003d array ("," uno "," Due "," tre "," quattro "," cinque "," sei "," sette "," otto "," nove ") nums2 \u003d array (" "," dieci "," venti "," trenta "," quaranta "," cinquanta "," sessanta "," settanta "," ottanta "," novanta ") nums3 \u003d array (" "," centinaia "," duecento "," trecento "," quattro centinaia "," cinquecento "," seicento "," settecento "," in settecento "," novecento ") nums4 \u003d array (" "," uno "," due "," tre "," quattro "," cinque "," sei "," sette "," otto "," nove ") Nums5 \u003d array (" dieci "," undici "," dodici "," tredici "," quattordici "," quindici "," sedici "," diciassette "," diciotto "," diciannove ") se n \u003d 0 Quindi Scriptrus \u003d "zero" EXIT FUNCTION FINE IF ED \u003d CLASSE (N, 1) DEC \u003d CLASS (N, 2) SOT \u003d CLASS (N, 3) TYS \u003d CLASS (N, 4) DECTYS \u003d CLASSE (N, 5) Sottys \u003d class (n, 6) mil \u003d class (n, 7) decmil \u003d class (n, 8) sotmil \u003d class (n, 9) mlrd \u003d class (n, 10) se mlrd\u003e 0 Seleziona caso MLRD Case 1 MLRD_TXT \u003d Nums1 (MLRD) & "miliardi" Caso 2, 3, 4 mlrd_txt \u003d Nums1 (MLRD) e miliardi Caso da 5 a 20 mlrd_txt \u003d nums1 (mlrd) e miliardi End Select End IF IF (Sotmil + Decmil + MIL)\u003e 0 Quindi sotmil_txt \u003d nums3 (sotmil) Selezionare Caso Decmil case 1 mil_txt \u003d nums5 (mil) e "milioni" goto www caso 2 a 9 decmil_txt \u003d nums2 (decmil) End Seleziona Seleziona Caso Mil Case 1 Mil_txt \u003d Nu MS1 (MIL) & "Million" caso 2, 3, 4 mil_txt \u003d Nums1 (mil) e "milioni" Caso 0, da 5 a 20 mil_txt \u003d Nums1 (mil) e milioni End Select Select End Se www: sottys_txt \u003d nums3 (Sottys) Selezionare Caso Custodia Caso 1 Tys_txt \u003d Nums5 (TYS) & "Migliaia" GOTO EEE caso 2 a 9 DECTS_TXT \u003d NUMS2 (DECTE) END Seleziona Seleziona Caso Tys Case 0 se DECTS\u003e 0 THYS_TXT \u003d Nums4 (TYS) & "" Caso 1 Tys_txt \u003d Nums4 (TYS) & "Mille" Caso 2, 3, 4 TYS_TXT \u003d NUMS4 (TYS) & "Migliaia" Caso da 5 a 9 TYS_TXT \u003d Nums4 (TYS) e "Migliaia" END Seleziona se DeCYS \u003d 0 e TYS \u003d 0 E Sottys.<> 0 Sottys_txt \u003d Sottys_txt & "migliaia" Eee: Sot_txt \u003d Nums3 (Sot) Selezionare Caso Dice Case 1 ED_TXT \u003d Nums5 (ED) GOTO RRR Caso da 2 a 9 dec_txt \u003d nums2 (DEC) End Selezionare ED_TXT \u003d Nums1 (ED) RRR: Scriptrus \u003d mlrd_txt & sotmil_txt & decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sotsys_txt & dec_txt & ed_txt scriptrus \u003d ucase (sinistra (Scriptrus, 1)) & Lcase (Mid (Scriptrus, 2, Len (Scriptrus) - 1)) End Funzione Private Function ScriptGENG (numero byval Number raddoppio) Dim Bigdenom come stringa, temp come stringa Dim Count come INTEGER Redim Place (9) come String Place (2) \u003d "Mille" Place (3) \u003d "Million" Place (4) \u003d "Miliardo" Place (5) \u003d "Trillion" Stramount \u003d Trim (STR (INT (Number)) Count \u003d 1 DO mentre Stramount<> "" Temp \u003d gethundreds (a destra (Stramount, 3)) Se Timp<> "" Allora Bigdenom \u003d Temp & Place (Count) & Big Denom se Len (Stramount)\u003e 3 poi Stramount \u003d Sx (Stramount, Len (Stramount) - 3) Else Stramount \u003d "" END se COUNT \u003d Count + 1 CASO SELECT Caso Big Denom "" BigDenom \u003d "Zero" Caso "One" BigDenom \u003d "One" Custodia BigDenom \u003d BigDenom & "" End Select ScriptGeng \u003d Bigdenom Fine Function Funzione privata GetHundreds (ByVal MyNumber) Dim Risultato come stringa se Val (MyNumber) \u003d 0 quindi Funzione di uscita Mynumber \u003d Destra ("000" e MyNumber, 3) Se metà (MyNumber, 1, 1)<> "0" Allora Risultato \u003d GetDigit (Mid (Mid Number, 1, 1)) & "Centosed" End Se se Medio (MyNumber, 1, 1)<> "0" e (Mid (Mynumber, 2, 1)<> "0" o metà (mynumber, 3, 1)<> "0") Allora il risultato \u003d Risultato & "e" Fine se se se a metà (MyNumber, 2, 1)<> "0" Allora Risultato \u003d Risultato e Get (Mid (Mynumber, 2)) Else Risultato \u003d Risultato e GetDigit (Mid (Mynumber, 3)) End Se GetHundreds \u003d Funzione finale del risultato Funzione privata Gettutens (Tenstext) Dim Risultato come risultato stringa \u003d "Se Val (a sinistra (Tenstext, 1)) \u003d 1 Quindi selezionare Caso Val (Tenstext) Caso 10: Risultato \u003d" Dieci "Caso 11: Risultato \u003d" Eleven "Caso 12: Risultato \u003d" Dodici "Caso 13: Risultato \u003d Tredici Caso 14: Risultato \u003d "Quattordici" Caso 15: Risultato \u003d "Quindici" Caso 16: Risultato \u003d "Sedici" Caso 17: Risultato \u003d "Diciassette" Caso 18: Risultato \u003d "Diciotto" Caso 19: Risultato \u003d Caso "diciannove" Altro End Select Select End Select Case Val (a sinistra (Tenstext, 1)) Caso 2: Risultato \u003d "Venti" Caso 3: Risultato \u003d "Trenta" Caso 4: Risultato \u003d "Quaranta" Caso 5: Risultato \u003d "Cinquanta" Caso 6: Risultato \u003d "sessanta" Caso 7: Risultato \u003d "Settanta" Caso 8: Risultato \u003d "ottanta" Caso 9: Risultato \u003d "Novanta" Caso di custodia End End Select Risultato \u003d Risultato e GetDigit _ (a destra (Tenstext, 1)) End Se GetTen \u003d Funzione finale del risultato Funzione privata GetDigit (D Igit) Selezionare Caso Val (Digit) Caso 1: GetDigit \u003d "One" Caso 2: GetDigit \u003d "Due" Caso 3: GetDigit \u003d "Tre" Caso 4: GetDigit \u003d "Four" Caso 5: GetDigit \u003d "Five" Case 6 : GetDigit \u003d "Sei" Caso 7: GetDigit \u003d "Seven" Caso 8: GetDigit \u003d "Otto" Caso 9: GetDigit \u003d "Nove" Caso Custodia: GetDigit \u003d "" End Seleziona la funzione End

Quindi, la funzione viene creata per usarlo, inserire semplicemente la cella di propisa con gli argomenti necessari, ad esempio, se dobbiamo registrare l'importo in parole in rubli con Penny e in russo, allora la formula sarà simile a questa.

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

Numeri in parole con lettere cuscinetti o minuscole in Excel

Ecco il codice VBA per la funzione utente. Mostra la quantità in parole con kopecks e la scelta del primo titolo o lettera minuscola

Funzione Rubpearius (AS doppio, opzionale UF_Kopek come booleano \u003d False, _ Optional Copprope AS Boolean \u003d false, opzionale partire come booleano \u003d True) AS String funzioni" per la scrittura l'importo in lettere DIM ED, DES, SOT, TEN, RAZR, DEC DIM I AS INTEGER, STR AS STRING, S STRING DIM INTPART come stringa, FRAPART come stringa DIM MLNEND, TSCEND, RAZREND, RUB, COP dicembre \u003d Array ( "", "One", "Two", "Tre", "Quattro "" Five "" Sei "" Seven "" Otto "" Nine ") ED \u003d Array (", "One", "Two", "Tre", "Quattro", "Five", "Six "" Seven "" otto "" Nove ") Dieci \u003d Array (" Ten "" Undici "" Dodici "" Tredici "" Quattordici "" Quindici "" Sedici "" Seventeen ", "Diciotto", "diciannove") des \u003d array ( "", "", "venti", "trenta", "quaranta", "cinquanta", "sessanta", "settanta", "ottanta", "novanta") Sot \u003d array ("", "centinaia", "duecento", "trecento", "quattrocento", "cinquecento", "seicento", "settecento", "ottocento", "novecento ") Razr \u003d Array (" "" mille "" Million "" miliardi ") Mlnend \u003d Array (" OV "" "" A "" A "" A "" OV "" " , "s", "s", "s ") tscend \u003d array ("", "a", "e", "e", " "", "", "", ""," ") Razrend \u003d Array (Mlnend, Mlnend, Tscend, " ") RUB \u003d Array (" rubli", "rublo", "Detriti", "Detriti", "Detriti", "rubli", "rubli", "rubli", "rubli " "rubli") Cop \u003d Array ( "copechi", "soldo", "kopecks", "kopecks", "kopecks", "kopecks", "kopecks", "kopecks", "kopecks"," kopecks ") se sum\u003e \u003d 1000000000000 # O somma< 0 Then РубПропись = CVErr(xlErrValue): Exit Function "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If Round(Сумма, 2) >\u003d 1 Poi intpart \u003d Left $ (Format (somma, "000.000.000.000,00"), 12) per i \u003d 0 a 3 s \u003d Mid $ (intpart, I * 3 + 1, 3) se s<> "000" Allora str \u003d str & sot (cint (sinistra $ ((s, 1)))) se metà $ (2, 1) \u003d "1" poi str \u003d str & Ten (Cint (a destra $ (s, 1 ))) ELSE STR \u003d STR & DES (Cint (MID $ (S, 2, 1))) & IIF (i \u003d 2, dicembre (Cint ($ destro (S, 1))), ED (Cint ($ Destra (S, 1)))) End If Resume ON Errore successivo STR \u003d STR & IIF (MID $ (S, 2, 1) \u003d "1", RAZR (3 - I) e RAZREND (I) (0), _ Razr (3 - I) & Razrend (I) (I) (Cint (destra $ (1))))) On Error GOTO 0 FINE se Avanti I STR \u003d STR & IIF (Mid $ (S, 2, 1) \u003d "1 "RUB (0), RUB (Cint ($ destro (s, 1)))) End If Rubplove \u003d STR" "" "" "" "" "" "" "" "" "" "" "" " " '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''" " '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''" " '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''" " '' '' '' '' '' '' '' '' '' '' '' ''« ' '' '' '' '' '' '' '' '' '' '' ''' " "" "" "" "" "" ""\u003d $ destro (Format (somma, 0.00 "), 2) se FRPart \u003d" 00 "Allora frpart \u003d"" ELSE IF coppropsype Poi FRPART \u003d IIF (Left $ (FRPart , 1) \u003d "1", Ten (Cint ($ destro (FRPART, 1))) & Cop (0), _ DES (Cint (Left $ (FRPart, 1))) & dicembre (Cint ($ destro (FRPart , 1)) e COP (CINT (RIGHT $ (FRPart, 1)))) ELSE FRPART \u003d IIF (Left $ (FRPart, 1) \u003d "1", FRPART & "" & COP (0), FRART & "" e COP (CINT (Right $ (FRPart, 1)))) End If End If Rubpropenei \u003d STR & "" & FRPART END IF "" "" "" "" "" "" "" "" "" "" "" "Ruptarisa \u003d str & frart se riempito-in-line Allora a metà $ (ruptarisa, 1, 1) \u003d ucase (metà $ (ruptarisa, 1, 1))" Se Startpropisnaya allora RUBPtropi \u003d ucase (sinistra, 1)) e MID (Rubptropii, 2) End Function

• Senza kopecks (1), con copechi (0)
• Lancia in parole (1), il numero (0)
• Inizia con le parole (0), titolo (1)

Ecco come viene utilizzata la funzione.

Nota

• Questa caratteristica funziona con i numeri da 0 a 99 999 999
• Prima di copiare il codice, cambiare il layout della tastiera in russo (per la copia corretta del testo russo)
• codice VBA deve essere inserito in tutti i file di Excel (libri), dove si desidera che il lavoro
• Dopo aver inserito il codice, è necessario salvare il supporto di file macro XLSM (in Excel, a partire dal 2007)
• La funzione può essere tagliato in manuale o se ti sei dimenticato come è scritto, tramite la funzione Wizard (pulsante fx. Nella stringa formula, categoria di utenza)