I lalo ifo o le ae maua ai se galuega fa'aoga-fa'aoga ua saunia i le VBA e fa'aliliuina so'o se numera mai le 0 i le 9 i lona fa'atusa i tusitusiga, ie i le aofa'i i upu. A'o le'i fa'aogaina, e tatau ona fa'aopoopo lenei galuega i lau tusi. Mo lenei:
- fetaomi le ala pupuu keyboard ALT + F11e tatala ai le Visual Basic Editor
- fa'aopoopo mea fou gaogao e ala ile lisi Fa'aofi - Module
- kopi ma faapipii le tusitusiga o lenei galuega iina:
Galuega SUM(n As Faalua) As String Dim Nums1, Nums2, Nums3, Nums4 As Variant Nums1 = Array("", "tasi", "lua", "tolu", "fa", "lima", "ono", "fitu", "valu", "iva") Nums2 = Array("", "sefulu", "luasefulu", "tolusefulu", "fasefulu", "limasefulu", "onosefulu", "fitugafulu", _ "valusefulu" ", "ivasefulu") Nums3 = Array("", "tasi le selau", "lua selau", "tolu selau", "fa selau", "lima selau", "ono selau", "fitu selau", _ " valu selau", "iva selau") Nums4 = Array("", "tasi", "lua", "tolu", "fa", "lima", "ono", "fitu", "valu", "iva ") Nums5 = Array(" sefulu " , " sefulutasi " , " sefululua " , " sefulutolu " , " sefulufa " , _ " sefululima " , " sefuluono " , " sefulufitu " , " sefuluvalu " , " sefuluiva " pe afai n < = 0 Ona SUMWRITE = "zero" Tu'u ese Galuega Fa'ai'u Afai 'vaevae le numera i numera e fa'aaoga ai le galuega fesoasoani Vasega ed = Vasega(n, 1) dec = Vasega(n, 2) sot = Vasega(n, 3) tys = Vasega (n, 4) dettys = Vasega(n , 5) sottys = Vasega(n, 6) mil = Vasega(n, 7) decmil= Vasega(n, 8) 'siaki miliona Filifili Mataupu decmil Case 1 mil_txt = Nums5(mil ) & "miliona " GoTo www Case 2 I le 9 decmil_txt = Nums2(decmil) Fa'ai'u Filifili Filifiliga Fa'aitu mil 1 mil_txt = Nums1(mil) & "miliona" Mataupu 2, 3, 4 mil_txt = Nums1(mil) & "miliona " Mataupu 5 I le 20 mil_txt = Nums1(mil) & "miliona" Fa'ai'u Filifili www: sottys_txt = Nums3(sottys) ' siaki afe Filifili mataupu dectys Mataupu 1 tys_txt = Nums5(tys) & "afe" GoTo eee Mataupu 2 I le 9 dectys_txt = Nums2(dectys) Fa'ai'u Filifili Filifilia Mataupu tys Mataupu 0 Afai dectys > 0 Ona tys_txt = Nums4(tys) & "afe" mataupu 1 tys_txt = Nums4(tys) & "afe" Mataupu 2, 3, 4 tys_txt = Nums4(tys) & "afe" Mataupu 5 I le 9 tys_txt = Nums4(tys) & "afe" Fa'ai'u Filifili Afai dectys = 0 Ma tys = 0 Ma sottys <> 0 Ona sottys_txt = sottys_txt & "afe" eee: sot_txt = Nums3(sot) ' siaki le sefulu Filifili Mataupu dec Mataupu 1 ed_txt = Nums5(ed) GoTo rrr Case 2 I le 9 dec_txt = Nums2(tes) Fa'ai'u Filifili ed_txt = Nums1 (ed) rrr: 'fausia le laina mulimuli i le SUM I LAUGA = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Fa'ai'u Galuega ' fesoasoani galuega e aveese mai le numera o numera Tuto'atasi Galuega Vasega (M, I) Vasega = Int(Int(M - (10 ^ I) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) Galuega Fa'ai'u Fa'asao le faila (afai e iai sau Excel 2007 po'o le 2010, o le ituaiga faila e tatau ona fa'aogaina macro, ie xlsm format!) ma toe fo'i i Excel. Ole taimi nei e mafai ona e fa'aofi le galuega na faia i totonu o so'o se sela o le pepa o galuega i le auala masani - e ala i le wizard galuega (fa'amau fx i le fua fa'atatau, vaega Faaaogaina e le tagata faaaoga) pe na o le taina i totonu o le cell ma le lima ma faʻamaonia le cell ma le aofaʻi o se finauga:
Afai e te manaʻomia le faʻaopoopoina o pennies i le tusitusiga na maua, ona mafai lea ona e faʻaogaina se fausaga sili atu ona faigata:
u3d AOFAIGA I LE TUSI (A3) & ” rub. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop.”
u3d AOFAIGA I LE TUSI (A3) & ” rub. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”cop.”
Ona, mo se faʻataʻitaʻiga, mo le numera 35,15, o le taunuuga o le galuega o le a pei o le "tolusefululima rubles. 15 kope.”
- A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
- O a macros, o fea e faʻapipiʻi ai le macro code, faʻafefea ona faʻaogaina