Infra invenies munus usoris definitum paratum in VBA qui aliquem numerum vertit ut ex 0 9 in repraesentationem suam, id est in quantitate in verbis. Ante usum, hoc munus ad librum tuum addendum est. Quia haec:
- premere tincidunt brevis Alt + F11Visual Basic Editor aperire
- adde novum inanis moduli per menu Inserere - OMNIBUS
- effingo et crustulum textum huius functionis ibi:
Function SUM(n As Double) As String Dim Nums1, Nums2, Nums3, Nums4 Variant Nums1 = Array(", "unum", "duo", "tres", "quattuor", "quinque", "sex"; "septem", "octo", "novem") Nums2 = Array(", "decem", "viginti", "triginta", "quadraginta", "quinquaginta", "sexaginta", "septuaginta", _ "octoginta". ", "nonaginta") Nums3 = Array(", "centum", "ducenti", "trecentum", "quadringentos", "quingentos", "sexcentos", "septem centum", _ octingentos, "nongentos") Nums4 = Array(", "unus", "duo", "tres", "quattuor", "quinque", "sex", "septem", "octo", "novem". ") Nums5 = Array("decem" , "undecim", "duodecim", "tredecim", "dedecim", _ "quindecim", "sedecim", "sedecim", "decem", "decem", "decem") Si n< = 0 Deinde SUMWRITE = "nulla" Exit Function Finis Si 'numerum in digitos divide utens munere adiuvantis Classis ed = Classis (n, 1) dec = Classis (n, 2) sot = Classis (n, 3) tys = Classis (n, 4) dectys = Class(n, 5) sottys = Class(n, 6) mil = Class(n, 7) decmil= Class(n, 8)' decies centena milia Select Case decmil Case 1 mil_txt = Nums5(mil ) & "decies" GoTo www Case 2 Ad 9 decmil_txt = Nums2(decmil) Finis Selecta Case mil Case 1 mil_txt = Nums1(mil) & "million" Case 2, 3, 4 mil_txt = Nums1(mil) & "million" Casus 5 Ad 20 mil_txt = Nums1(mil) & "decies" Finis Select www: sottys_txt = Nums3(sottys) ' check milia Select Case dectys Case 1 tys_txt = Nums5(tys) & "mille" GoTo eee Case 2 Ad 9 dectys_txt = Nums2(dectys) End Select Select Cas tys Case 0 Si dectys > 0 Deinde tys_txt = Nums4(tys) & "mille" Case 1 tys_txt = Nums4(tys) & "mille" Case 2, 3, 4 tys_txt = Nums4(tys) & "mille" Case 5 Ad 9 tys_txt = Nums4(tys) & "mille" End Select Si dectys = 0 And tys = 0 And sottys <>0 Then sottys_txt = sottys_txt & "mille" eee: sot_txt = Nums3(sot)' check decem Select Case dec Case 1 ed_txt = Nums5(ed) GoTo rrr Cas 2 Ad 9 dec_txt = Nums2(dec) End Select ed_txt = Nums1 (ed) rrr: 'forma ultima cum SUM IN ORATIO = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Finis Function ' Munus adiutorium extrahendi e numero digitorum Munus Privati Classis (M, I) Classis = Int(M - (10^I) * Int(M / ( X^ I))) / X^ (I - 10)) Finis Function Serva tabellam (si Praecedo 2007 vel 2010 habebis, tum fasciculi genus tortor-parabile est, id est xlsm format!) et ad Excel. Nunc munus creatum in quamlibet cellam officinae more solito inserere potes - per munus magus (button fx in formula talea, categoria ShadowMenu) vel simpliciter eam typinge in cellula manually et cellulam quantitate argumenti denotans:
Si denarios ad textum receptum addere debes, constructione paulo magis implicata uti potes;
u3d SUMMA IN SCRIPTUM (A3) & " fricabis. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"cop."
u3d SUMMA IN SCRIPTUM (A3) & " fricabis. "&TEXT((A3-INT(A100)))*00;"XNUMX″)&"cop."
Tum, exempli gratia, numero 35,15, effectus functionis videbunt sicut triginta quinque rubles. 15 kop."
- Potentiora versio functionis cum rublis et kopecks in / anglica e PLEX add-on
- Quae sunt macra, ubi tortor codici inserere, quomodo utatur?