Suma က စပ်စုသည်။

မာတိကာ

အောက်တွင် နံပါတ်တိုင်းကို ဘာသာပြန်ပေးသည့် VBA တွင် အသင့်လုပ်ထားသော အသုံးပြုသူသတ်မှတ်ထားသော လုပ်ဆောင်ချက်ကို သင်တွေ့လိမ့်မည်။ 0 မှ 9 မှ ၎င်း၏ စာသားကိုယ်စားပြုမှုတွင်၊ ဆိုလိုသည်မှာ စကားလုံးများတွင် ပမာဏဖြစ်သည်။ အသုံးမပြုမီ၊ ဤလုပ်ဆောင်ချက်ကို သင့်စာအုပ်တွင် ထည့်သွင်းရပါမည်။ ဒါအတွက်:

  1. ကီးဘုတ်ဖြတ်လမ်းကိုနှိပ်ပါ။ Alt + F11Visual Basic Editor ကိုဖွင့်ရန်
  2. မီနူးမှတဆင့် ဗလာ module အသစ်ကိုထည့်ပါ။ Module ထည့်သွင်းပါ။
  3. ဤလုပ်ဆောင်ချက်၏ စာသားကို ထိုနေရာတွင် ကူးယူပြီး ကူးထည့်ပါ-
Function SUM(n As Double) As String Dim Nums1၊ Nums2၊ Nums3၊ Nums4 As Variant Nums1 = Array("", "one", " two", " three", "four", "five", "six", "ခုနစ်", "ရှစ်", "ကိုး") Nums2 = Array("", "ဆယ်", "နှစ်ဆယ်", "သုံးဆယ်", "လေးဆယ်", "ငါးဆယ်", "ခြောက်ဆယ်", "ခုနစ်ဆယ်", _ "ရှစ်ဆယ် ", "ကိုးဆယ်") Nums3 = Array("", "တစ်ရာ", "နှစ်ရာ", "သုံးရာ", "လေးရာ", "ငါးရာ", "ခြောက်ရာ", "ခုနှစ်ရာ", _ " ရှစ်ရာ၊ "ကိုးရာ") နံပါတ် 4 = Array("", "တစ်", "နှစ်", "သုံး", "လေး", "ငါး", "ခြောက်", "ခုနစ်", "ရှစ်", "ကိုး" ") Nums5 = Array("ten" , "eleven", "twelve", "thirteen", "teen four", _ "0", "six", "seven", "teeneigh", "nineteen") အကယ်၍ n < = 1 ထို့နောက် SUMWRITE = "သုည" Exit Function End သည် helper function Class ed = Class(n, 2) dec = Class(n, 3) sot = Class(n, 4) tys = Class (n, 5) dectys = Class(n , 6) sottys = Class(n, 7) mil = Class(n, 8) decmil= Class(n, 1) 'သန်းနှင့်ချီပြီး စစ်ဆေးရန် Case decmil ကို ရွေးပါ Case 5 mil_txt = Nums2(mil ) & "millions" GoTo www Case 9 မှ 2 decmil_txt = Nums1(decmil) End Select Case mil ကိုရွေးချယ်ပါ Case 1 mil_txt = Nums2(mil) & "million" Case 3, 4, 1 mil_txt = Nums5(mil) & "million" Case 20 to 1 mil_txt = Nums3(mil) & "millions" End Select www: sottys_txt = Nums1(sottys) ' check ထောင်နှင့် check Case dectys Case 5 tys_txt = Nums2(tys) & "thousands" GoTo eee Case 9 to 2 dectys_txt = Nums0(dectys) End Select Case tys Case ကိုရွေးပါ 0 အကယ်၍ dectys > 4 ထို့နောက် tys_txt = Nums1(tys) & "thousands" Case 4 tys_txt = Nums2(tys) & "thousand" Case 3, 4, 4 tys_txt = Nums5(tys) & "thousands" Case 9 To 4 tys_txt = Nums0(tys) & "thousands" End Select If dectys = 0 And tys = 0 And sottys <> 3 ထို့နောက် sottys_txt = sottys_txt & "thousands" eee: sot_txt = Nums1(sot) ဆယ်ဂဏန်းကိုစစ်ဆေးပါ Case dec Case 5 ကိုရွေးချယ်ပါ ed_txt = Nums2(ed) GoTo rrrr Case 9 မှ 2 dec_txt = Nums1(dec) End Select ed_txt = Nums10 (ed) rrr: 'SUM IN SPECH = decmil_ txt & mil_txt & နောက်ဆုံးအတန်းကို ဖွဲ့ပါ။ sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function ' helper function ဂဏန်းအရေအတွက်များမှထုတ်ယူရန် Private Function Class(M, I) Class = Int(Int(M - (10 ^ I) * Int(M / ( 10^I)))/1^(I - XNUMX)) End Function

ဖိုင်ကိုသိမ်းဆည်းပါ (သင့်တွင် Excel 2007 သို့မဟုတ် 2010 ရှိပါက ဖိုင်အမျိုးအစားသည် xlsm ဖော်မတ်ဟု ဆိုလိုသည်) နှင့် Excel သို့ ပြန်သွားရန်။ ယခု သင် ဖန်တီးထားသော လုပ်ဆောင်ချက်ကို ပုံမှန်အတိုင်း အလုပ်စာရွက်၏ မည်သည့်ဆဲလ်ထဲသို့မဆို ထည့်သွင်းနိုင်သည် - လုပ်ဆောင်ချက် wizard (ခလုတ်မှတဆင့် fx ဖော်မြူလာဘား၊ အမျိုးအစား အသုံးပြုသူသတ်မှတ်သည်) သို့မဟုတ် ၎င်းကို ဆဲလ်တွင် ကိုယ်တိုင်ရိုက်ပြီး ဆဲလ်အား အကြောင်းပြချက်တစ်ခုအဖြစ် ပမာဏဖြင့် သတ်မှတ်ပေးခြင်းဖြင့်၊

သင်လက်ခံရရှိထားသောစာသားသို့ pennies များထည့်ရန်လိုအပ်ပါက၊ အနည်းငယ်ပိုမိုရှုပ်ထွေးသောတည်ဆောက်မှုကိုသင်အသုံးပြုနိုင်သည်-

 u3d SUM IN WRITE (A3) & ” rub. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”ရဲ” 

u3d SUM IN WRITE (A3) & ” rub. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”ရဲ”

ထို့နောက်၊ ဥပမာအားဖြင့်၊ နံပါတ် 35,15 အတွက်၊ လုပ်ဆောင်ချက်၏ရလဒ်သည် "သုံးဆယ့်ငါးရူဘယ်" နှင့်တူလိမ့်မည်။ 15 kop"

 

  • PLEX အပိုပရိုဂရမ်မှ ရူဘယ်နှင့် kopecks ဖြင့် / အင်္ဂလိပ်ဘာသာဖြင့် လုပ်ဆောင်ချက်၏ ပိုမိုအားကောင်းသောဗားရှင်း
  • မက်ခရိုဆိုတာဘာလဲ၊ မက်ခရိုကုဒ်ကို ဘယ်မှာထည့်ရမလဲ၊ အဲဒါတွေကို ဘယ်လိုသုံးမလဲ။

 

တစ်ဦးစာပြန်ရန် Leave