Xin giải pháp: Nhập tổng lượng vào 1 ô, nó tự chia lượng ra các ô bên dưới· (1 người xem)

Việt Đức Phạm · 12/1/24

Chào anh chị em có trường hợp này nhờ anh chị hỗ trợ giúp.
Mình muốn nhập một lượng vào ô Tổng bên trên, bảng tính tự động chia lượng cho mình vào các ô bên dưới. Lượng bên dưới được chia random ( không phải là số liền kề liên tiếp 1 2 3), Mình xin cảm ơn các bạn

HUONGHCKT · 12/1/24

Việt Đức Phạm đã viết:
Chào anh chị em có trường hợp này nhờ anh chị hỗ trợ giúp.
Mình muốn nhập một lượng vào ô Tổng bên trên, bảng tính tự động chia lượng cho mình vào các ô bên dưới. Lượng bên dưới được chia random ( không phải là số liền kề liên tiếp 1 2 3), Mình xin cảm ơn các bạnView attachment 298363

Đưa file giả định lên, để nhận được kết quả.

Quang_Hải · 12/1/24

Việt Đức Phạm đã viết:
Chào anh chị em có trường hợp này nhờ anh chị hỗ trợ giúp.
Mình muốn nhập một lượng vào ô Tổng bên trên, bảng tính tự động chia lượng cho mình vào các ô bên dưới. Lượng bên dưới được chia random ( không phải là số liền kề liên tiếp 1 2 3), Mình xin cảm ơn các bạnView attachment 298363

Lúc còn đi làm công nhân sợ nhất là phải làm mấy việc như thế này. Đồ giả khó kiểm soát đúng sai.

VetMini · 12/1/24

Quang_Hải đã viết:
Lúc còn đi làm công nhân sợ nhất là phải làm mấy việc như thế này. Đồ giả khó kiểm soát đúng sai.

Lúc đọc báo cáo sợ nhất là mấy cái bảng tính thiết kế kiểu này. Nhìn như cái sọt rác.

SA_DQ · 13/1/24

VetMini đã viết:
Lúc đọc báo cáo sợ nhất là mấy cái bảng tính thiết kế kiểu này. Nhìn như cái sọt rác.

Coi chừng bị Excel chưỡi cho bây chừ!

@Tác giả bài đăng: Sao hành văn 1 nẽo mà hình ảnh lại 1 đường là sao vậy, muốn cải lộn cho vui ư?

cantl · 13/1/24

Việt Đức Phạm đã viết:
tự động

Bài này chắc là solver, tuy nhiên vì chưa thuần chủng được nó nên tớ không chắc lắm là có thành công không. Nên mò thử.

VetMini · 13/1/24

cantl đã viết:
Bài này chắc là solver, tuy nhiên vì chưa thuần chủng được nó nên tớ không chắc lắm là có thành công không. Nên mò thử.

Trừ phi người thực hiện rất khó tính, chứ bài toán này là dạng bá cá mau. Ở đây thi thoảng vẫn gặp.

- Nếu STT là 1 thì Randbetween(1, tổng - (số các khách còn lại : tức là 10 - STT))
- Nếu STT < 10 thì Randbetween(1, tổng - (số các khách còn lại) - (tổng từ STT1 đến STT(n-1)))
- Nếu STT = 10 thì tổng - (tổng từ STT1 đến STT9)

Tạo sao phải tính số còn lại?
Để bảo đảm không bị hết hàng, các khách còn lại sẽ bị 0

Tại sao "khó tính"?
Giải thuật này không hoàn toàn là "random". Các số đầu sẽ có khuynh hướng lớn hơn các số sau.

HUONGHCKT · 13/1/24

Góp vui. 1 giải pháp bằng VBA.

Mã:

Option Explicit

Function SoTuDong(ByVal Tien As Long, Dong As Integer) As Variant
Dim i, T&, Tong&, ConLai&, TongCong&, D&, C&
Dim Rng As Range
D = Int(Tien / Dong / 2): C = D * 3
ReDim KQ(1 To Dong, 1 To 1)
Do
    TongCong = 0: Tong = 0
    For i = 1 To Dong
        If i <> Dong Then
          T = Application.WorksheetFunction.RandBetween(D, C)
            KQ(i, 1) = T
            Tong = Tong + T
            ConLai = Tong - Tien
        Else
            If ConLai < 0 Then KQ(Dong, 1) = ConLai * -1
            TongCong = Tong + KQ(Dong, 1)
        End If
    Next i
Loop While TongCong <> Tien
SoTuDong = KQ
End Function

Cú pháp : SoTuDong=(Tổng số;số dòng) Enter để có kết quả. cứ mỗi lần Enter là có 1 kết quả khác nhau nhưng tổng số vẵn bằng Số cho trước.
Ví dụ: Số lít = 100 ; số dòng =10 : D4=SoTuDong(100;10)

CHAOQUAY · 13/1/24

Về phân chia cái "Tổng số lít" này cũng khó nói lắm
Vào mùa, nhà nhà đều nhậu thì có lẽ cái số lít chênh lệch giữa các nhà cũng không nhiều lắm. Nhưng mà lúc trái vụ, chênh lệch về số lít giữa các nhà lại là rất đáng kể.

Việc này có lẽ chủ thớt cũng cần bổ sung thêm 1 hoặc là vài yếu tố thời vụ nữa mới có thể phân bổ giống thực tế được

SA_DQ · 13/1/24

HUONGHCKT đã viết:
Góp vui. 1 giải pháp bằng VBA.

Option Explicit

Function SoTuDong(ByVal Tien As Long, Dong As Integer) As Variant

End Function

Cú pháp : SoTuDong=(Tổng số;số dòng) Enter để có kết quả. cứ mỗi lần Enter là có 1 kết quả khác nhau nhưng tổng số vẵn bằng Số cho trước.
Ví dụ: Số lít = 100 ; số dòng =10 : D4=SoTuDong(100;10)

Nhưng số lít chỉ gấp 3 lần số dòng trở lại thì trùng khá nhiều!Mà đề bài là không liên tục thôi; Trùng chắc được chấp nhận!

cantl · 13/1/24

VetMini đã viết:
khó tính

thì nó mới khó bác ạ.
Bài này em thử Solver thì cũng được, nhưng khoảng 5, 7 lần nó lại lọt ra số lít lẻ thập phân, có lúc lại 10, 11 lần; rồi có lúc tổng nó lại vọt lên 3, 400.
Thành ra em cũng không rõ Solver của MS có chuẩn không nữa.

HUONGHCKT đã viết:
SoTuDong

Em đang thử thì kết quả nhận được chưa xét đến điều kiện các số liên tiếp không được hơn kém nhau <=1 đơn vị.

LmoovoenX · 13/1/24

Góp vui chủ thớt giải pháp
Tạo cột phụ j2 đến j10 = randbetween(1,99)
L2 =SUMPRODUCT(IFERROR(SMALL($J$2:$J$10,ROW(A1)-{0,1}),{100,0}),{1,-1})
Nhược điểm: vì lấy hiệu số nên kết quả nhận được thường số không lớn lắm. Và lâu lâu trong dãy J2:j10 có số trùng nhau thì sẽ có kết quả 0.

cantl · 13/1/24

LmoovoenX đã viết:
Tạo cột phụ

có nhưng mà lại không

HUONGHCKT · 13/1/24

SA_DQ đã viết:
Nhưng số lít chỉ gấp 3 lần số dòng trở lại thì trùng khá nhiều!Mà đề bài là không liên tục thôi; Trùng chắc được chấp nhận!

Cảm ơn anh đã ghé xem bài và tương tác.
Tôi nhĩ là lấy số Top chỉ =1,5 lần và Bottom chỉ bằng nửa số trung bình thì để cho code chạy ít vòng lặp, chứ để nhiều tức là nâng số bottom lên ( ví dụ: số top =Số lít/số dòng x n lần nào đó ) thì vòng lặp Do....... Loop phải chạy có thể rất nhiều lần và dễ sa vào vòng lặp thiếu kiên nhẫn.
Với lại chủ thớt cũng không có điều kiện là không được trùng lặp nên phương án lấy Bottom = 0,5 và top = 1,5 sô trung bình có thể được chấp nhận.

LmoovoenX · 13/1/24

cantl đã viết:
có nhưng mà lại không

Có thể bạn thao tác nhầm lẫn chỗ nào, chứ về lý thuyết tổng đó không thể nào khác 100 được.

cantl · 13/1/24

LmoovoenX đã viết:
Có thể bạn thao tác nhầm lẫn chỗ nào, chứ về lý thuyết tổng đó không thể nào khác 100 được.

Nhầm thật, nhưng mà thỉnh thoảng lại 0 lít. Phải nâng cấp rồi.

LmoovoenX · 13/1/24

cantl đã viết:
có nhưng mà lại không

Cũng được, nhưng phải tạo cột phụ 99 ô, tương ứng với tổng 100 lit.

=SUMPRODUCT(IFERROR(SMALL(RANK($B$2:$B$10;$B$2:$B$100);ROW(A1)-{0;1});{100;0});{1;-1})

Vẫn có khả năng có số bằng 0, nhưng tỷ lệ rất thấp.

VetMini · 13/1/24

LmoovoenX đã viết:
...
Vẫn có khả năng có số bằng 0, nhưng tỷ lệ rất thấp.

Ở bài #7 tôi đã đề cập vụ này rồi. Cách phân bổ duy nhất để tránh 0 là trừ trước.
Mỗi ô sẽ nhận 1 trước khi bắt đầu phân bổ.

SA_DQ · 13/1/24

Cho phép ham vui xíu nha:

PHP:

Function SoTuDong(ByVal Tien As Long, Dong As Integer) As Variant
Dim fNum As Integer, TB As Long, J As Integer, Tong As Integer

TB = Tien / Dong:                           Randomize
ReDim KQ(1 To Dong, 1 To 1)
Do
    J = J + 1:
    If J = Dong Then
        KQ(Dong, 1) = Tien - Tong:          Exit Do
    End If
    fNum = J + TB * Rnd()
    KQ(J, 1) = fNum \ 1
    Tong = Tong + KQ(J, 1)
Loop
SoTuDong = KQ()
End Function

Nhưng số lít cần nhập nên gấp 6 lần trở lên so với số dòng mới đẹp mảng nhận được

LmoovoenX · 13/1/24

Cám ơn bác đã chỉ. Em sửa lại như sau:
=SUMPRODUCT(IFERROR(SMALL($B$2:$B$10;ROW(A1)-{0;1});{90;0});{1;-1})+1
Với b2:b10 = RANDBETWEEN(0;90)

VetMini đã viết:
Ở bài #7 tôi đã đề cập vụ này rồi. Cách phân bổ duy nhất để tránh 0 là trừ trước.
Mỗi ô sẽ nhận 1 trước khi bắt đầu phân bổ.

Excel 365 có hàm tạo số ngẫu nhiên cho mảng, có mảng động, nên có thể áp dụng cho số tổng và số dòng là bất kỳ.

CHAOQUAY · 13/1/24

@ Thớt: Tham khảo 1 cách phân bổ theo solver
- Chạy sub abc để hoán vị
- Chạy solver để xem kết quả

cantl · 13/1/24

SA_DQ đã viết:
Cho phép ham vui xíu nha:

PHP:

Function SoTuDong(ByVal Tien As Long, Dong As Integer) As Variant Dim fNum As Integer, TB As Long, J As Integer, Tong As Integer TB = Tien / Dong: Randomize ReDim KQ(1 To Dong, 1 To 1) Do J = J + 1: If J = Dong Then KQ(Dong, 1) = Tien - Tong: Exit Do End If fNum = J + TB * Rnd() KQ(J, 1) = fNum \ 1 Tong = Tong + KQ(J, 1) Loop SoTuDong = KQ() End Function

Nhưng số lít cần nhập nên gấp 6 lần trở lên so với số dòng mới đẹp mảng nhận được

Tại sao code của bác ấn F9 nó không nhảy giá trị như code của bác HUONGHCKT như trên vậy nhỉ? Là lạ bác ạ! _)()(-

CHAOQUAY đã viết:
solver

Solver có vẻ không hay vì nó cho cảm giác không phải random thực sự, nó dồn to vào 1 chỗ, phần còn lại bị teo nhỏ nhỉ.

CHAOQUAY · 13/1/24

cantl đã viết:
Tại sao code của bác ấn F9 nó không nhảy giá trị như code của bác HUONGHCKT như trên vậy nhỉ? Là lạ bác ạ!

Solver có vẻ không hay vì nó cho cảm giác không phải random thực sự, nó dồn to vào 1 chỗ, phần còn lại bị teo nhỏ nhỉ.

File này chủ yếu là test solver có thể tìm được kết quả yêu cầu hay không nên để đơn giản vậy chạy cho nhanh.
Nếu cần, có thể bổ sung điều kiện biên để yêu cầu solver kết quả khác nhưng khi đó có thể sẽ chạy lâu hơn.

Bài này tổng = 100, số phần tử = 10 nên liệt kê số tới 55, solver nó cứ tìm tổ hợp nào gần nhất, xong là dừng nên kết quả trả về như vậy.
Nếu bạn xóa 1 vài dòng trong số liệu nguồn, sẽ thấy solver trả về kết quả khác

VetMini · 13/1/24

Function PhanBo(ByVal tong As Long, ByVal phan As Long)
' ham phan bo so luong "tong" theo so luong "phan"
' output: mot mang "phan" phan tu; dieu kien: moi phan tu duoc phan bo it nhat 1
'
If tong < phan Then
PhanBo = "Khong du luong de phan bo"
Exit Function
End If
Randomize
ReDim a(1 To phan) As Long
For i = 1 To phan
a(i) = Application.RandBetween(1, 1000000)
tongA = tongA + a(i)
Next i
tongA = (tong - phan) / tongA ' tinh he so cho moi phan tu
For i = 1 To phan
a(i) = Int(a(i) * tongA) + 1 ' cong 1 de bao dam moi phan tu >= 1
tong = tong - a(i)
Next i
If tong > 0 Then ' thanh ly so le do sai so tinh toan
i = Application.RandBetween(1, phan)
a(i) = a(i) + tong
End If
PhanBo = a
End Function

Hàm trả về một mảng dọc.
Để sử dụng:
- select 10 ô liên tiếp
- gõ =PhanBo(số lượng, 10)
- gõ Ctrl+Shift+Enter

Giải thuật được tính theo kiểu để tránh tối đa trường hợp chênh lệch nhiều quá (tránh tối đa là đủ rồi, đã random thì tránh 100% hơi khó.)

HieuCD · 14/1/24

VetMini đã viết:
Function PhanBo(ByVal tong As Long, ByVal phan As Long)
' ham phan bo so luong "tong" theo so luong "phan"
' output: mot mang "phan" phan tu; dieu kien: moi phan tu duoc phan bo it nhat 1
'
If tong < phan Then
PhanBo = "Khong du luong de phan bo"
Exit Function
End If
Randomize
ReDim a(1 To phan) As Long
For i = 1 To phan
a(i) = Application.RandBetween(1, 1000000)
tongA = tongA + a(i)
Next i
tongA = (tong - phan) / tongA ' tinh he so cho moi phan tu
For i = 1 To phan
a(i) = Int(a(i) * tongA) + 1 ' cong 1 de bao dam moi phan tu >= 1
tong = tong - a(i)
Next i
If tong > 0 Then ' thanh ly so le do sai so tinh toan
i = Application.RandBetween(1, phan)
a(i) = a(i) + tong
End If
PhanBo = a
End Function

Hàm trả về một mảng dọc.
Để sử dụng:
- select 10 ô liên tiếp
- gõ =PhanBo(số lượng, 10)
- gõ Ctrl+Shift+Enter

Giải thuật được tính theo kiểu để tránh tối đa trường hợp chênh lệch nhiều quá (tránh tối đa là đủ rồi, đã random thì tránh 100% hơi khó.)

Chỉ điều chỉnh 1 giá trị có thể làm kết quả chênh lệch không đều
= PhanBo(14, 10)

Xin giải pháp: Nhập tổng lượng vào 1 ô, nó tự chia lượng ra các ô bên dưới· (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

Zalo 0986997214

Thành viên gạo cội

Đang đi tìm hòn đá

/(hông là gì!

!!! Giải thoát !!!

Đang đi tìm hòn đá

Zalo 0986997214

Thành viên gắn bó

/(hông là gì!

!!! Giải thoát !!!

Thành viên tiêu biểu

!!! Giải thoát !!!

Zalo 0986997214

Thành viên tiêu biểu

!!! Giải thoát !!!

Thành viên tiêu biểu

File đính kèm

Đang đi tìm hòn đá

/(hông là gì!

Thành viên tiêu biểu

Thành viên gắn bó

File đính kèm

!!! Giải thoát !!!

Thành viên gắn bó

Đang đi tìm hòn đá

Chuyên gia GPE

Thời gian đếm ngược.