Vba: cara menggunakan randbetween untuk menghasilkan angka acak

Anda dapat menggunakan metode RandBetween di VBA untuk menghasilkan bilangan bulat acak antara dua nilai tertentu.

Berikut dua cara umum untuk menggunakan metode ini dalam praktik:

Metode 1: Gunakan RandBetween untuk Menghasilkan Integer Acak

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

Makro khusus ini akan menghasilkan bilangan bulat acak antara 1 dan 100 di sel A1 .

Metode 2: Gunakan RandBetween untuk Menghasilkan Beberapa Bilangan Bulat Acak

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

Makro khusus ini akan menghasilkan bilangan bulat acak antara 1 dan 100 untuk setiap sel dalam rentang A1:A10 .

Contoh berikut menunjukkan cara menggunakan masing-masing metode ini dalam praktik.

Contoh 1: Gunakan RandBetween untuk menghasilkan bilangan bulat acak

Misalkan kita ingin membuat angka acak antara 1 dan 100 dan menempatkan hasilnya di sel A1 pada lembar kita saat ini di Excel.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel A1 berisi nilai 36 .

Perhatikan bahwa setiap kali kita menjalankan makro ini, nilai integer yang berbeda antara 1 dan 100 dapat dihasilkan.

Contoh 2: Gunakan RandBetween untuk menghasilkan beberapa bilangan bulat acak

Misalkan kita ingin membuat bilangan bulat acak antara 1 dan 100 untuk setiap sel dalam rentang A1:A10 .

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa setiap sel dalam rentang A1:A10 berisi bilangan bulat acak antara 1 dan 100.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode RandBetween VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menulis fungsi AVERAGEIF dan AVERAGEIFS
VBA: Cara menulis fungsi SUMIF dan SUMIFS
VBA: Cara menulis fungsi COUNTIF dan COUNTIFS