Code tự động điền dữ liệu trong khoảng cho phép (2 người xem)

[Hoàng Nhật Phương]

Xin chào các bạn,
Phiền các bạn tạo giúp tôi một đoạn code tự động điền dữ liệu theo mong muốn trong file đính kèm với ạ?
Xin cảm ơn các bạn rất nhiều.

 

[Hoàng Nhật Phương]

Bạn thử code này xem

Sub DienSo()
Dim VungKetQua, KetQua, KhoangGiaTri
Set VungKetQua = Range("D14:M16") 'Sua lai theo du lieu thuc te
KhoangGiaTri = Range("O14:P16").Value 'Sua lai theo du lieu thuc te
VungKetQua.ClearContents
ReDim KetQua(1 To VungKetQua.Rows.Count, 1 To VungKetQua.Columns.Count)
Randomize
For i = 1 To UBound(KetQua, 1)
    For j = 1 To UBound(KetQua, 2)
        KetQua(i, j) = KhoangGiaTri(i, 2) + Rnd * (KhoangGiaTri(i, 1) - KhoangGiaTri(i, 2))
    Next
Next
VungKetQua.Value = KetQua
End Sub

Trời ơi! hay quá bạn ơi code Tiếng Việt mà vẫn chạy ầm ầm kết quả cũng rất OK bạn à.. tôi thấy rất hứng thú ^^.
Sáng nay tôi cũng có nghĩ đến bạn và một số bạn khác - Hì,mong mãi giờ mới thấy bạn xuất hiện.
Nhưng ở đây nhiều người giỏi thật đó!
Cảm ơn bạn nhiều nhé !

 

[Hoàng Nhật Phương]

Nếu đã đúng ý bạn thì chắc là tôi hiểu sai ý bạn rồi.
Bài #16 bạn thử với dữ liệu Min = 100, Max = 100
Bài #17 bạn thử với dữ liệu Min = 1, Max = 100

Hix đúng thế bạn à, với dữ liệu này thì tôi chạy thấy bị lỗi và máy treo.
Tôi không hiểu về code nên chưa thử với dữ liệu kiểu này,chỉ thấy dữ liệu thực tế khác rất OK.
Cũng có thể đây là trường hợp đặc biệt hiếm gặp nhưng cũng có thể sảy ra.
Và tôi cũng chạy thử code của bạn với dữ liệu dạng này thì không sao cả.
Xin phép bạn cho tôi được sử dụng code của bạn nhé (y) !
Cảm ơn bạn và mọi người rất nhiều !