Nhờ hỗ trợ code VBA ngẫu nhiên để ra kết quả xác định trước

[hoangtuchanlon]

mình có Cột A1:A116 là mã hàng hóa. Cột B1:B116 là cột số lượng món ăn tối đa được cho trước. Cột C1:C116 là cột số lượng được tính bằng randbetween(0,số lượng món tối đa. Cột D1 : D116 là đơn giá bán được cho sẵn ---> Mình muốn đặt code VBA thế nào để cho ra kết quả sao cho Sum (E1 : E116) gần bằng 8.582.400 (Chênh lệch không quá 12.000). Mình đã đặt code đơn giản nhưng chạy quá lâu, chưa thấy ra kết quả. Nên muốn nhờ anh chị hỗ trợ giùm!

 

[VetMini]

Mảng thì luôn là byref mà bác, gọi bằng byval thì vba cũng không copy cả mảng vào stack đâu.

Tôi nói cái mảng trong code. Thực ra thì nó chỉ cóp phần điều khiển vào stack, chứ thường thì vùng dữ liệu để đó. Nhưng có những mảng, phần điều khiển rất dài.