Kei raro ka kitea e koe he mahi kua oti te tautuhi-kaiwhakamahi i roto i te VBA hei whakamaori i tetahi tau i 0 ki 9 ki roto i te ahua o te kupu, ara i te nui o nga kupu. I mua i te whakamahi, me taapiri tenei mahi ki to pukapuka. Mo tenei:
- pehia te pokatata papapātuhi ALT + F11hei whakatuwhera i te Kaiwhakatika Visual Basic
- tāpirihia te kōwae kau hou mā te tahua Kōkuhu – Kōwae
- tārua me te whakapiri i te kuputuhi o tenei mahi ki reira:
Taumahi RUM(n Hei Ruarua) Hei Aho Ataahua Nums1, Nums2, Nums3, Nums4 Hei Rerekē Nums1 = Huanga("", "kotahi", "rua", "toru", "wha", "rima", "ono", "whitu", "waru", "iwa") Nums2 = Array("", "tekau", "rua tekau", "toru tekau", "wha tekau", "rima tekau", "ono tekau", "whitu tekau", _ "waru tekau" ", "iwa tekau") Nums3 = Array("", "kotahi rau", "rua rau", "toru rau", "wha rau", "rima rau", "ono rau", "e whitu rau", _ " waru rau", "iwa rau") Nums4 = Array("", "kotahi", "rua", "toru", "wha", "rima", "ono", "whitu", "waru", "iwa ") Nums5 = Array("tekau " , "tekau ma tahi", "tekau ma rua", "tekau ma toru", "tekau ma wha", _ "tekau ma rima", "tekau ma ono", "tekau ma whitu", "tekau ma waru", "tekau ma iwa") Mehemea n < = 0 Katahi ka RUMWHITE = "kore" Puta Mahi Whakamutunga Ki te 'wehea te tau ki nga mati ma te whakamahi i te mahi kaiawhina 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) 'tirohia nga miriona Tīpakohia te Take decmil Case 1 mil_txt = Nums5(mil ) & "miriona" HaereTo www Take 2 Ki te 9 decmil_txt = Nums2(decmil) Mutu Tīpakohia Tīpakohia Take mil Take 1 mil_txt = Nums1(mil) & "miriona" Take 2, 3, 4 mil_txt = Nums1(mil) & "miriona" Take 5 Ki te 20 mil_txt = Nums1(mil) & "miriona" Whakamutunga Tīpako www: sottys_txt = Nums3(sottys) ' tirohia nga mano Tīpakohia Case dectys Take 1 tys_txt = Nums5(tys) & "mano" HaereTo eee Take 2 Ki te 9 dectys_txt = Nums2(dectys) Mutu Tīpakohia Tīpakohia te Take tys Case 0 If dectys > 0 Then tys_txt = Nums4(tys) & "mano" Case 1 tys_txt = Nums4(tys) & "mano" Case 2, 3, 4 tys_txt = Nums4(tys) & "mano" Take 5 Ki te 9 tys_txt = Nums4(tys) & "mano" Whakamutunga Tīpako Ki te dectys = 0 Me tys = 0 Me sottys <> 0 Na sottys_txt = sottys_txt & "mano" eee: sot_txt = Nums3(sot) ' tirohia nga tekau Tīpakohia te Take dec Take 1 ed_txt = Nums5(ed) HaereTo rrr Case 2 Ki te 9 dec_txt = Nums2(dec) Whakamutunga Tīpako ed_txt = Nums1 (ed) rrr: 'whakaahua te rarangi whakamutunga me te WHAKAMAHI KI TE KORERO = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Whakamutunga Taumahi ' te mahi kaiawhina ki te tango mai i te maha o nga mati Akoako Mahi Motuhake (M, I) Class = Int(Int(M - (10 ^ I) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) Whakamutunga Mahi Tiakina te kōnae (mehemea kei a koe a Excel 2007, 2010 ranei, me tonotono te momo konae, ara te whakatakotoranga xlsm!) ka hoki ki Excel. Inaianei ka taea e koe te whakauru i te taumahi i hanga ki roto i tetahi pūtau o te raumahi i runga i te tikanga - ma te ruānuku mahi (pātene fx i te pae tātai, kāwai Kua tautuhia te Kaiwhakamahi) ma te pato noa ranei i roto i te pūtau me te tohu i te pūtau me te nui hei tohenga:
Mena ka hiahia koe ki te taapiri i nga pene ki te tuhinga kua riro, ka taea e koe te whakamahi i te hangahanga uaua ake:
u3d RUMAKI I TE TUHI (A3) & ” rupi. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop.”
u3d RUMAKI I TE TUHI (A3) & ” rupi. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”cop.”
Na, hei tauira, mo te nama 35,15, ko te hua o te mahi ka rite ki te "toru tekau ma rima rubles. 15 kape.”
- He putanga kaha ake o te mahi me nga rubles me nga kopecks i roto i / Ingarihi mai i te taapiri PLEX
- He aha nga tonotono, kei hea te whakauru i te waehere tonotono, me pehea te whakamahi