Một số ví dụ tạo giá trị ngẫu nhiên trong VBA

' Khởi tạo hạt giống ngẫu nhiên

    Randomize

    

    ' Danh sách số

    Dim so(1 To 5) As Integer

    so(1) = 5

    so(2) = 7

    so(3) = 1

    so(4) = 2

    so(5) = 9

    

    ' Chọn ngẫu nhiên một số trong danh sách số

    Dim randomIndex As Integer

    randomIndex = Int((5 - 1 + 1) * Rnd + 1)

    

    ' Hiển thị số ngẫu nhiên trong hộp thoại

    MsgBox "Số ngẫu nhiên là: " & so(randomIndex) 

' Khởi tạo hạt giống ngẫu nhiên

    Randomize

    

    ' Danh sách tên

    Dim names(1 To 5) As String

    names(1) = "John"

    names(2) = "Alice"

    names(3) = "Bob"

    names(4) = "Eve"

    names(5) = "Charlie"

    

    ' Chọn ngẫu nhiên một tên trong danh sách

    Dim randomIndex As Integer

    randomIndex = Int((5 - 1 + 1) * Rnd + 1)

    

    ' Hiển thị tên ngẫu nhiên trong hộp thoại

    MsgBox "Tên ngẫu nhiên là: " & names(randomIndex) 

   ' Khai báo các biến

    Dim db As Database

    Dim rs As Recordset

    Dim rowCount As Long

    Dim randomRow As Long

    Dim randomID As Long

    Dim randomName As String

    Dim randomAge As Integer

    

    ' Tham chiếu đến cơ sở dữ liệu hiện tại

    Set db = CurrentDb

    

    ' Mở bảng MyTable dưới dạng Recordset

    Set rs = db.OpenRecordset("MyTable", dbOpenSnapshot)

    

    ' Lấy số lượng dòng trong bảng

    rowCount = rs.RecordCount

    

    ' Nếu bảng có ít nhất một dòng, tiến hành chọn ngẫu nhiên

    If rowCount > 0 Then

        ' Khởi tạo hạt giống ngẫu nhiên

        Randomize

        

        ' Tạo chỉ số ngẫu nhiên trong phạm vi từ 1 đến rowCount

        randomRow = Int((rowCount) * Rnd + 1)

        

        ' Di chuyển con trỏ Recordset đến dòng ngẫu nhiên

        rs.MoveFirst

        rs.Move randomRow - 1 ' Di chuyển đến dòng ngẫu nhiên

        

        ' Lấy dữ liệu từ dòng ngẫu nhiên

        randomID = rs!ID

        randomName = rs!Name

        randomAge = rs!Age

        

        ' Hiển thị thông tin dòng ngẫu nhiên

        MsgBox "Dòng ngẫu nhiên: " & vbCrLf & _

               "ID: " & randomID & vbCrLf & _

               "Name: " & randomName & vbCrLf & _

               "Age: " & randomAge

    Else

        MsgBox "Bảng không có dữ liệu."

    End If

    

    ' Đóng Recordset

    rs.Close

    Set rs = Nothing

    Set db = Nothing