Suma ໃນ cuirsive

ເນື້ອໃນ

ຂ້າງລຸ່ມນີ້ທ່ານຈະເຫັນຟັງຊັນທີ່ຜູ້ໃຊ້ກໍານົດເອງທີ່ກຽມພ້ອມໃນ VBA ທີ່ແປຕົວເລກໃດໆ ຈາກ 0 ກັບ 9 ເຂົ້າໄປໃນຕົວຫນັງສືຂອງມັນ, ie ໃນຈໍານວນຄໍາສັບຕ່າງໆ. ກ່ອນທີ່ຈະໃຊ້, ຟັງຊັນນີ້ຕ້ອງຖືກເພີ່ມໃສ່ປຶ້ມຂອງເຈົ້າ. ສໍາລັບການນີ້:

  1. ກົດແປ້ນພິມລັດ ALT+F11ເພື່ອເປີດ Visual Basic Editor
  2. ເພີ່ມໂມດູນເປົ່າໃຫມ່ຜ່ານເມນູ ໃສ່ - ໂມດູນ
  3. ຄັດລອກແລະວາງຂໍ້ຄວາມຂອງຟັງຊັນນີ້ຢູ່ທີ່ນັ້ນ:
ຟັງຊັນ SUM(n ເປັນສອງເທົ່າ) ເປັນ String Dim Nums1, Nums2, Nums3, Nums4 As Variant Nums1 = Array("", "one", " two", " three", "four", "five", "six", "ເຈັດ", "ແປດ", "ເກົ້າ") ເລກ 2 = Array(", "ສິບ", "ຊາວ", "ສາມສິບ", "ສີ່ສິບ", "ຫ້າສິບ", "ຫົກສິບ", "ເຈັດສິບ", _ "ແປດສິບ ", "ເກົ້າສິບ") Nums3 = Array("", "ຫນຶ່ງຮ້ອຍ", "ສອງຮ້ອຍ", "ສາມຮ້ອຍ", "ສີ່ຮ້ອຍ", "ຫ້າຮ້ອຍ", "ຫົກຮ້ອຍ", "ເຈັດຮ້ອຍ", _ " ແປດຮ້ອຍ", "ເກົ້າຮ້ອຍ") ເລກ 4 = Array("", "ຫນຶ່ງ", "ສອງ", "ສາມ", "ສີ່", "ຫ້າ", "ຫົກ", "ເຈັດ", "ແປດ", "ເກົ້າ", "ແປດຮ້ອຍ", "ເກົ້າຮ້ອຍ") ") ຕົວເລກ 5 = Array("ສິບ" , "ສິບເອັດ", "ສິບສອງ", "ສິບສາມ", "ສິບສີ່", _ "ສິບຫ້າ", "ສິບຫົກ", "ສິບເຈັດ", "ສິບແປດ", "ສິບເກົ້າ") ຖ້າ n < = 0 ຫຼັງຈາກນັ້ນ SUMWRITE = "ສູນ" ອອກຈາກ Function End ຖ້າ 'ແບ່ງຕົວເລກອອກເປັນຕົວເລກໂດຍໃຊ້ຟັງຊັນຜູ້ຊ່ວຍ 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) 'check millions ເລືອກ Case decmil Case 1 mil_txt = Nums5(mil ) & "ລ້ານ " GoTo www Case 2 ຫາ 9 decmil_txt = Nums2(decmil) End ເລືອກ Case mil Case 1 mil_txt = Nums1(mil) & "million" Case 2, 3, 4 mil_txt = Nums1(mil) & "million" Case 5 to 20 mil_txt = Nums1(mil) & "millions" End ເລືອກ www: sottys_txt = Nums3(sottys) ' check thousand Select Case dectys Case 1 tys_txt = Nums5(tys) & "thousands" GoTo eee Case 2 To 9 dectys_txt = Nums2(dectys) End ເລືອກ Case tys Case 0 ຖ້າ dectys > 0 ຫຼັງຈາກນັ້ນ tys_txt = Nums4(tys) & "thousands" Case 1 tys_txt = Nums4(tys) & "thousand" Case 2, 3, 4 tys_txt = Nums4(tys) & "thousands" Case 5 To 9 tys_txt = Nums4(tys) & "thousands" End Select ຖ້າ dectys = 0 ແລະ tys = 0 ແລະ sottys <> 0 ຫຼັງຈາກນັ້ນ sottys_txt = sottys_txt & "thousands" eee: sot_txt = Nums3(sot) Case 'check tens ເລືອກ. dec Case 1 ed_txt = Nums5(ed) GoTo rrr Case 2 To 9 dec_txt = Nums2(dec) End ເລືອກ ed_txt = Nums1 (ed) rrr: 'ປະກອບແຖວສຸດທ້າຍດ້ວຍ SUM IN SPEECH = decmil_ txt & mil_txt & sottys_tx_tx & dectys_txt & decty tys_txt & sot_txt & dec_txt & ed_txt End Fu nction ' ຟັງຊັນຜູ້ຊ່ວຍເພື່ອສະກັດຈາກຈໍານວນຕົວເລກ Private Function Class(M, I) Class = Int(Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 1)) End Function

ບັນທຶກໄຟລ໌ (ຖ້າທ່ານມີ Excel 2007 ຫຼື 2010, ຫຼັງຈາກນັ້ນປະເພດໄຟລ໌ຕ້ອງຖືກເປີດໃຊ້ງານມະຫາພາກ, ເຊັ່ນ: ຮູບແບບ xlsm!) ແລະກັບຄືນໄປຫາ Excel. ດຽວນີ້ທ່ານສາມາດໃສ່ຟັງຊັນທີ່ສ້າງແລ້ວເຂົ້າໄປໃນເຊັລຂອງແຜ່ນວຽກໃນແບບປົກກະຕິ - ຜ່ານຕົວຊ່ວຍສ້າງຟັງຊັນ (ປຸ່ມ fx ໃນແຖບສູດ, ປະເພດ ຜູ້ໃຊ້ ກຳ ນົດ) ຫຼືງ່າຍໆໂດຍການພິມມັນໃສ່ໃນເຊລດ້ວຍຕົນເອງ ແລະລະບຸເຊລດ້ວຍຈໍານວນເປັນການໂຕ້ຖຽງ:

ຖ້າທ່ານຕ້ອງການເພີ່ມ pennies ກັບຂໍ້ຄວາມທີ່ໄດ້ຮັບ, ຫຼັງຈາກນັ້ນທ່ານສາມາດນໍາໃຊ້ການກໍ່ສ້າງທີ່ສັບສົນເລັກນ້ອຍ:

 u3d ຜົນລວມໃນການຂຽນ (A3) & ” rub. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop.” 

u3d ຜົນລວມໃນການຂຽນ (A3) & ” rub. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”cop.”

ຫຼັງ​ຈາກ​ນັ້ນ​, ສໍາ​ລັບ​ການ​ຍົກ​ຕົວ​ຢ່າງ​, ສໍາ​ລັບ​ການ​ຈໍາ​ນວນ 35,15​, ຜົນ​ຂອງ​ການ​ທໍາ​ງານ​ຈະ​ຄ້າຍ​ຄື "ສາມ​ສິບ​ຫ້າ​ຮູ​ເບີນ​. 15 ກີບ.”

 

  • ຮຸ່ນທີ່ມີປະສິດທິພາບຫຼາຍຂຶ້ນຂອງຟັງຊັນທີ່ມີຮູເບີນແລະ kopecks ໃນ / ພາສາອັງກິດຈາກ PLEX add-on
  • ມະຫາພາກແມ່ນຫຍັງ, ບ່ອນທີ່ຈະໃສ່ລະຫັດມະຫາພາກ, ວິທີການໃຊ້ພວກມັນ

 

ອອກຈາກ Reply ເປັນ