Artikel ini menggambarkan 4 contoh penjana nombor rawak tanpa pendua menggunakan VBA dalam Excel. Di sini kami akan menggunakan fungsi Rnd terbina dalam Excel untuk mengkonfigurasi kod kami. Mari kita selami contoh untuk mempelajari teknik menjana nombor rawak yang unik.

Muat turun Buku Kerja Amalan

Muat turun buku kerja latihan ini untuk bersenam semasa anda membaca artikel ini.

4 Contoh Penjana Nombor Rawak tanpa Pendua dalam Excel VBA

Tulis Kod dalam Editor Visual Basic

Untuk menjana nombor rawak tanpa pendua , kita perlu membuka dan menulis VBA kod dalam editor asas visual. Ikuti langkah untuk membuka editor asas visual dan tulis beberapa kod di sana.

• Pergi ke Tab Pembangun daripada Reben Excel .
• Klik pilihan Visual Basic.

• Dalam tetingkap Visual Basic For Applications , klik menu lungsur Insert untuk memilih Modul Baharu pilihan.

Sekarang letakkan kod anda di dalam editor kod visual dan tekan F5 untuk menjalankan ia.

1. Penggunaan Fungsi VBA Rnd untuk Menjana Nombor Rawak Tanpa Pendua

Fungsi Rnd digunakan dalam Excel VBA hingga jana nombor rawak yang antara 0 dan 1 eksklusif.

Tugas : Jana 10 nombor rawak antara 0 dan 1 dalam sel A1:A10.

Kod : Masukkan kod berikut dalam editor asas visual dan tekan F5 untuk menjalankan ia.

1438

Output : Tangkapan skrin di atas menunjukkan 10 nombor rawak unik dalam julat 0 dan 1.

Penjelasan Kod:

Dalam kod ini, kami menggunakan fungsi Rnd untuk menyisipkan nombor rawak dalam julat sel A1:A10 . Sebelum memasukkan nombor baharu , kami menggunakan Gelung Lakukan Semasa untuk mencari untuk nombor dalam julat sel yang dipratentukan (A1:A10) sama ada ia sudah wujud atau tidak . Untuk menyemak kewujudan pada nombor dalam julat sel setiap kali, kami mengkonfigurasi kod dengan fungsi COUNTIF , Fungsi ini menyemak a nombor rawak baharu dalam senarai daripada nombor sedia ada sebelum memasukkannya.

Baca Lagi : Formula Excel untuk Menjana Nombor Rawak (5 contoh)

2. Penjana Nombor Rawak untuk Ahad Bawah dan Atas Ditakrifkan tanpa Pendua

Untuk menjana nombor rawak dalam julat yang ditentukan , kita perlu tetapkan bawah dan atas dalam kod VBA kami. Untuk makluman, ambang bawah adalah nombor terendah dan ambang atas adalah nombor tertinggi dalam julat untuk penjana nombor rawak. Kita boleh menggunakan formula berikut dalam kod kami.

(atas – bawah + 1) * Rnd + bawah

2.1 Rawak Penjana Nombor- Perpuluhan

Tugas : Jana 10 nombor rawak antara 10 dan 20 dalam sel A1:A10.

Kod : Masukkan kod berikut dalam editor asas visual dan tekan F5 untuk menjalankan ia.

6172

Output : Tangkapan skrin di atas menunjukkan 10 nombor rawak unik dalam julat 1 dan 10.

2.2 Penjana Nombor Rawak- Integer

Dalam ilustrasi ini, kami akan menggunakan Fungsi VBA Int untuk mengalih keluar bahagian pecahan daripada nombor rawak .

Tugas : Janakan 20 nombor integer rawak antara 1 dan 20 dalam sel A1:B10.

Kod : Masukkan kod berikut dalam editor asas visual dan tekan F5 untuk menjalankan ia.

2338

Output : Tangkapan skrin di atas menunjukkan 20 nombor integer rawak unik dalam julat 1 dan 20.

Baca Lagi: Penjana Nombor Rawak dalam Excel tanpa Ulangan (9 Kaedah)

Bacaan Serupa

• Penjana Nombor Rawak dengan Alat Analisis Data dan Fungsi dalam Excel
• Cara untuk Hasilkan Data Rawak dalam Excel (9Kaedah Mudah)
• Penjana Nombor 5 Digit Rawak dalam Excel (7 Contoh)
• Penjana Nombor 4 Digit Rawak dalam Excel (8 Contoh)
• Jana Nombor Rawak daripada Senarai dalam Excel (4 Cara)

3. Tentukan Tempat Perpuluhan untuk Penjana Nombor Rawak Unik dalam Excel VBA

Kami boleh menggunakan Fungsi Bulat dalam kod kami untuk menentukan nombor daripada tempat perpuluhan dalam nombor unik yang dijana secara rawak . sintaks fungsi ialah-

Bulat(ungkapan, [numdecimalplaces])

Kita perlu menentukan Argumen ke-2 mengikut keperluan kami.

Tugas : Janakan 20 nombor rawak dengan 2 tempat perpuluhan antara 1 dan 20 dalam sel A1:B10.

Kod : Masukkan kod berikut dalam editor asas visual dan tekan F5 untuk menjalankan ia.

4919

Output : Tangkapan skrin di atas menunjukkan 20 nombor integer rawak unik dengan 2 tempat perpuluhan dalam julat 1 dan 20.

Baca Lagi: Jana Nombor Rawak dalam Excel dengan Perpuluhan (3 Kaedah)

4. Membangunkan Borang Pengguna untuk Penjana Nombor Rawak tanpa Pendua dalam Excel VBA

Dalam ilustrasi ini, kami akan menunjukkan cara menggunakan Borang Pengguna dalam Excel VBA untuk menjana nombor rawak dengan tiada pendua .

Tugas: Jana20 nombor rawak dalam julat sel A1:B10 menggunakan Borang Pengguna dengan nilai input (i) ambang bawah (ii) atas atas (iii) bilangan tempat perpuluhan.

Buat Borang Pengguna:

Ikuti langkah di bawah untuk mencipta Borang Pengguna dengan medan input yang dikehendaki kami .

• Pergi ke tab Pembangun daripada Reben Excel .
• Klik Visual Pilihan asas.

• Dalam tetingkap Visual Basic For Applications , klik menu lungsur Sisipkan untuk memilih pilihan UserForm .

• Dalam UserForm tambah a label .
• Kapsyen label sebagai LowerBound dalam sifat.

• Tambahkan dua lagi label bernama Upperbund dan DecimalPlaces .

• Sekarang tambahkan tiga Kotak Teks dalam Borang Pengguna .

• Pada peringkat ini, tambah a CommandButton dan namakannya Jana .

• Sekarang, klik dua kali Button Perintah dan letakkan kod berikut dalam editor kod .

3644

• Tekan F5 untuk menjalankan kod dan UserForm telah muncul .
• Letakkan bawah , atas, dan nombor daripada tempat perpuluhan dalam Borang Pengguna dan tekan JanaButang .

Output : Dalam sel A1:B10 , terdapat 20 rawak nombor dengan 2 tempat perpuluhan dalam julat 1 hingga 30.

Baca Lagi: Cara Menjana Nombor Rawak Tanpa Pendua dalam Excel (7 Cara)

Perkara yang Perlu Diingat

• Kami juga boleh menggunakan Betulkan fungsi bukannya fungsi Int untuk menjana nombor integer unik . Fungsi mengalih keluar bahagian pecahan pada nombor sama seperti fungsi Int .

Kesimpulan

Kini, kita tahu cara menjana nombor rawak unik menggunakan VBA dalam Excel dengan bantuan contoh yang sesuai. Mudah-mudahan, ia akan membantu anda menggunakan fungsi dengan lebih yakin. Sebarang soalan atau cadangan jangan lupa letakkan di dalam kotak komen di bawah.