Anba a ou pral jwenn yon fonksyon ki pare itilizatè-defini nan VBA ki tradui nenpòt nimewo soti nan 0 9 nan reprezantasyon tèks li yo, sa vle di nan kantite lajan an nan mo. Anvan w itilize, fonksyon sa a dwe ajoute nan liv ou a. Pou sa:
- peze rakoursi klavye a ALT + F11pou ouvri Editè Visual Basic
- ajoute nouvo modil vid atravè meni Mete – Modil
- kopye epi kole tèks fonksyon sa a la:
Fonksyon SUM(n Kòm Double) Kòm String Dim Nums1, Nums2, Nums3, Nums4 Kòm Variant Nums1 = Array ("", "yon sèl", "de", "twa", "kat", "senk", "sis", "sèt", "uit", "nèf") Nums2 = Array ("", "dis", "ven", "trant", "karant", "senkant", "swasant", "swasanndis", _ "katreven ", "katrevendis") Nums3 = Array ("", "san", "desan", "twasan", "katsan", "senk san", "sisan", "sèt san", _ " uitsan", "nèf san") Nums4 = Array ("", "yon sèl", "de", "twa", "kat", "senk", "sis", "sèt", "uit", "nèf". ") Nums5 = Array ("dis " , "onz", "douz", "trèz", "katòz", _ "kenz", "sèz", "disèt", "diswit", "diznèf") Si n < = 0 Lè sa a, SUMWRITE = "zewo" Sòti Fonksyon Fen Si 'divize nimewo a an chif lè l sèvi avèk fonksyon asistans Klas ed = Klas (n, 1) dec = Klas (n, 2) sot = Klas (n, 3) tys = Klas (n, 4) dectys = Klas (n , 5) sottys = Klas (n, 6) mil = Klas (n, 7) decmil = Klas (n, 8) 'check million Select Case decmil Case 1 mil_txt = Nums5(mil ) & "milyon " AleTo www Case 2 To 9 decmil_txt = Nums2(decmil) End Select Select Case mil Case 1 mil_txt = Nums1(mil) & "milyon" Ka 2, 3, 4 mil_txt = Nums1 (mil) & "milyon" Ka 5 rive 20 mil_txt = Nums1(mil) & "millions " End Select www: sottys_txt = Nums3(sottys) ' tcheke dè milye Chwazi Case dectys Case 1 tys_txt = Nums5(tys) & "thousands " AleTo eee Ka 2 a 9 dectys_txt = Nums_txt Fen Chwazi Chwazi Ka tys Ka 2 Si dectys > 0 Lè sa a, tys_txt = Nums0(tys) & "mil " Ka 4 tys_txt = Nums1 (tys) & "mil " Ka 4, 2, 3 tys_txt = Nums4 (tys) & " Ka 4 a 5 tys_txt = Nums9(tys) & "dè milye" Fen Chwazi Si dectys = 4 Ak tys = 0 Ak sottys <> 0 Lè sa a, sottys_txt = sottys_txt & "dè milye" eee: sot_txt = Numscheck (sot) dec Ka 0 ed_txt = Nums3(ed) GoTo rrr Ka 1 A 5 dec_txt = Nums2(dec) Fen Chwazi ed_txt = Nums9 (ed) rrr: 'fòme dènye ranje a ak SUM NAN LAPARAL = decmil_ txt & mil_txtx & sottx_txt tys_txt & sot_txt & dec_txt & ed_txt End Fu nction ' fonksyon èd pou ekstrè soti nan kantite chif Fonksyon Prive Klas (M, I) Klas = Int (Int (M - (2 ^ I) * Int (M / (1 ^ I))) / 10 ^ (I - 10)) Fen Fonksyon Sove fichye a (si w gen Excel 2007 oswa 2010, Lè sa a, kalite fichye a dwe makro-pèmèt, sa vle di fòma xlsm!) epi retounen nan Excel. Koulye a, ou ka mete fonksyon an kreye nan nenpòt selil nan fèy travay la nan fason nòmal la - atravè sòsye an fonksyon (bouton fx nan ba fòmil, kategori Itilizatè defini) oswa tou senpleman pa tape li nan selil la manyèlman epi espesifye selil la ak kantite lajan an kòm yon agiman:
Si ou bezwen ajoute peni nan tèks la resevwa, Lè sa a, ou ka itilize yon konstriksyon yon ti kras pi konplèks:
u3d SÒM EKRI (A3) & ” fwote. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”polis.”
u3d SÒM EKRI (A3) & ” fwote. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"polis."
Lè sa a, pou egzanp, pou nimewo a 35,15, rezilta a nan fonksyon an pral sanble ak "trant-senk rubles. 15 kop.”
- Yon vèsyon ki pi pwisan nan fonksyon an ak rubles ak kopèk nan / angle soti nan PLEX ajoute sou
- Ki sa ki makro, ki kote yo mete kòd macro, ki jan yo sèvi ak yo