Excel VBA: Generator Nomer Acak Tanpa Duplikat (4 Conto)

Hugh West

16-10-2023 makro & amp; Excel VBA
  • Bagikeun Ieu
Hugh West

Artikel ieu ngagambarkeun 4 conto generator angka acak tanpa duplikat maké VBA dina Excel. Di dieu urang bakal ngagunakeun fungsi Rnd diwangun-di Excel pikeun ngonpigurasikeun kode urang. Hayu urang teuleum kana conto pikeun neuleuman téknik pikeun ngahasilkeun angka acak unik.

Unduh Buku Latihan Praktek

Unduh buku latihan latihan ieu bari anjeun maca artikel ieu.

Random Number Generator Tanpa Duplikat.xlsm

4 Conto Random Number Generator Tanpa Duplikat dina Excel VBA

Tulis Kode dina Visual Basic Editor

Pikeun ngahasilkeun angka acak tanpa duplikat , urang kudu muka jeung nulis VBA kode dina editor dasar visual. Tuturkeun léngkah pikeun muka editor dasar visual jeung tulis sababaraha kode di dinya.

  • Pindah ka Pamekar tab tina Excel Ribbon .
  • Klik pilihan Visual Basic.

  • Dina Visual Basic For Applications jandela, klik Insert dropdown pikeun milih the New Module pilihan.

Ayeuna lebetkeun kode anjeun ka jero editor kode visual sareng pencét F5 pikeun ngajalankeun éta.

1. Pamakéan Fungsi VBA Rnd pikeun Ngahasilkeun Nomer Acak Tanpa Duplikat

Fungsi Rnd dipaké dina Excel VBA ka ngahasilkeun angka acak nu antara 0 jeung 1 ekslusif.

Tugas : Jieun 10 angka acak antara 0 jeung 1 dina sél A1:A10.

Kode : Selapkeun di handap ieu kode dina visual basic editor terus pencét F5 pikeun ngajalankeun éta. 

6295

Kaluaran : Potret layar di luhur mintonkeun 10 angka acak unik dina rentang 0 jeung 1.

Penjelasan Kode:

Dina kode ieu, urang ngagunakeun fungsi Rnd pikeun nyelapkeun angka acak dina rentang sél A1:A10 . Sateuacan masukan nomer énggal , kami nganggo Do While Loop pikeun néangan pikeun nomer dina rentang sél nu geus ditangtukeun (A1:A10) naha éta geus aya atawa teu . Pikeun mariksa ayana tina angka dina rentang sél unggal waktu, urang ngonpigurasi kodeu jeung fungsi COUNTIF , Ieu fungsi pariksa a nomer acak anyar dina daftar tina nomer nu geus aya saméméh ngasupkeun.

Baca Selengkapnya : Rumus Excel Pikeun Ngahasilkeun Nomer Acak (5 conto)

2. Generator Nomer Acak pikeun wates handap sareng luhur anu ditetepkeun sareng henteu aya duplikat

Pikeun ngahasilkeun angka acak dina jarak rentang anu ditangtukeun , urang kedah setel lowerbound jeung upperbound dina kode VBA urang. Kanggo inpo, handapeun nyaeta angka panghandapna jeung kaluhur nyaéta angka pangluhurna dina rentang pikeun generator angka acak. Urang tiasa nganggo rumus di handap ieu dina kode urang.

(upperbound – lowerbound + 1) * Rnd + lowerbound

2.1 Random Number Generator- Decimal

Tugas : Jieun 10 angka acak antara 10 jeung 20 dina sél A1:A10.

Kode : Selapkeun di handap ieu kode dina visual basic editor terus pencét F5 pikeun ngajalankeun . 

3410

Kaluaran : Potret layar di luhur mintonkeun 10 angka acak unik dina rentang 1 jeung 10.

2.2 Random Number Generator- Integer

Dina ilustrasi ieu, urang bakal ngagunakeun Fungsi VBA Int pikeun nyabut bagian pecahan tina nomer acak .

Tugas : Jieun 20 wilangan integer acak antara 1 jeung 20 dina sél A1:B10.

Kode : Selapkeun di handap ieu kode dina visual basic editor terus pencét F5 pikeun ngajalankeun éta. 

9840

Kaluaran : Potret layar di luhur mintonkeun 20 angka integer acak unik dina rentang 1 jeung 20.

Baca Selengkapnya: Generator Nomer Acak dina Excel tanpa Ulangan (9 Métode)

Bacaan Sarupa

  • Generator Nomer Acak jeung Alat Analisis Data jeung Fungsi dina Excel
  • Kumaha carana Ngahasilkeun Data Acak dina Excel (9Métode Gampang)
  • Acak 5 Angka Angka Generator dina Excel (7 Conto)
  • Acak 4 Angka Angka Generator dina Excel (8 Conto)
  • Jieun Nomer Acak tina Daptar di Excel (4 Cara)

3. Sebutkeun Tempat Desimal pikeun Generator Nomer Acak Unik dina Excel VBA

Urang tiasa nganggo fungsi Bulat dina kode urang pikeun nyataan jumlah tina tempat desimal dina nomer unik anu dihasilkeun sacara acak . sintaksis fungsina nyaéta-

Round(expression, [numdecimalplaces])

Urang kudu specific the Argumen 2nd nurutkeun kami sarat .

Tugas : Jieun 20 angka acak kalawan 2 tempat decimal antara 1 jeung 20 dina sél A1:B10.

Kode : Selapkeun di handap ieu kode dina visual basic editor terus pencét F5 pikeun ngajalankeun nya. 

8645

Kaluaran : Potret layar di luhur nembongkeun 20 angka integer acak unik kalayan 2 tempat desimal dina rentang 1 jeung 20.

Baca deui: Jieun Nomer Acak dina Excel nganggo Desimal (3 Métode)

4. Kembangkeun Formulir Pangguna pikeun Generator Nomer Acak Tanpa Duplikat dina Excel VBA

Dina ilustrasi ieu, urang bakal nunjukkeun kumaha ngagunakeun Form Pamaké dina Excel VBA pikeun ngahasilkeun angka acak jeung euweuh duplikat .

Tugas: Ngahasilkeun20 angka acak dina rentang sél A1:B10 ngagunakeun UserForm kalawan nilai input (i) handapeun handap (ii) kaluhur (iii) jumlah tempat desimal.

Jieun UserForm:

Turutan léngkah-léngkah ieu di handap pikeun nyieun UserForm kalayan widang input anu dipikahoyong .

  • Pindah ka tab Developer tina Excel Ribbon .
  • Klik Visual Pilihan dasar.

  • Dina jandela Visual Basic For Applications , klik dropdown Insert Pikeun milih pilihan UserForm .

  • Dina UserForm tambahkeun a label .
  • Caption label salaku LowerBound dina sipat.

  • Tambahkeun dua deui labél ngaranna Upperbund jeung DecimalPlaces .

  • Ayeuna tambahkeun tilu TextBox dina UserForm .

  • Dina tahap ieu, tambahkeun a CommandButton jeung ngaranna Generate .

  • Ayeuna, klik dua kali Button Komando teras lebetkeun kode di handap ieu dina editor kode . 
6363

  • Pencét F5 pikeun ngajalankeun kode jeung UserForm geus nembongan .
  • Teundeun handapeun handap , kaluhur, jeung nomer tina tempat desimal dina UserForm jeung pencét GenerateTombol .

Kaluaran : Dina sél A1:B10 , aya 20 acak angka kalawan 2 tempat desimal dina rentang 1 nepi ka 30.

Baca Selengkapnya: Kumaha Ngahasilkeun Nomer Acak Tanpa Duplikat dina Excel (7 Cara)

Hal-Hal anu Perlu Diinget

  • Urang ogé tiasa nganggo Fungsi Fix tinimbang fungsi Int pikeun ngahasilkeun angka integer unik . Fungsi ngahapus bagian pecahan tina angka sapertos fungsi Int .

Kacindekan

Ayeuna, urang terang kumaha carana ngahasilkeun angka acak unik nganggo VBA di Excel kalayan bantosan conto anu cocog. Mudah-mudahan, éta bakal ngabantosan anjeun ngagunakeun fungsionalitas langkung percaya diri. Aya patarosan atanapi bongbolongan tong hilap lebetkeun dina kotak koméntar di handap.

pos saméméhna Kumaha Freeze 2 Kolom dina Excel (5 Métode)
Tulisan salajengna Kumaha nimba téks ti sél dina Excel (5 cara)

Hugh West mangrupikeun palatih sareng analis Excel anu ngalaman langkung ti 10 taun pangalaman di industri. Anjeunna nyepeng gelar Sarjana Akuntansi sareng Keuangan sareng gelar Master dina Administrasi Bisnis. Hugh gaduh gairah pikeun ngajar sareng parantos ngembangkeun pendekatan pangajaran anu unik anu gampang diturutan sareng kahartos. Pangaweruh ahli ngeunaan Excel parantos ngabantosan rébuan mahasiswa sareng profésional di sakumna dunya ningkatkeun kaahlian sareng unggul dina karirna. Ngaliwatan blogna, Hugh ngabagi pangaweruhna ka dunya, nawiskeun tutorial Excel gratis sareng pelatihan online pikeun ngabantosan individu sareng usaha ngahontal poténsi pinuh.