Hér að neðan finnur þú tilbúna notendaskilgreinda aðgerð í VBA sem þýðir hvaða tölu sem er frá 0 til 9 inn í textaframsetningu þess, þ.e. í magni í orðum. Fyrir notkun verður að bæta þessari aðgerð við bókina þína. Fyrir þetta:
- ýttu á flýtilykla ALT + F11til að opna Visual Basic Editor
- bæta við nýrri tómri einingu í gegnum valmyndina Settu inn - Eining
- afritaðu og límdu texta þessarar aðgerðar þar:
Aðgerð SUM(n Sem tvöfalt) Sem Strengur Dimma Nums1, Nums2, Nums3, Nums4 Sem Variant Nums1 = Array("", "einn", "tveir", "þrír", "fjórir", "fimm", "sex", "sjö", "átta", "níu") Nums2 = Array("", "tíu", "tuttugu", "þrjátíu", "fjörutíu", "fimmtíu", "sextíu", "sjötíu", _ "átta" ", "níutíu") Nums3 = Array("", "eitthundrað", "tvö hundruð", "þrjú hundruð", "fjögur hundruð", "fimm hundruð", "sex hundruð", "sjö hundruð", _ " átta hundruð", "níu hundruð") Nums4 = Array("", "einn", "tveir", "þrjú", "fjórir", "fimm", "sex", "sjö", "átta", "níu" ") Nums5 = Array("tíu ", "ellefu", "tólf", "þrettán", "fjórtán", _ "fimtán", "sextán", "sutján", "átján", "nítján") Ef n < = 0 Þá SUMWRITE = "núll" Hætta aðgerð End If 'deila tölunni í tölustafi með því að nota hjálparfallið 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) 'athugaðu milljónir Veldu Case decmil Case 1 mil_txt = Nums5(mil ) & "milljónir " Farðu á www.tilfelli 2 til 9 decmil_txt = Nums2(decmil) End Veldu veldu tilfelli mil Case 1 mil_txt = Nums1(mil) & "million" Case 2, 3, 4 mil_txt = Nums1(mil) & "million " Mál 5 Til 20 mil_txt = Nums1(mil) & "milljónir " End Veldu www: sottys_txt = Nums3(sottys) ' athuga þúsundir Veldu Case dectys Case 1 tys_txt = Nums5(tys) & "thousands " Farðu í eee Case 2 Til 9 dectys_txt Nums2(dectys) End Veldu Veldu tilfelli tys mál 0 Ef dectys > 0 Þá tys_txt = Nums4(tys) & "þúsundir " Mál 1 tys_txt = Nums4(tys) & "þúsund " Tilfelli 2, 3, 4 tys_txt = Nums4(tys) & "þúsundir " Tilfelli 5 Til 9 tys_txt = Nums4(tys) & "þúsundir " End Select If dectys = 0 Og tys = 0 Og sottys <> 0 Þá sottys_txt = sottys_txt & "þúsundir" eee: sot_txt = Nums3(sot) ' athuga tugi Veldu Case dec Case 1 ed_txt = Nums5(ed) GoTo rrr Case 2 To 9 dec_txt = Nums2(des) End Veldu ed_txt = Nums1 (ed) rrr: 'myndaðu lokalínuna með SUM IN SPEECH = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Lokaaðgerð ' hjálparaðgerð til að draga úr fjölda tölustafa Private Function Class(M, I) Class = Int(Int(M - (10 ^ I) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) Lokafall Vistaðu skrána (ef þú ert með Excel 2007 eða 2010, þá verður skráargerðin að vera makróvirk, þ.e. xlsm snið!) og farðu aftur í Excel. Nú er hægt að setja skapaða aðgerðina inn í hvaða reit sem er á vinnublaðinu á venjulegan hátt - í gegnum aðgerðahjálpina (hnappur fx í formúlustiku, flokki Notandi skilgreindur) eða einfaldlega með því að slá það inn í reitinn handvirkt og tilgreina hólfið með upphæðinni sem rök:
Ef þú þarft að bæta smáaurum við móttekinn texta, þá geturðu notað aðeins flóknari byggingu:
u3d SUMMA IN WRITE (A3) & ” nudda. “&TEXT((A3-HEILTAL(A100))*00;”XNUMX″)&”lögga.”
u3d SUMMA IN WRITE (A3) & ” nudda. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”lögga.”
Þá, til dæmis, fyrir töluna 35,15, mun niðurstaða fallsins líta út eins og „þrjátíu og fimm rúblur. 15 kop.”
- Öflugri útgáfa af aðgerðinni með rúblum og kopekjum á / ensku frá PLEX viðbótinni
- Hvað eru fjölvi, hvar á að setja inn fjölvakóða, hvernig á að nota þá