Quì sottu truverete una funzione definita da l'utilizatori pronta in VBA chì traduce qualsiasi numeru da 0 à 9 in a so rapprisintazioni testuale, vale à dì in a quantità in parolle. Prima di usu, sta funzione deve esse aghjuntu à u vostru libru. Per questu:
- appughjà u scurciatu di tastiera ALT + F11per apre u Visual Basic Editor
- aghjunghje un novu modulu viotu via menu Inserisce - Modulu
- copià è incollà u testu di sta funzione quì:
Funzione SUM(n As Double) As String Dim Nums1, Nums2, Nums3, Nums4 As Variant Nums1 = Array ("", "unu", "dui", "trè", "quattru", "cinque", "sei", "sette", "ottu", "nove") Nums2 = Array ("", "dieci", "vinti", "trenta", "quaranta", "cinquanta", "sessanta", "settanta", _ "ottanta ", "novanta") Nums3 = Array ("", "centu", "duicentu", "trecentu", "quattru centu", "cinquecentu", "sei centu", "settecentu", _ " ottucentu", "nove centu") Nums4 = Array ("", "unu", "dui", "trè", "quattru", "cinque", "sei", "sette", "ottu", "nove ") Nums5 = Array ("dieci", "undici", "dodici", "tredici", "quattordici", _ "quindici", "sedici", "diciassette", "diciottu", "diciannove") If n < = 0 Allora SUMWRITE = "zero" Exit Function End If 'dividi u numeru in cifre utilizendu a funzione helper Class ed = Class (n, 1) dec = Class (n, 2) sot = Class (n, 3) tys = Class (n, 4) dectys = Class (n , 5) sottys = Class (n, 6) mil = Class (n, 7) decmil = Class (n, 8) 'check million Select Case decmil Case 1 mil_txt = Nums5 (mil ) & "milioni " GoTo www Case 2 à 9 decmil_txt = Nums2 (decmil) End Select Select Case mil Case 1 mil_txt = Nums1 (mil) & "million" Case 2, 3, 4 mil_txt = Nums1 (mil) & "million" Case 5 à 20 mil_txt = Nums1 (mil) & "millions " End Select www: sottys_txt = Nums3 (sottys) ' verificate mille Selezziunà Case dectys Case 1 tys_txt = Nums5 (tys) & "migliaia" GoTo eee Case da 2 a 9 dectys_txt = Nums_txt End Select Select Case tys Case 2 If dectys > 0 then tys_txt = Nums0(tys) & "thousands" Case 4 tys_txt = Nums1(tys) & "thousand" Case 4, 2, 3 tys_txt = Nums4(tys) & "thous" Case da 4 a 5 tys_txt = Nums9(tys) & "migliaia" End Select If dectys = 4 And tys = 0 And sottys <> 0 Allora sottys_txt = sottys_txt & "migliaia" eee: sot_txt = Numscheck (sot) dec Case 0 ed_txt = Nums3 (ed) GoTo rrr Case 1 To 5 dec_txt = Nums2 (dec) End Select ed_txt = Nums9 (ed) rrr: 'formate l'ultima fila cù SUM IN SPEECH = decmil_ txt & mil_txt & sottx_ & sottx_ tys_txt & sot_txt & dec_txt & ed_txt End Fu nction 'funzione d'aiutu per estrattà da u numeru di cifre Classe di funzione privata (M, I) Classe = Int (Int (M - (2 ^ I) * Int (M / (1 ^ I))) / 10 ^ (I - 10)) Funzione di fine Salvà u schedariu (se avete Excel 2007 o 2010, allora u tipu di schedariu deve esse macro-attivatu, vale à dì u formatu xlsm!) È torna in Excel. Avà pudete inserisce a funzione creata in ogni cellula di u fogliu di travagliu in u modu di solitu - attraversu l'assistente di funzione (buttone fx in formula bar, categuria Definitu da l'Usuariu) o simpricimenti scrivitelu in a cellula manualmente è specificendu a cellula cù a quantità cum'è argumentu:
Sè avete bisognu di aghjunghje centesimi à u testu ricevutu, pudete aduprà una custruzzione un pocu più cumplessa:
u3d SOMMA IN SCRITTURA (A3) & ” rub. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"cop."
u3d SOMMA IN SCRITTURA (A3) & ” rub. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"cop."
Allora, per esempiu, per u numeru 35,15, u risultatu di a funzione serà cum'è "trenta-cinque rubles. 15 cop.
- Una versione più putente di a funzione cù rubli è kopecks in / inglese da u PLEX add-on
- Chì sò i macros, induve inserisce u codice macro, cumu aduprà