tạo một số ngẫu nhiên

[gakon001]

em muốn tạo một số ngẫu nhiên chẳng hạn nằm trong đoạn [1,10]. Bác nào giúp em một tay với. Tks trc

 

[SA_DQ]

Thử với các cách sau

Option Explicit
Sub ThuNghiem()
Dim Jj As Integer
Randomize
Jj = 1 + Int(10 * Rnd())
MsgBox Jj, , 1 + (10 * Rnd()) \ 1
End Sub

 

[hoamattroicoi]

Thêm cái này nữa, nguyên tắc tạo một dãy số ngẫu nhiên trong khoảng [x,y] đk (y>x) là :
= Int( x+ (y-x +1)*Rnd())
Ví dụ tạo một dãy số ngẫu nhiên trong khoảng từ [1,10] gán xuống vùng B3 : B20 của sheet bạn thử code sau:

Sub RandNgaunhien()
Dim i As Long, iZ As Integer
 For i = 3 To 20
    Randomize:
        iZ = Int(Rnd() * 10) + 1
        Cells(i, "B").Value = iZ
 Next i
End Sub

Đây là bài tập chập chững đến với VBA của tôi, he he