Hàm VBA - Điền một phạm vi có giá trị ngẫu nhiên - Ví dụ về mã VBA

Điền các ô có giá trị ngẫu nhiên

Đoạn mã sau sẽ điền vào một phạm vi nhất định với một số ngẫu nhiên từ 0 đến 1000:

Sub Randomise_Range (Cell_Range As Range) 'Sẽ ngẫu nhiên hóa từng ô trong Phạm vi Dim Cell' Tắt cảnh báo màn hình Application.ScreenUpdating = False For Each Cell In Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub

Mã “Application.ScreenUpdating = FALSE” và “Application.ScreenUpdating = TRUE” dùng để tắt và bật cảnh báo màn hình - làm cho mã chạy nhanh hơn nhiều.

Nó có thể được thiết lập thông qua một sự kiện nhấp chuột, với quy trình chính chỉ định phạm vi:

Private Sub CommandButton1_Click () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub

Vì vậy, trong trường hợp này, các ô A1: T8000 trên trang tính 3 được điền các số ngẫu nhiên - khi nút lệnh 1 được nhấp.

Tải xuống tệp .XLSM tại đây