Ma lalo ʻoe e ʻike ai i kahi hana i hoʻomākaukau ʻia e ka mea hoʻohana ma VBA e unuhi i kekahi helu mai 0 ke 9 i loko o kāna hōʻike kikokikona, ʻo ia hoʻi ka nui o nā huaʻōlelo. Ma mua o ka hoʻohana ʻana, pono e hoʻohui ʻia kēia hana i kāu puke. No kēia:
- kaomi i ka ʻaoʻao pōkole ALT + F11e wehe i ka Lunahooponopono Visual Basic
- hoʻohui i ka module hou ʻole ma o ka papa kuhikuhi Hoʻokomo - Module
- kope a paʻi i ka kikokikona o kēia hana ma laila:
Hana SUM(n Like Palua) E like me ke kaula Dim Nums1, Nums2, Nums3, Nums4 As Variant Nums1 = Array("", "hoʻokahi", "ʻelua", "ʻekolu", "ʻehā", "lima", "ʻeono", "ʻehiku", "ʻewalu", "ʻeiwa") Nums2 = Array("", "umi", "twenty", "thirty", "fory", "fifty", "sixty", "seventy", _ "3". ", " kanaiwa") Nums4 = Array("", "hoʻokahi haneri", "ʻelua haneri", "ʻekolu haneri", "ʻehā haneri", "ʻelima haneri", "ʻeono haneri", "ʻehiku haneri", _ " ʻewalu haneli", "ʻeiwa haneli") Nums5 = Array("", "hoʻokahi", "ʻelua", "ʻekolu", "ʻehā", "lima", "ʻeono", "ʻehiku", "ʻewalu", "ʻeiwa ") Nums0 = Array("ʻumi " , "ʻumikūmākahi", "ʻumikumamālua", "ʻumikumamākolu", "ʻumikumamāhā", _ "ʻumikumamālima", "ʻumikumamāono", "ʻumikūmāhiku", "ʻumikumamāwalu", "ʻumikūmāiwa") inā n < = 1 A laila, SUMWRITE = "zero" Puka Hana Hoʻopau Inā 'puʻunaue i ka helu i mau huahelu me ka hoʻohana ʻana i ka hana kōkua Class ed = Papa(n, 2) dec = Papa(n, 3) sot = Papa(n, 4) tys = Papa (n, 5) dectys = Papa(n, 6) sottys = Papa(n, 7) mil = Papa(n, 8) decmil= Papa(n, 1) 'helu miliona Koho i ka hihia decmil Case 5 mil_txt = Nums2(mil ) & "miliona" E hele i www ka hihia 9 a hiki i ka 2 decmil_txt = Nums1(decmil) Hoʻopau i ke koho ʻana i ka hihia mil Case 1 mil_txt = Nums2(mil) & "miliona" hihia 3, 4, 1 mil_txt = Nums5(mil) & "miliona " Ka helu 20 a hiki i ka 1 mil_txt = Nums3(mil) & "miliona" End Select www: sottys_txt = Nums1(sottys) ' nānā i nā tausani Koho i ka hihia dectys Case 5 tys_txt = Nums2(tys) & "mau tausani" GoTo eee Case 9 a 2 dectys_txt = Nums0(dectys) Hopena koho E koho i ka hihia tys Case 0 Inā dectys > 4 A laila tys_txt = Nums1(tys) & "tausani" Case 4 tys_txt = Nums2(tys) & "tausani" Case 3, 4, 4 tys_txt = Nums5(tys) & "mau tausani" hihia 9 a 4 tys_txt = Nums0(tys) & "tausani" End Select If dectys = 0 And tys = 0 and sottys <> 3 Then sottys_txt = sottys_txt & "thousands" eee: sot_txt = Nums1(sot) ' e nānā i nā ʻumi E koho i ka hihia dec Case 5 ed_txt = Nums2(ed) GoTo rrr Case 9 To 2 dec_txt = Nums1(dec) End Koho ed_txt = Nums10 (ed) rrr: 'e hana i ka lālani hope me ka SUM IN SPEECH = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Hoʻopau Hana ' hana kōkua e unuhi mai ka helu o nā huahelu Papa Hana Kūikawā (M, I) Papa = Int(Int(M - (10 ^ I) * Int(M / ( 10 ^ I))) / 1 ^ (I - XNUMX)) Hana Hoʻopau E mālama i ka faila (inā loaʻa iā ʻoe ka Excel 2007 a i ʻole 2010, a laila e hoʻohana ʻia ke ʻano faila, ʻo ia hoʻi ka format xlsm!) a hoʻi i Excel. I kēia manawa hiki iā ʻoe ke hoʻokomo i ka hana i hana ʻia i loko o kekahi keena o ka pepa haʻawina ma ke ʻano maʻamau - ma o ka wizard hana ( pihi fx ma ka papa formula, waeʻano Hoʻohālikelike ʻia ka mea hoʻohana) a i ʻole ma ka paʻi ʻana iā ia i loko o ke kelepona me ka lima a me ka wehewehe ʻana i ka cell me ka nui ma ke ʻano he hoʻopaʻapaʻa:
Inā pono ʻoe e hoʻohui i nā peni i ka kikokikona i loaʻa, a laila hiki iā ʻoe ke hoʻohana i kahi kūkulu paʻakikī iki:
u3d NUI MA KA KAKAU (A3) & ” rub. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop.”
u3d NUI MA KA KAKAU (A3) & ” rub. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”cop.”
A laila, no ka laʻana, no ka helu 35,15, ka hopena o ka hana e like me " kanakolukumamālima rubles. 15 kope.”
- ʻO kahi mana ikaika o ka hana me nā rubles a me kopecks i / English mai ka PLEX add-on
- He aha nā macros, kahi e hoʻokomo ai i ka code macro, pehea e hoʻohana ai