Excel VBA: Random Number Generator na Walang Duplicate (4 na Halimbawa)

Hugh West

16-10-2023 Macro & Excel VBA
  • Ibahagi Ito
Hugh West

Ang artikulong ito ay naglalarawan ng 4 na halimbawa ng random number generator na walang mga duplicate gamit ang VBA sa Excel. Dito gagamitin namin ang built-in na Rnd function ng Excel para i-configure ang aming code. Suriin natin ang mga halimbawa upang matutunan ang mga diskarte upang makabuo ng mga natatanging random na numero.

I-download ang Workbook ng Practice

I-download ang workbook ng pagsasanay na ito upang mag-ehersisyo habang binabasa mo ang artikulong ito.

Random Number Generator na Walang Duplicate.xlsm

4 Mga Halimbawa ng Random Number Generator na Walang Duplicate sa Excel VBA

Isulat ang Code sa Visual Basic Editor

Upang makabuo ng mga random na numero na walang mga duplicate , kailangan nating buksan ang at magsulat ng VBA code sa visual basic editor. Sundin ang mga hakbang upang buksan ang visual basic editor at magsulat ng ilang code doon.

  • Pumunta sa Developer tab mula sa Excel Ribbon .
  • I-click ang ang Visual Basic na opsyon.

  • Sa window ng Visual Basic For Applications , i-click ang Insert dropdown upang piliin ang ang Bagong Module opsyon.

Ngayon ilagay ang iyong code sa loob ng visual code editor at pindutin ang F5 para patakbuhin ito.

1. Paggamit ng VBA Rnd Function para Bumuo ng Random Number na Walang Duplicate

Ang Rnd function ay ginagamit sa Excel VBA to bumuo ng mga random na numero na sa pagitan ng 0 at 1 eksklusibo.

Gawain : Bumuo ng 10 random na numero sa pagitan ng 0 at 1 sa mga cell A1:A10.

Code : Ipasok ang ang sumusunod na code sa visual basic editor at pindutin ang F5 upang patakbuhin ito. 

7886

Output : Ang screenshot sa itaas ay nagpapakita ng 10 natatanging random na numero sa range ng 0 at 1.

Paliwanag ng Code:

Sa code na ito, ginamit namin ang Rnd function upang magpasok ng mga random na numero sa cell range A1:A10 . Bago maglagay ng isang bagong numero , gumamit kami ng Do While Loop para hanapin ang number sa paunang natukoy na hanay ng cell (A1:A10) kung ito man ay umiiral na o wala . Upang suriin ang existence ng number sa cell range sa bawat pagkakataon, iko-configure namin ang code gamit ang COUNTIF function , This function sinusuri ang isang bagong random na numero sa listahan ng mga umiiral nang numero bago ito ipasok.

Magbasa Nang Higit Pa : Formula ng Excel para Bumuo ng Random na Numero (5 halimbawa)

2. Random Number Generator para sa Defined Lowerbound at Upperbound na Walang Duplicate

Upang makabuo ng mga random na numero sa loob ng tinukoy na hanay , kailangan nating itakda ang lowerbound at upperbound sa aming VBA code. Para sa impormasyon, ang lowerbound ay ang pinakamababang numero at ang upperboundAng ay ang pinakamataas na numero sa hanay para sa generator ng random na numero. Magagamit namin ang sumusunod na formula sa aming code.

(upperbound – lowerbound + 1) * Rnd + lowerbound

2.1 Random Number Generator- Decimal

Task : Bumuo ng 10 random na numero sa pagitan ng 10 at 20 sa mga cell A1:A10.

Code : Ipasok ang ang sumusunod na code sa visual basic editor at pindutin ang F5 upang patakbuhin ito. 

6750

Output : Ang screenshot sa itaas ay nagpapakita ng 10 natatanging random na numero sa hanay ng 1 at 10.

2.2 Random Number Generator- Integer

Sa paglalarawang ito, gagamitin namin ang VBA Int function para alisin ang ang fractional part mula sa random number .

Task : Bumuo ng 20 random na integer na numero sa pagitan ng 1 at 20 sa mga cell A1:B10.

Code : Ipasok ang ang sumusunod na code sa visual basic editor at pindutin ang F5 upang patakbuhin ito. 

3637

Output : Ang screenshot sa itaas ay nagpapakita ng 20 natatanging random na integer na numero sa hanay ng 1 at 20.

Magbasa Nang Higit Pa: Random Number Generator sa Excel na Walang Pag-uulit (9 na Paraan)

Mga Katulad na Pagbasa

  • Random Number Generator na may Tool sa Pagsusuri ng Data at Mga Function sa Excel
  • Paano Bumuo ng Random na Data sa Excel (9Mga Madaling Paraan)
  • Random na 5 Digit Number Generator sa Excel (7 Halimbawa)
  • Random na 4 Digit Number Generator sa Excel (8 Halimbawa)
  • Bumuo ng Random na Numero mula sa Listahan sa Excel (4 na Paraan)

3. Tukuyin ang Decimal Places para sa Natatanging Random Number Generator sa Excel VBA

Maaari naming gamitin ang Round function sa aming code upang tukuyin ang bilang ng decimal na lugar sa mga random na nabuong natatanging numero . Ang syntax ng function ay-

Round(expression, [numdecimalplaces])

Kailangan nating tukuyin ang ang 2nd argument ayon sa aming kinakailangan .

Gawain : Bumuo ng 20 random na numero na may 2 decimal na lugar sa pagitan ng 1 at 20 sa mga cell A1:B10.

Code : Ipasok ang ang sumusunod na code sa visual basic editor at pindutin ang F5 upang patakbuhin ito. 

9077

Output : Ang screenshot sa itaas ay nagpapakita ng 20 natatanging random na integer na numero na may 2 decimal na lugar sa hanay ng 1 at 20.

Magbasa Pa: Bumuo ng Random na Numero sa Excel gamit ang mga Decimal (3 Paraan)

4. Bumuo ng Userform para sa Random Number Generator na Walang Duplicate sa Excel VBA

Sa paglalarawang ito, ipapakita namin kung paano gumamit ng UserForm sa Excel VBA upang bumuo ng mga random na numero na may walang mga duplicate .

Gawain: Bumuo20 random na numero sa hanay ng cell A1:B10 gamit ang isang UserForm na may mga value ng input (i) lowerbound (ii) upperbound (iii) bilang ng mga decimal na lugar.

Gumawa ng UserForm:

Sundin ang mga hakbang sa ibaba upang lumikha ng UserForm sa aming mga gustong input field .

  • Pumunta sa tab na Developer mula sa Excel Ribbon .
  • I-click ang ang Visual Pangunahing opsyon.

  • Sa Visual Basic For Applications na window, i-click ang Insert dropdown upang piliin ang ang UserForm opsyon.

  • Sa UserForm idagdag isang label .
  • I-caption ang label bilang LowerBound sa mga property.

  • Magdagdag ng dalawang higit pang mga label na pinangalanang Upperbund at DecimalPlaces .

  • Ngayon magdagdag ng tatlong TextBox sa UserForm .

  • Sa yugtong ito, magdagdag ng isang CommandButton at pangalanan itong Bumuo .

  • Ngayon, i-double click ang CommandButton at ilagay ang sumusunod na code sa code editor . 
3050

  • Pindutin ang F5 upang patakbuhin ang ang code at ang UserForm ay lumitaw .
  • Ilagay ang lowerbound , upperbound, at ang number ng decimal na lugar sa UserForm at pindutin ang BumuoButton .

Output : Sa mga cell A1:B10 , mayroong 20 random mga numero na may 2 decimal na lugar sa hanay ng 1 hanggang 30.

Magbasa Nang Higit Pa: Paano Bumuo ng Mga Random na Numero Nang Walang Mga Duplicate sa Excel (7 Paraan)

Mga Dapat Tandaan

  • Maaari rin naming gamitin ang Ayusin ang function sa halip na ang Int function upang bumuo ng mga natatanging integer na numero . Ang function na ay nag-aalis ng ang fractional na bahagi ng isang number katulad ng Int function .

Konklusyon

Ngayon, alam na natin kung paano bumuo ng mga natatanging random na numero gamit ang VBA sa Excel sa tulong ng mga angkop na halimbawa. Sana, makakatulong ito sa iyong gamitin ang functionality nang mas may kumpiyansa. Anumang mga tanong o mungkahi ay huwag kalimutang ilagay ang mga ito sa kahon ng komento sa ibaba.

Nakaraang post Paano I-freeze ang 2 Column sa Excel (5 Paraan)
Susunod na post Paano Mag-extract ng Teksto mula sa isang Cell sa Excel (5 paraan)

Si Hugh West ay isang napakaraming Excel trainer at analyst na may higit sa 10 taong karanasan sa industriya. May hawak siyang Bachelor's degree sa Accounting and Finance at Master's degree sa Business Administration. Si Hugh ay may hilig sa pagtuturo at nakabuo ng kakaibang diskarte sa pagtuturo na madaling sundin at maunawaan. Ang kanyang dalubhasang kaalaman sa Excel ay nakatulong sa libu-libong mag-aaral at propesyonal sa buong mundo na mapabuti ang kanilang mga kasanayan at maging mahusay sa kanilang mga karera. Sa pamamagitan ng kanyang blog, ibinahagi ni Hugh ang kanyang kaalaman sa mundo, nag-aalok ng mga libreng Excel tutorial at online na pagsasanay upang matulungan ang mga indibidwal at negosyo na maabot ang kanilang buong potensyal.