Nhờ anh chị giúp em hàm ngẫu nhiên với tổng là 1 số

[Sangnxxx]

Nhờ anh chị giúp em hàm ngẫu nhiên doanh thu hàng ngày với tổng doanh thu tháng đã biết trước và doanh thu min ngày là 5tr, max ngày là 15tr với ạ, em cảm ơn anh chị

 

[HUONGHCKT]

Nhờ anh chị giúp em hàm ngẫu nhiên doanh thu hàng ngày với tổng doanh thu tháng đã biết trước và doanh thu min ngày là 5tr, max ngày là 15tr với ạ, em cảm ơn anh chị

Tham khảo code trong file đính kèm.
"Bấm một phát" vào mặt cười để được kết quả.

 

[SA_DQ]

)(in góp vui buồn 1 macro

Option Explicit
Sub DoanhThuNgauNhien()
 Dim Rws As Long, J As Long, DTThang As Double, SoNgay As Integer
 Dim TCong As Double, SoGia As Double, TB As Double
 
 DTThang = [C3].Value:              Rws = [A3].End(xlDown).Row
 SoNgay = Rws - 2:                  TB = DTThang \ SoNgay
 Randomize
 For J = 3 To (Rws - 1) Step 2
    SoGia = 10000000 * Rnd() \ 10
    Cells(J, "B").Value = TB - SoGia
    TCong = TCong + TB - SoGia
    If J + 1 < Rws Then
        Cells(J + 1, "B").Value = TB + SoGia
        TCong = TCong + TB + SoGia
    End If
 Next J
 Cells(Rws, "B").Value = DTThang - TCong
End Sub

 

[HUONGHCKT]

)(in góp vui buồn 1 macro

Option Explicit
Sub DoanhThuNgauNhien()
 Dim Rws As Long, J As Long, DTThang As Double, SoNgay As Integer
 Dim TCong As Double, SoGia As Double, TB As Double
 
 DTThang = [C3].Value:              Rws = [A3].End(xlDown).Row
 SoNgay = Rws - 2:                  TB = DTThang \ SoNgay
 Randomize
 For J = 3 To (Rws - 1) Step 2
    SoGia = 10000000 * Rnd() \ 10
    Cells(J, "B").Value = TB - SoGia
    TCong = TCong + TB - SoGia
    If J + 1 < Rws Then
        Cells(J + 1, "B").Value = TB + SoGia
        TCong = TCong + TB + SoGia
    End If
 Next J
 Cells(Rws, "B").Value = DTThang - TCong
End Sub

@SA_DQ Code nhanh siêu tưởng. kết quả trả về là số sàng sàng gần với số trung bình của Tổng doanh thu/ số ngày trong tháng. Điều này có lẽ là đúng ý muốn của chủ thớt.

 

[Sangnxxx]

Tham khảo code trong file đính kèm.
"Bấm một phát" vào mặt cười để được kết quả.

tổng doanh thu ngày mình k thấy bằng doanh thu tháng bạn ơi, cho mình hàm luôn với ạ

Bài đã được tự động gộp: 1/11/24

@SA_DQ Code nhanh siêu tưởng. kết quả trả về là số sàng sàng gần với số trung bình của Tổng doanh thu/ số ngày trong tháng. Điều này có lẽ là đúng ý muốn của chủ thớt.

híc e k biết làm cái này à

 

[HUONGHCKT]

tổng doanh thu ngày mình k thấy bằng doanh thu tháng bạn ơi, cho mình hàm luôn với ạ

Bài đã được tự động gộp: 1/11/24

híc e k biết làm cái này à

Bạn đã chạy thử chưa? Ngạc nghiên thật.
Ô C34 là tôi so sánh xem kết quả chạy code có chênh lệch với Ô C3, cơ mà nó bằng không thì nghĩa là sao?
Bạn có vấn đề gì không khi đăng trong mục lập trình giờ lại muốn có được hàm là thế nào?
Bạn hãy bỏ những từ viết tắt đi để nhận được nhiều sự hỗ trợ hơn.

 

[SA_DQ]

. . . .
Bạn có vấn đề gì không khi đăng trong mục lập trình giờ lại muốn có được hàm là thế nào?
. . . . .

Có lẽ là hàm tự tạo đó bạn!
[Cũng là macro với nhau, khi bạn bỏ vô mặt cười thì chủ bài đăng chịu; Còn mình để khơi khơi thì bạn ta ứ chịu!]
Điều này làm mình buồn đến nữa ngày mới hết.