ሱማ በኩሽ

ከዚህ በታች ማንኛውንም ቁጥር የሚተረጉም ዝግጁ የሆነ በተጠቃሚ የተገለጸ ተግባር በVBA ውስጥ ያገኛሉ 0 ከ 9 ወደ ወደ ጽሑፋዊ መግለጫው ማለትም በቃላት ውስጥ ባለው መጠን። ከመጠቀምዎ በፊት ይህ ተግባር ወደ መጽሐፍዎ መታከል አለበት። ለዚህ:

1. የቁልፍ ሰሌዳ አቋራጩን ይጫኑ ALT + F11Visual Basic Editor ለመክፈት
2. በምናሌው በኩል አዲስ ባዶ ሞጁል ያክሉ አስገባ - ሞጁል
3. የዚህን ተግባር ጽሁፍ እዚያ ይቅዱ እና ይለጥፉ፡-

ተግባር SUM(n እንደ ድርብ) እንደ ሕብረቁምፊ Dim Nums1፣ Nums2፣ Nums3፣ Nums4 እንደ ተለዋጭ ቁጥሮች1 = አደራደር("""አንድ""ሁለት"፣ "ሦስት"፣ "አራት"፣ "አምስት"፣ "ስድስት"፣ "ሰባት"፣ "ስምንት"፣ "ዘጠኝ") ቁጥር ​​2 = አደራደር("""አስር"፣ "ሃያ"፣ "ሠላሳ", "አርባ", "ሃምሳ", "ስልሳ", "ሰባ", _ "ሰማንያ" ", "ዘጠና") ቁጥር ​​3 = አደራደር ("", "አንድ መቶ", "ሁለት መቶ", "ሦስት መቶ", "አራት መቶ", "አምስት መቶ", "ስድስት መቶ", "ሰባት መቶ", _ " ስምንት መቶ፣ "ዘጠኝ መቶ") ቁጥር ​​4 = አደራደር(""" አንድ" "ሁለት" "ሦስት" "አራት" አምስት "ስድስት" "ሰባት" "ስምንት" "ዘጠኝ" ") Nums5 = አደራደር ("አስር " , "አስራ አንድ" "አስራ ሁለት", "አስራ ሶስት", "አስራ አራት", _ "አስራ አምስት", "አስራ ስድስት", "አስራ ሰባት", "አስራ ስምንት", "አስራ ዘጠኝ") ከሆነ n < = 0 ከዚያም SUMWRITE = "ዜሮ" የመውጫ ተግባር ያበቃል 'የረዳት ተግባሩን በመጠቀም ቁጥሩን ወደ አሃዞች ከከፋፍሉት ክፍል ed = ክፍል (n, 1) dec = ክፍል (n, 2) sot = ክፍል (n, 3) tys = ክፍል (n, 4) dectys = ክፍል (n, 5) sottys = ክፍል (n, 6) ሚል = ክፍል (n, 7) decmil= ክፍል (n, 8) 'ሚሊዮኖችን ምረጥ ኬዝ decmil መያዣ 1 mil_txt = Nums5(ሚል) ) & "ሚሊዮኖች" GoTo www ጉዳይ 2 እስከ 9 decmil_txt = Nums2(decmil) መጨረሻ ምረጥ ኬዝ ሚል ኬዝ 1 mil_txt = Nums1(mil) & "million" ጉዳይ 2, 3, 4 mil_txt = Nums1(mil) & "million" ጉዳይ 5 እስከ 20 mil_txt = Nums1(ሚል) እና "ሚሊዮኖች" መጨረሻ ይምረጡ www: sottys_txt = Nums3(sottys) ' check ሺዎች ምረጥ ኬዝ dectys ጉዳይ 1 tys_txt = Nums5(tys) & "ሺዎች" GoToee Case 2 እስከ 9 dectys_t Nums2(dectys) መጨረሻ ምረጥ ኬዝ tys Case 0 ከሆነ dectys > 0 ከዚያም tys_txt = Nums4(tys) & "thousands" Case 1 tys_txt = Nums4(tys) & "thousand" case 2, 3, 4 tys_txt = Numbers4(tys) & "thousands" ጉዳይ 5 እስከ 9 tys_txt = Nums4(tys) & " ሺዎች " End Select If dectys = 0 And tys = 0 And sottys <> 0 ከዚያም sottys_txt = sottys_txt & "ሺህ" eee: sot_txt) = "ቁጥር 3" check tens Case dec Case 1 ed_txt = Nums5(ed) GoTo rrr Case 2 To 9 dec_txt = Nums2(ዲሴ) ጨርስ ed_txt = Nums1 (ed) rrr ምረጥ: 'የመጨረሻውን ረድፍ በ SUM IN SPEECH = decmil_ txt & mil_t sottys_txt & dectys_txt & tys_txt & sot_txt & Dec_txt & ed_txt መጨረሻ ተግባር ' ረዳት ተግባር ከዲጂቶች ብዛት ለማውጣት የግል ተግባር ክፍል (ኤም, I) ክፍል = ኢንት (ኤም - (10 ^ I) * Int (M / () 10 ^ I))) / 10 ^ (I - 1)) የማጠናቀቂያ ተግባር    

ፋይሉን አስቀምጥ (ኤክሴል 2007 ወይም 2010 ካለህ የፋይል አይነት ማክሮ የነቃ መሆን አለበት ማለትም xlsm ፎርማት!) እና ወደ ኤክሴል ተመለስ። አሁን የተፈጠረውን ተግባር ወደ ማንኛውም የሉህ ሕዋስ በተለመደው መንገድ ማስገባት ይችላሉ - በተግባር አዋቂ (አዝራር) f_x በቀመር አሞሌ፣ ምድብ ተጠቃሚ ተገልጻል) ወይም በቀላሉ በሕዋሱ ውስጥ በእጅ በመተየብ እና ህዋሱን ከቁጥር ጋር እንደ ክርክር በመግለጽ፡-

በተቀበለው ጽሑፍ ላይ ሳንቲሞችን ማከል ከፈለጉ ትንሽ የበለጠ የተወሳሰበ ግንባታ መጠቀም ይችላሉ-

 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 ኮፕ."

• A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
• ማክሮዎች ምንድን ናቸው ፣ ማክሮ ኮድ የት እንደሚያስገባ ፣ እንዴት እንደሚጠቀሙባቸው