Excel VBA៖ បង្កើតលេខចៃដន្យដោយគ្មានលេខស្ទួន (ឧទាហរណ៍ ៤)

  • ចែករំលែកនេះ។
Hugh West

អត្ថបទនេះបង្ហាញពីឧទាហរណ៍ចំនួន 4 នៃ ម៉ាស៊ីនបង្កើតលេខចៃដន្យ ដោយមិនមានលេខស្ទួនដោយប្រើ VBA ក្នុង Excel។ នៅទីនេះ យើងនឹងប្រើមុខងារ Rnd ដែលមានស្រាប់របស់ Excel ដើម្បីកំណត់រចនាសម្ព័ន្ធកូដរបស់យើង។ តោះចូលមើលឧទាហរណ៍ ដើម្បីសិក្សាពីបច្ចេកទេសបង្កើតលេខចៃដន្យ។

ទាញយកសៀវភៅលំហាត់

ទាញយកសៀវភៅលំហាត់នេះដើម្បីធ្វើលំហាត់ប្រាណ នៅពេលអ្នកកំពុងអានអត្ថបទនេះ។

កម្មវិធីបង្កើតលេខចៃដន្យដោយគ្មានលេខស្ទួន.xlsm

4 ឧទាហរណ៍នៃការបង្កើតលេខចៃដន្យដោយគ្មានលេខស្ទួនក្នុង Excel VBA

សរសេរកូដនៅក្នុង Visual Basic Editor

ដើម្បី បង្កើតលេខចៃដន្យដោយមិនមានលេខស្ទួន យើងត្រូវ បើក និង សរសេរ VBA កូដ នៅក្នុង កម្មវិធីនិពន្ធមូលដ្ឋានមើលឃើញ។ ធ្វើតាម ជំហាន ដើម្បី បើក the visual Basic editor ហើយសរសេរកូដមួយចំនួននៅទីនោះ។

  • ចូលទៅកាន់ អ្នកអភិវឌ្ឍន៍ ផ្ទាំងពី Excel Ribbon
  • ចុច ជម្រើស Visual Basic។

  • នៅក្នុង Visual Basic For Applications បង្អួច ចុច បញ្ចូលបញ្ជីទម្លាក់ចុះ ដើម្បី ជ្រើសរើស the ម៉ូឌុលថ្មី option ទៅ ដំណើរការ វា។

1. ការប្រើប្រាស់អនុគមន៍ VBA Rnd ដើម្បីបង្កើតលេខចៃដន្យដោយគ្មានលេខស្ទួន

មុខងារ Rnd ត្រូវបានប្រើក្នុង Excel VBA ទៅ បង្កើតលេខចៃដន្យ ដែលនៅចន្លោះ 0 និង 1 ផ្តាច់មុខ។

កិច្ចការ បង្កើតលេខចៃដន្យ 10 រវាង 0 និង 1 ក្នុង ក្រឡា A1:A10។

Code : បញ្ចូល ខាងក្រោម កូដ ក្នុង visual Basic editor ហើយចុច F5 ដើម្បី ដំណើរការ វា។

9301

លទ្ធផល ៖ រូបថតអេក្រង់ខាងលើបង្ហាញ លេខចៃដន្យតែមួយគត់ចំនួន 10 នៅក្នុងជួរ នៃ 0 និង 1។

ការពន្យល់កូដ៖

នៅក្នុងកូដនេះ យើងបានប្រើមុខងារ Rnd ទៅ បញ្ចូលលេខចៃដន្យ ក្នុង ជួរក្រឡា A1:A10 ។ មុននឹង បញ្ចូល a លេខថ្មី យើងបានប្រើ Do while Loop ដើម្បី រកមើល សម្រាប់ ចំនួន នៅក្នុង ជួរក្រឡាដែលបានកំណត់ជាមុន (A1:A10) ថាតើវា មានរួចហើយ មិនមែន ។ ដើម្បីពិនិត្យមើល អត្ថិភាព នៃ ចំនួន ក្នុង ជួរក្រឡា រាល់ពេល យើងបានកំណត់រចនាសម្ព័ន្ធកូដជាមួយនឹងមុខងារ COUNTIF មុខងារនេះ ពិនិត្យ a លេខចៃដន្យថ្មី ក្នុង បញ្ជី នៃ លេខដែលមានស្រាប់មុននឹងបញ្ចូលវា។

អានបន្ថែម : រូបមន្ត Excel ដើម្បីបង្កើតលេខចៃដន្យ (5 ឧទាហរណ៍)

2. កម្មវិធីបង្កើតលេខចៃដន្យសម្រាប់កំណត់ផ្នែកខាងក្រោម និងខាងលើដោយគ្មានលេខស្ទួន

ដើម្បី បង្កើតលេខចៃដន្យ ក្នុង ជួរដែលបានកំណត់ យើងត្រូវ កំណត់ lowerbound និង ខាងលើ នៅក្នុងកូដ VBA របស់យើង។ សម្រាប់ព័ត៌មាន ព្រំដែនខាងក្រោម គឺជា លេខទាបបំផុត និង ខាងលើ គឺជា លេខខ្ពស់បំផុត ក្នុង ជួរ សម្រាប់ម៉ាស៊ីនបង្កើតលេខចៃដន្យ។ យើង​អាច​ប្រើ រូបមន្ត ក្នុង​កូដ​របស់​យើង។

(ខាងលើ – ព្រំដែន​ខាងក្រោម + 1) * Rnd + lowerbound

2.1 ចៃដន្យ Number Generator- Decimal

Task : បង្កើតលេខចៃដន្យ 10 រវាង 10 និង 20 ក្នុង ក្រឡា A1:A10 ។

Code បញ្ចូល ខាងក្រោម កូដ ក្នុង visual Basic editor ហើយចុច F5 ដើម្បី ដំណើរការ វា។

8480

លទ្ធផល ៖ រូបថតអេក្រង់ខាងលើបង្ហាញ លេខចៃដន្យតែមួយគត់ចំនួន 10 ក្នុងជួរ នៃ 1 និង 10> អនុគមន៍ VBA Int ដើម្បី ដក ផ្នែក ប្រភាគ ចេញពី លេខចៃដន្យ

កិច្ចការ : បង្កើតចំនួនគត់ចៃដន្យចំនួន 20 រវាង 1 និង 20 ក្នុង កោសិកា A1:B10។

Code បញ្ចូល ខាងក្រោម កូដ ក្នុង visual Basic editor ហើយចុច F5 ដើម្បី ដំណើរការ វា។

3570

លទ្ធផល ៖ រូបថតអេក្រង់ខាងលើបង្ហាញ ចំនួនគត់ចៃដន្យចំនួន 20 នៅក្នុងជួរ នៃ 1 និង 20។

អានបន្ថែម៖ កម្មវិធីបង្កើតលេខចៃដន្យក្នុង Excel ដោយមិនប្រើម្តងទៀត (9 វិធី)

ការអានស្រដៀងគ្នា

  • កម្មវិធីបង្កើតលេខចៃដន្យជាមួយឧបករណ៍វិភាគទិន្នន័យ និងមុខងារក្នុង Excel
  • របៀប បង្កើតទិន្នន័យចៃដន្យក្នុង Excel (9វិធីសាស្រ្តងាយៗ)
  • Random 5 Digit Number Generator in Excel (7 Examples)
  • Random 4 Digit Number Generator in Excel (ឧទាហរណ៍ 8)
  • បង្កើតលេខចៃដន្យពីបញ្ជីក្នុង Excel (4 វិធី)

3. បញ្ជាក់ខ្ទង់ទសភាគសម្រាប់ម៉ាស៊ីនបង្កើតលេខចៃដន្យក្នុង Excel VBA

យើងអាចប្រើ អនុគមន៍មូល ក្នុងកូដរបស់យើងដើម្បី បញ្ជាក់ ចំនួន នៃ ខ្ទង់ទសភាគ ក្នុង លេខដែលបង្កើតដោយចៃដន្យ វាក្យសម្ព័ន្ធ នៃអនុគមន៍គឺ-

ជុំ(កន្សោម [numdecimalplaces])

យើងត្រូវ បញ្ជាក់ អាគុយម៉ង់ទី 2 តាម តម្រូវការ របស់យើង។

កិច្ចការ បង្កើតលេខចៃដន្យចំនួន 20 ដែលមានខ្ទង់ទសភាគ 2 រវាង 1 និង 20 ក្នុង ក្រឡា A1:B10។

Code បញ្ចូល ខាងក្រោម កូដ ក្នុង visual Basic editor ហើយចុច F5 ដើម្បី ដំណើរការ វា។

9325

លទ្ធផល ៖ រូបថតអេក្រង់ខាងលើបង្ហាញ ចំនួនគត់ចៃដន្យចំនួន 20 ដែលមាន ខ្ទង់ទសភាគ 2 ក្នុងជួរ នៃ 1 និង 20។

អានបន្ថែម៖ បង្កើតលេខចៃដន្យក្នុង Excel ជាមួយទសភាគ (3 វិធី)

4. បង្កើត Userform សម្រាប់ Random Number Generator ដែលមិនមានលេខស្ទួនក្នុង Excel VBA

ក្នុងរូបភាពនេះ យើងនឹងបង្ហាញពីរបៀបប្រើប្រាស់ UserForm ក្នុង Excel VBA ដើម្បី បង្កើតលេខចៃដន្យ ដោយ គ្មានលេខស្ទួន

កិច្ចការ៖ បង្កើត20 លេខចៃដន្យ ក្នុងជួរក្រឡា A1:B10 ដោយប្រើ ទម្រង់អ្នកប្រើប្រាស់ ជាមួយ តម្លៃបញ្ចូល (i) កម្រិតទាប (ii) ផ្នែកខាងលើ (iii) ចំនួនខ្ទង់ទសភាគ។

បង្កើតទម្រង់អ្នកប្រើប្រាស់៖

សូមអនុវត្តតាមជំហានខាងក្រោមដើម្បីបង្កើត ទម្រង់អ្នកប្រើប្រាស់ ជាមួយ វាលបញ្ចូលដែលចង់បាន របស់យើង។

  • ចូលទៅកាន់ផ្ទាំង Developer ពី Excel Ribbon
  • ចុច the Visual ជម្រើសមូលដ្ឋាន។

  • នៅក្នុងបង្អួច Visual Basic For Applications ចុចលើ បញ្ចូលបញ្ជីទម្លាក់ចុះ ដើម្បី ជ្រើសរើស ជម្រើស ទម្រង់អ្នកប្រើប្រាស់

  • នៅក្នុង ទម្រង់អ្នកប្រើប្រាស់បន្ថែម a label
  • ដាក់ចំណងជើង label ជា LowerBound ក្នុងលក្ខណៈសម្បត្តិ។

  • បន្ថែម ពីរ បន្ថែមទៀត ស្លាក ដែលមានឈ្មោះថា Upperbund និង DecimalPlaces

  • ឥឡូវនេះបន្ថែម ប្រអប់អត្ថបទបី ក្នុង ទម្រង់អ្នកប្រើប្រាស់

  • នៅដំណាក់កាលនេះ បន្ថែម a CommandButton ហើយដាក់ឈ្មោះវាថា បង្កើត

  • ឥឡូវនេះ ចុចពីរដង the CommandButton ហើយដាក់ code ខាងក្រោមនៅក្នុង code editor
9536

  • ចុច F5 ដើម្បី រត់ លេខកូដ ហើយ ទម្រង់អ្នកប្រើប្រាស់ បាន លេចឡើង
  • ដាក់ lowerbound , upperbound, និង number នៃ ខ្ទង់ទសភាគ ក្នុង ទម្រង់អ្នកប្រើប្រាស់ ហើយចុច បង្កើតប៊ូតុង

លទ្ធផល ៖ ក្នុង ក្រឡា A1:B10 មាន 20 ចៃដន្យ លេខ ជាមួយ 2 ខ្ទង់ទសភាគ ក្នុង ចន្លោះពី 1 ដល់ 30។

អានបន្ថែម៖ របៀបបង្កើតលេខចៃដន្យដោយគ្មានលេខស្ទួនក្នុង Excel (7 វិធី)

អ្វីដែលត្រូវចងចាំ

  • យើងក៏អាចប្រើ ជួសជុលមុខងារ ជំនួសឱ្យ អនុគមន៍ Int ដើម្បី បង្កើតចំនួនគត់តែមួយគត់ ។ អនុគមន៍ ដកចេញ ផ្នែក ប្រភាគ នៃ ចំនួន ដូចទៅនឹង អនុគមន៍ Int

សេចក្តីសន្និដ្ឋាន

ឥឡូវនេះ យើងដឹងពីរបៀបបង្កើតលេខចៃដន្យតែមួយគត់ដោយប្រើ VBA ក្នុង Excel ដោយមានជំនួយពីឧទាហរណ៍សមរម្យ។ សង្ឃឹមថា វានឹងជួយអ្នកឱ្យប្រើមុខងារកាន់តែមានទំនុកចិត្ត។ រាល់ចម្ងល់ ឬសំណូមពរ កុំភ្លេចដាក់ក្នុងប្រអប់ comment ខាងក្រោម។

Hugh West គឺជាគ្រូបណ្តុះបណ្តាល Excel ដែលមានបទពិសោធន៍ខ្ពស់ និងជាអ្នកវិភាគដែលមានបទពិសោធន៍ជាង 10 ឆ្នាំនៅក្នុងឧស្សាហកម្មនេះ។ លោកបានបញ្ចប់ថ្នាក់បរិញ្ញាបត្រផ្នែកគណនេយ្យ និងហិរញ្ញវត្ថុ និងបរិញ្ញាបត្រជាន់ខ្ពស់ផ្នែកគ្រប់គ្រងពាណិជ្ជកម្ម។ Hugh មានចំណង់ចំណូលចិត្តក្នុងការបង្រៀន ហើយបានបង្កើតវិធីសាស្រ្តបង្រៀនពិសេសមួយ ដែលងាយស្រួលធ្វើតាម និងយល់។ ចំណេះដឹងជំនាញ Excel របស់គាត់បានជួយសិស្សានុសិស្ស និងអ្នកជំនាញរាប់ពាន់នាក់នៅទូទាំងពិភពលោកបង្កើនជំនាញ និងពូកែក្នុងអាជីពរបស់ពួកគេ។ តាមរយៈប្លុករបស់គាត់ លោក Hugh ចែករំលែកចំណេះដឹងរបស់គាត់ជាមួយពិភពលោក ដោយផ្តល់ជូននូវការបង្រៀន Excel ដោយឥតគិតថ្លៃ និងការបណ្តុះបណ្តាលតាមអ៊ីនធឺណិត ដើម្បីជួយបុគ្គល និងអាជីវកម្មឈានដល់សក្តានុពលពេញលេញរបស់ពួកគេ។