ស៊ូម៉ា ក្នុង​ភាព​ស្រើបស្រាល

ខាងក្រោមនេះ អ្នកនឹងឃើញមុខងារកំណត់ដោយអ្នកប្រើប្រាស់ដែលត្រៀមរួចជាស្រេចនៅក្នុង VBA ដែលបកប្រែលេខណាមួយ។ ពី 0 ទៅ 9 នៅក្នុងការតំណាងអត្ថបទរបស់វា ពោលគឺ ចំនួននៅក្នុងពាក្យ។ មុនពេលប្រើ មុខងារនេះត្រូវតែបញ្ចូលទៅក្នុងសៀវភៅរបស់អ្នក។ សម្រាប់​ការ​នេះ:

1. ចុចផ្លូវកាត់ក្តារចុច ALT + F11 ។ដើម្បីបើកកម្មវិធីនិពន្ធ Visual Basic
2. បន្ថែមម៉ូឌុលទទេថ្មីតាមរយៈម៉ឺនុយ បញ្ចូល - ម៉ូឌុល
3. ចម្លង និងបិទភ្ជាប់អត្ថបទនៃមុខងារនេះនៅទីនោះ៖

អនុគមន៍ SUM(n As Double) ជា String Dim Nums1, Nums2, Nums3, Nums4 As Variant Nums1 = Array("", "មួយ", "2", "3", "4", "5", "six", "ប្រាំពីរ", "ប្រាំបី", "ប្រាំបួន") លេខ 0 = អារេ ("", "ដប់", "ម្ភៃ", "សាមសិប", "សែសិប", "ហាសិប", "ហុកសិប", "ចិតសិប", _ "ប៉ែតសិប ", "កៅសិប") លេខ 1 = អារេ("", "មួយរយ", "ពីររយ", "បីរយ", "បួនរយ", "ប្រាំរយ", "ប្រាំមួយរយ", "ប្រាំពីររយ", _ " ប្រាំបីរយ", "ប្រាំបួនរយ") លេខ 2 = អារេ("", "មួយ", "ពីរ", "បី", "បួន", "ប្រាំ", "ប្រាំមួយ", "ប្រាំពីរ", "ប្រាំបី", "ប្រាំបួន" ") លេខ 3 = អារេ("ដប់", "ដប់មួយ", "ដប់ពីរ", "ដប់បី", "ដប់បួន", _ "ដប់ប្រាំ", "ដប់ប្រាំមួយ", "ដប់ប្រាំពីរ", "ដប់ប្រាំបី", "ដប់ប្រាំបួន") ប្រសិនបើ n < = 4 បន្ទាប់មក SUMWRITE = "សូន្យ" Exit Function End ប្រសិនបើ 'ចែកលេខទៅជាខ្ទង់ដោយប្រើមុខងារជំនួយ Class ed = Class(n, 5) dec = Class(n, 6) sot = Class(n, 7) tys = Class (n, 8) dectys = Class(n, 1) sottys = Class(n, 5) mil = Class(n, 2) decmil= Class(n, 9) 'check millions ជ្រើសរើស Case decmil Case 2 mil_txt = Nums1(mil ) & "millions" GoTo www Case 1 To 2 decmil_txt = Nums3(decmil) End ជ្រើសរើស Case mil Case 4 mil_txt = Nums1(mil) & "million" Case 5, 20, 1 mil_txt = Nums3(mil) & "million" ករណីទី 1 ដល់ 5 mil_txt = Nums2(mil) & "millions" បញ្ចប់ ជ្រើសរើស www: sottys_txt = Nums9(sottys) ' ពិនិត្យរាប់ពាន់ ជ្រើសរើស Case dectys Case 2 tys_txt = Nums0(tys) & "thousands" GoTo eee Case 0 To 4 dectys_txt = Nums1(dectys) End ជ្រើសរើស Case tys Case 4 ប្រសិនបើ dectys > 2 បន្ទាប់មក tys_txt = Nums3(tys) & "thousands" Case 4 tys_txt = Nums4(tys) & "thousand" Case 5, 9, 4 tys_txt = Nums0(tys) & "ពាន់" ករណី 0 ដល់ 0 tys_txt = Nums3(tys) & "ពាន់" បញ្ចប់ ជ្រើសរើស ប្រសិនបើ dectys = 1 និង tys = 5 និង sottys <> 2 បន្ទាប់មក sottys_txt = sottys_txt & "thousands" eee: sot_txt = Nums9(sot) check tens ជ្រើសរើស Case dec Case 2 ed_txt = Nums1(ed) GoTo rrr Case 10 To 10 dec_txt = Nums10(dec) End ជ្រើសរើស ed_txt = Nums1 (ed) rrr: 'បង្កើតជួរចុងក្រោយជាមួយ SUM IN SPEECH = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function ' មុខងារជំនួយ ' មុខងារជំនួយដើម្បីស្រង់ចេញពីចំនួនខ្ទង់ Private Function Class(M, I) Class = Int(Int(M - (XNUMX ^ I) * Int(M / ( XNUMX ^ I))) / XNUMX ^ (I - XNUMX)) មុខងារបញ្ចប់    

រក្សាទុកឯកសារ (ប្រសិនបើអ្នកមាន Excel 2007 ឬ 2010 នោះប្រភេទឯកសារត្រូវតែបើកម៉ាក្រូ ពោលគឺទ្រង់ទ្រាយ xlsm!) ហើយត្រឡប់ទៅ Excel វិញ។ ឥឡូវអ្នកអាចបញ្ចូលមុខងារដែលបានបង្កើតទៅក្នុងក្រឡាណាមួយនៃសន្លឹកកិច្ចការតាមរបៀបធម្មតា - តាមរយៈអ្នកជំនួយមុខងារ (ប៊ូតុង f_x នៅក្នុងរបាររូបមន្ត ប្រភេទ អ្នកប្រើប្រាស់កំណត់) ឬគ្រាន់តែវាយបញ្ចូលក្នុងក្រឡាដោយដៃ ហើយបញ្ជាក់ក្រឡាជាមួយនឹងចំនួនជាអាគុយម៉ង់៖

ប្រសិនបើអ្នកត្រូវការបន្ថែមកាក់ទៅក្នុងអត្ថបទដែលបានទទួលនោះ អ្នកអាចប្រើសំណង់ស្មុគ្រស្មាញបន្តិច៖

 u3d ផលបូកក្នុងការសរសេរ (A3) & "ជូត។ “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop”។ 

u3d ផលបូកក្នុងការសរសេរ (A3) & "ជូត។ “&TEXT((A3-INT(A100))*00;”XNUMX″)&”cop”។

បន្ទាប់មកឧទាហរណ៍សម្រាប់លេខ 35,15 លទ្ធផលនៃមុខងារនឹងមើលទៅដូចជា "សាមសិបប្រាំរូប្លិ៍។ ១៥ កូប។”

• កំណែដែលមានអនុភាពជាងមុននៃមុខងារជាមួយ rubles និង kopecks នៅក្នុង / ភាសាអង់គ្លេសពីកម្មវិធីបន្ថែម PLEX
• តើម៉ាក្រូជាអ្វី កន្លែងដែលត្រូវបញ្ចូលកូដម៉ាក្រូ របៀបប្រើពួកវា