Chức năng Rnd
Được sử dụng để thay đổi giá trị hạt giống được sử dụng bởi trình tạo số ngẫu nhiên cho hàm Rnd.
Ví dụ về Rnd đơn giản
123456 | Sub Rnd_Example ()Dim randomValueNgẫu nhiên hóarandomValue = RndKết thúc Sub |
Cú pháp Rnd
Trong VBA Editor, bạn có thể nhập “Rnd (” để xem cú pháp của Hàm Rnd:
Hàm Rnd chứa một đối số:
Con số: [Tùy chọn] Bất kỳ biểu thức số hợp lệ nào.
Ví dụ về hàm Rnd VBA trong Excel
Để tạo giá trị số nguyên ngẫu nhiên từ 1 đến 10, bạn có thể sử dụng mã sau.
12345678 | Sub Rnd_Example1 ()Dim rndValue As SingleNgẫu nhiên hóaĐối với i = 1 đến 20rndValue = Int ((Rnd * 10) + 1)Tiếp theo tôiKết thúc Sub |
Mã này sẽ tạo ra 20 giá trị số nguyên ngẫu nhiên từ 1 đến 10.
Để tạo giá trị ngẫu nhiên giữa giới hạn dưới và giới hạn trên, bạn có thể sử dụng hàm sau.
123 | Chức năng RndSpecial (hướng trên là đơn, hướng dưới là đơn) như đơnRndSpecial = (hướng trên - hướng dưới) * RndChức năng kết thúc |
12345 | Sub Rnd_Example2 ()Dim randomValue As SinglerandomValue = RndSpecial (5, 30)MsgBox randomValueKết thúc Sub |
Điều này sẽ trả về một giá trị ngẫu nhiên từ 5 đến 30.