Suma katika cuirsive

Yaliyomo

Hapo chini utapata kazi iliyofafanuliwa tayari ya mtumiaji katika VBA ambayo hutafsiri nambari yoyote kutoka kwa 0 9 katika uwakilishi wake wa kimaandishi, yaani katika kiasi cha maneno. Kabla ya matumizi, kipengele hiki lazima kiongezwe kwenye kitabu chako. Kwa hii; kwa hili:

  1. bonyeza njia ya mkato ya kibodi ALT + F11ili kufungua Kihariri cha Visual Basic
  2. ongeza moduli mpya tupu kupitia menyu Ingiza - Moduli
  3. nakili na ubandike maandishi ya kazi hii hapo:
Kazi SUM(n Kama Mara Mbili) Kama Mfuatano Dim Nambari1, Nambari2, Nambari3, Nambari4 Kama Nambari Tofauti1 = Mkusanyiko("", "moja", "mbili", "tatu", "nne", "tano", "sita", "saba", "nane", "tisa") Hesabu2 = Safu("", "kumi", "ishirini", "thelathini", "arobaini", "hamsini", "sitini", "sabini", _ "themanini ", "tisini") Hesabu3 = Mkusanyiko("", "mia moja", "mia mbili", "mia tatu", "mia nne", "mia tano", "mia sita", "mia saba", _ " mia nane", "mia tisa") Hesabu4 = Safu("", "moja", "mbili", "tatu", "nne", "tano", "sita", "saba", "nane", "tisa ") Hesabu5 = Array("kumi " , "kumi na moja", "kumi na mbili", "kumi na tatu", "kumi na nne", _ "kumi na tano", "kumi na sita", "kumi na saba", "kumi na nane", "kumi na tisa") Ikiwa n < = 0 Kisha SUMWRITE = "sifuri" Toka Mwisho wa Kazi Ikiwa 'gawanya nambari katika tarakimu kwa kutumia kitendakazi cha kisaidizi Darasa ed = Darasa(n, 1) dec = Darasa(n, 2) sot = Darasa(n, 3) tys = Darasa (n, 4) dectys = Darasa(n , 5) sotty = Darasa(n, 6) mil = Darasa(n, 7) decmil= Darasa(n, 8) 'angalia mamilioni Chagua Kesi decmil Kesi 1 mil_txt = Hesabu5(mil ) & "mamilioni " Nenda kwa www Kesi 2 Hadi 9 decmil_txt = Nambari2(decmil) Mwisho Chagua Chagua Kesi mil Kesi 1 mil_txt = Hesabu1(mil) & "milioni" Kesi 2, 3, 4 mil_txt = Hesabu1(mil) & "milioni" Kesi 5 Hadi 20 mil_txt = Hesabu1(mil) & "mamilioni" Mwisho Chagua www: sottys_txt = Hesabu3(sottys) ' angalia maelfu Chagua Kesi dectys Kesi 1 tys_txt = Hesabu5(tys) & "maelfu" GoTo eee Kesi 2 Hadi 9 dectys_txt (Nums_txt) Maliza Chagua Chagua Kesi ya Kesi 2 Ikiwa dectys > 0 Kisha tys_txt = Hesabu0(tys) & "maelfu" Kesi 4 tys_txt = Hesabu1(tys) & "elfu" Kesi 4, 2, 3 tys_txt = Hesabu4(aina) & " Kesi ya 4 Hadi 5 tys_txt = Hesabu9(tys) & "maelfu" Maliza Chagua Ikiwa dectys = 4 Na tys = 0 Na soti <> 0 Kisha sottys_txt = sottys_txt & "maelfu" eee: sot_txt = Nums0(sot) Chagua 'teki kumi dec Kesi 3 ed_txt = Hesabu1(ed) GoTo rrr Kesi 5 Hadi 2 dec_txt = Hesabu9(dec) Mwisho Chagua ed_txt = Hesabu2 (ed) rrr: 'unda safu mlalo ya mwisho na SUM IN SPEECH = decmil_ txt & mil_detxt & sotty_detxxt & sotty_detxxt tys_txt & sot_txt & dec_txt & ed_txt End Fu nction ' kitendakazi kisaidizi cha kutoa kutoka kwa idadi ya tarakimu Darasa la Kazi ya Kibinafsi(M, I) Hatari = Int(Int(M - (1 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 10)) Mwisho wa kazi

Hifadhi faili (ikiwa una Excel 2007 au 2010, basi aina ya faili lazima iwezeshwa kwa macro, yaani umbizo la xlsm!) Na urejee kwa Excel. Sasa unaweza kuingiza kazi iliyoundwa kwenye seli yoyote ya karatasi kwa njia ya kawaida - kupitia mchawi wa kazi (kifungo). fx katika upau wa fomula, kategoria Mtumiaji Amefafanuliwa) au kwa kuicharaza kwenye kisanduku kwa mikono na kubainisha kisanduku na kiasi kama hoja:

Ikiwa unahitaji kuongeza senti kwenye maandishi yaliyopokelewa, basi unaweza kutumia ujenzi ngumu zaidi:

 u3d SUM IN WRITE (A3) & ” kusugua. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"askari." 

u3d SUM IN WRITE (A3) & ” kusugua. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"askari."

Halafu, kwa mfano, kwa nambari 35,15, matokeo ya kazi yataonekana kama "rubles thelathini na tano. Kopo 15."

 

  • Toleo la nguvu zaidi la kazi na rubles na kopecks katika / Kiingereza kutoka kwa nyongeza ya PLEX
  • Je, ni macros, wapi kuingiza msimbo wa jumla, jinsi ya kutumia

 

Acha Reply