Bài toán về chia tiền lương

Liên hệ QC
anhtuan1066 đã viết:
Vậy đâu có dc... Như thế là bạn ưu tiên tờ mệnh giá 500,000 à... Hơi tham... he.. he...
Nhấp chuột vào đây để mở rộng...
Cái quan trọng là số tiền mệnh giá nhỏ nhất đủ chia. Còn có thể quy ra a->b->c->d. Thêm cột, để ý tiền mệnh giá 5000*(2n+1).
 
Nếu mình là Thủ quỹ

Mình sẽ chia theo cách sau: Lấy số tờ của mệnh giá lớn nhất phát trước & cố gắng phát đều từ người lương cao đến người lương thấp (Đến khi hết thì chuyền). Như vậy sẽ có n < Tong được i tờ tiền & những người còn lại là i-1 tờ!
Tiếp theo sẽ đến anh chàng mệnh giá lớn thứ hai; nhưng có thể bắt đầu từ anh n+1 khi nãy trở đi!
. . . .
(Tất nhiên sao cho mệnh giá các tờ tổng lại đừng vượt số tiền anh ta được lãnh)
(/iết là như vậy, còn thuật toán thì đến khi làm thử quỹ thực thụ mới tính;

Mình mới là Thủ quỷ thôi; Ở tất cả mọi nơi trên trái đất!
 
Mình hiểu rùi tức là mỗi người lãnh lương là bao nhiêu đó tiền nhưng bạn muốc đếm là bao nhiêu tờ tiền từng loại mệnh giá? Bạn tải file này về và nghiên cứu nha !! mình đã làm sẵn luôn rùi!!!
 
Lần chỉnh sửa cuối:
Sao mình gởi file đính kèm không được,giúp mình với !!
 
Bài toán chia tiền lương 1

anhtuan1066 đã viết:
Giã sử cô thử ký đi lãnh tiền về chia cho công nhân, cô ta lãnh dc Y đồng gồm có 5 loại mệnh giá:
-A tờ loại a đồng (mệnh giá lớn nhất)
-B tờ loại b đồng (mệnh giá lớn thứ 2)
-C tờ loại c đồng (mệnh giá lớn thứ 3)
-D tờ loại c đồng (mệnh giá lớn thứ 4)
-E tờ loại e đồng (mệnh giá lớn thứ 5)
Cô ta chia số tiền này cho 100 người: n001, n002, ... n100
Từng người lần lượt dc lãnh X1, X2... X100 đồng
Vậy phải chia số tiền Y đồng này cho 100 người như thế nào là hợp lý? Mỗi người dc nhận bao nhiêu tờ trong mỗi loại mệnh giá trên? Giã định rằng tiền lãnh của mỗi người luôn là bội số của loại tiền mệnh giá nhỏ nhất (tức ko bị lẽ)
Các bạn có ai từng gặp chuyện tương tự thế này chưa? Là chia tiền đó... Xin hỏi thuật toán của bài toán này là gì? Tôi nghĩ hoài vẫn ko ra!
Mong dc góp ý!
ANH TUẤN
Nhấp chuột vào đây để mở rộng...
Bài toán này đã trên 1 năm, với nhiều phương án, bây giờ mới tìm được cách giải. Có thể nó chưa hoàn chỉnh về thuật toán, về tốc độ nhưng cơ bản đã giải quyết được yêu cầu của đề bài. Xin gởi tặng các anh chị kế toán, thủ quỹ để chia sẽ khó khăn mỗi đợt phát lương.
VBA Phat Luong.xls có 2 chức năng:
Để đảm bảo cho người nhận nhận số tờ ít nhất, nguyên tắc chia số tờ như sau:
1. Chia tiền lớn trước, tiền nhỏ sau.
2. Cùng một loại tiền, số tờ nhận của từng người tỷ lệ với số tiền lương (tránh trường hợp 1 người nhận loại tiền lớn quá nhiều, người khác nhận tiền nhỏ quá nhiều)
1. Số tờ phát tối ưu:
Tìm số tờ phát theo từng loại tiền tối ưu. Dữ liệu cần: Loại tiền, Tiền lương.
Chức năng này giúp bạn biết số tờ theo từng loại tiền. Thủ quỹ chỉ việc chuẩn bị đổi tiền và phát theo bảng kê.
2. Phát lương:
Tìm số tờ phát theo từng loại tiền theo số tờ có thực tế trong quỹ. Dữ liệu cần: Loại tiền, Số tiền có, Tiền lương.
Chức năng này phân tích số tờ phát ra theo từng loại, thừa, thiếu. Từ đó thủ quỹ biết được các loại tiền thiếu cần bổ sung thêm


Bảng dữ liệu (hình 1): Vị trí bảng có thể bố trí bất kỳ nhưng phải đáp ứng các yêu cầu sau để nhận dạng tự động vị trí của bảng:
- Ô đầu tiên để xác định bảng là ô có chữ “Loại tiền”. Trong sheet không có ô nào khác chứa nội dung như vậy)
- Cột cuối cùng của bảng là cột kế bên trái loại tiền cuối cùng (nhận dạng bằng vị trí ô trống đầu tiên bên phải dòng Loại tiền). Dòng cuối cùng của bảng là dòng cuối cùng của tiền (nhận dạng bằng vị trí ô trống đầu tiên phía dưới tiền lương) trong hình là 2 ô màu đỏ.
Không nên thay đổi cấu trúc của bảng. Theo yêu cầu riêng, bạn có thể thêm dữ liệu vào như STT, Họ tên, ngày tháng, …. vào bất kỳ ô nào (ngoại trừ khu vực bảng và 2 ô nhận dạng)
PhatLuonga1.jpg

hình 1


 

File đính kèm

  • VBA Phat Luong.zip
    21.1 KB · Đọc: 283
Lần chỉnh sửa cuối:
Bài toán chia tiền lương 2

Nhập dữ liệu:
- Loại tiền: nhập theo thứ tự lớn đến nhỏ. Tốt nhất là nhập tất cả các loại tiền đang lưu hành (loại tiền nào trong quỹ không có thì Số tờ có=0) để khỏi bổ sung thêm khi thiếu.
- Số tờ có: nhập số tờ từng loại tiền trong quỹ có.
- Tiền lương: nhập tiền lương các cb-cnv trong đơn vị


Phân tích kết quả:
Với ví dụ trong hình 1, chạy từng chức năng có kết quả như sau:
1. Số tờ phát tối ưu (hình 2):
Còn 6 trường hợp Phát thiếu >0. Các trường hợp này vì loại tiền khai báo nhỏ nhất là 500đ nên không thể phát được. Xử lý bằng cách: bổ sung thêm tiền 200đ, 100đ hoặc làm tròn tiền lương đến 500đ
Số tiền​
 |
Làm tròn​
 |
2.345.100​
|
2.345.000​
|
1.956.800​
|
1.957.000​
|
2.315.700​
|
2.315.500​
|
5.673.900​
|
5.674.000​
|
3.025.700​
|
3.025.500​
|
3.381.600​
|
3.381.500​
|
6.789.000​
|
6.789.000​
|
PhatLuonga2.jpg

hình 2

2. Bảng kê số tờ theo loại tiền (hình 3):
Cả 7 trường hợp Phát thiếu >0. Không giải quyết được trường hợp nào. Có 2 nguyên nhân:
- Không có loại tiền dưới 500đ (xử lý như phần trên)
- Thiếu số tờ cho loại tiền (2.000đ thiếu 2, 1.000đ thiếu 1, 500đ thiếu 2). Xử lý bằng cách tăng số tờ cho loại tiền thiếu. Có thể chỉ cần bạn tăng số tờ cho loại tiền thiếu thấp nhất (500đ) sao cho nó bù đủ các loại tiền thiếu khác.
PhatLuonga3.jpg

hình 3
PHP: 
Sub PhatLuong()
Dim nLoaiTien As Long, rDanhSach As Long, cLoaiTien1 As Long, cLoaiTien2 As Long, cTmp As Long
Dim nSoTo As Long, nSoTo1 As Long, rSoTo As Long, nHeSo As Double
Dim cDanhSach As Long, rDanhSach1 As Long, rDanhSach2 As Long
Dim sToPhat As Long, nToPhat As Long, nToDu As Long, nToThieu As Long
Dim rr As Long, cc As Long
On Error GoTo baoloi
ActiveCell.Select
Cells.Find(What:="Lo" & ChrW(7841) & "i ti" & ChrW(7873) & "n", After:=ActiveCell, LookIn:=xlValues, _
  LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate
cDanhSach = ActiveCell.Column: rDanhSach = ActiveCell.Row
cLoaiTien1 = cDanhSach + 1
cLoaiTien2 = Cells(rDanhSach, cLoaiTien1).End(xlToRight).Column
cTmp = cLoaiTien2 + 1
rSoTo = rDanhSach + 1
rDanhSach1 = rDanhSach + 5
rDanhSach2 = Cells(rDanhSach, cDanhSach).End(xlDown).Row
Range(Cells(rDanhSach + 2, cLoaiTien1), Cells(rDanhSach2, cLoaiTien2 + 1)).ClearContents
Range(Cells(rDanhSach, cTmp), Cells(rDanhSach + 1, cTmp)).ClearContents
Cells(rDanhSach1 - 1, cTmp) = "Phát thi" & ChrW(7871) & "u"
Range(Cells(rDanhSach, cDanhSach), Cells(rDanhSach2 + 1, cLoaiTien2 + 2)).Borders.LineStyle = 0
Range(Cells(rDanhSach, cDanhSach), Cells(rDanhSach2, cTmp)).Borders.LineStyle = 1
Range(Cells(rDanhSach1, cDanhSach), Cells(rDanhSach2, cDanhSach)).Copy Cells(rDanhSach1, cTmp)
For cc = cLoaiTien1 To cLoaiTien2
  nLoaiTien = Cells(rDanhSach, cc)
  nSoTo = Cells(rSoTo, cc)
  nSoTo1 = 0
  For rr = rDanhSach1 To rDanhSach2
    Cells(rr, cc) = Cells(rr, cTmp) \ nLoaiTien
    nSoTo1 = nSoTo1 + Cells(rr, cc)
  Next rr
  If nSoTo1 = 0 Then nHeSo = 0 Else nHeSo = nSoTo / nSoTo1
  sToPhat = 0
  For rr = rDanhSach1 To rDanhSach2
    If nSoTo1 > nSoTo Then
      nToPhat = Round(nHeSo * Cells(rr, cc), 0)
      If sToPhat + nToPhat > nSoTo Then nToPhat = nSoTo - sToPhat
    Else
      nToPhat = Cells(rr, cc)
    End If
    sToPhat = sToPhat + nToPhat
    Cells(rr, cc) = nToPhat
    Cells(rr, cTmp) = Cells(rr, cTmp) - nToPhat * nLoaiTien
  Next rr
  nToDu = nSoTo - sToPhat
  If nToDu > 0 Then
    For rr = rDanhSach1 To rDanhSach2
      nToPhat = Cells(rr, cTmp) \ nLoaiTien
      If nToPhat > 0 Then
        If nToPhat >= nToDu Then
          Cells(rr, cc) = Cells(rr, cc) + nToDu
          Cells(rr, cTmp) = Cells(rr, cTmp) - nToDu * nLoaiTien
          Exit For
        Else
          nToPhat = Cells(rr, cc)
        End If
      End If
    Next rr
  End If
  Cells(rSoTo + 1, cc) = Application.WorksheetFunction.Sum(Range(Cells(rDanhSach1, cc), Cells(rDanhSach2, cc)))
  Cells(rSoTo + 2, cc) = nSoTo - Cells(rSoTo + 1, cc)
Next cc
For rr = rDanhSach1 To rDanhSach2
  If Cells(rr, cTmp) > 0 Then
    nToThieu = Cells(rr, cTmp)
    For cc = cLoaiTien1 To cLoaiTien2
      nToPhat = nToThieu \ Cells(rDanhSach, cc)
      If nToPhat > 0 Then
        Cells(rSoTo + 3, cc) = Cells(rSoTo + 3, cc) + nToPhat
        nToThieu = nToThieu - Cells(rDanhSach, cc) * nToPhat
      End If
    Next
  End If
Next rr
Range(Cells(rDanhSach, cDanhSach), Cells(rDanhSach2, cTmp)).Columns.AutoFit
Exit Sub
baoloi:
MsgBox "Khong tim thay bang hoac bang khong dung mau quy dinh", vbOKOnly, "Thong bao"
End
End Sub


PHP: 
Sub SoToToiUu()
Dim nLoaiTien As Long, rDanhSach As Long, cLoaiTien1 As Long, cLoaiTien2 As Long, cTmp As Long
Dim rSoTo As Long, cDanhSach As Long, rDanhSach1 As Long, rDanhSach2 As Long
Dim nToPhat As Long, rr As Long, cc As Long

On Error GoTo baoloi
ActiveCell.Select
Cells.Find(What:="Lo" & ChrW(7841) & "i ti" & ChrW(7873) & "n", After:=ActiveCell, LookIn:=xlValues, _
  LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate
cDanhSach = ActiveCell.Column: rDanhSach = ActiveCell.Row
cLoaiTien1 = cDanhSach + 1
cLoaiTien2 = Cells(rDanhSach, cLoaiTien1).End(xlToRight).Column
cTmp = cLoaiTien2 + 1
rSoTo = rDanhSach + 1
rDanhSach1 = rDanhSach + 5
rDanhSach2 = Cells(rDanhSach, cDanhSach).End(xlDown).Row
Range(Cells(rDanhSach + 1, cLoaiTien1), Cells(rDanhSach2, cLoaiTien2 + 1)).ClearContents
Cells(rDanhSach1 - 1, cTmp) = "Phát thi" & ChrW(7871) & "u"
Range(Cells(rDanhSach, cDanhSach), Cells(rDanhSach2 + 1, cLoaiTien2 + 2)).Borders.LineStyle = 0
Range(Cells(rDanhSach, cDanhSach), Cells(rDanhSach2, cTmp)).Borders.LineStyle = 1
Range(Cells(rDanhSach1, cDanhSach), Cells(rDanhSach2, cDanhSach)).Copy Cells(rDanhSach1, cTmp)
Cells(rDanhSach + 2, cLoaiTien1) = "T" & ChrW(7889) & "i " & ChrW(432) & "u"
For cc = cLoaiTien1 To cLoaiTien2
  nLoaiTien = Cells(rDanhSach, cc)
  For rr = rDanhSach1 To rDanhSach2
    nToPhat = Cells(rr, cTmp) \ nLoaiTien
    Cells(rr, cc) = nToPhat
    Cells(rr, cTmp) = Cells(rr, cTmp) - nToPhat * nLoaiTien
  Next rr
  Cells(rSoTo, cc) = Application.WorksheetFunction.Sum(Range(Cells(rDanhSach1, cc), Cells(rDanhSach2, cc)))
Next cc
If Application.WorksheetFunction.Sum(Range(Cells(rDanhSach1, cTmp), Cells(rDanhSach2, cTmp))) > 0 Then
  Cells(rDanhSach + 1, cTmp) = "Thi" & ChrW(7871) & "u lo" & ChrW(7841) & "i ti" & ChrW(7873) & "n"
  Cells(rDanhSach + 2, cTmp) = "d" & ChrW(432) & ChrW(7899) & "i " & Cells(rDanhSach, cLoaiTien2) & ChrW(273)
End If
Range(Cells(rDanhSach, cDanhSach), Cells(rDanhSach2, cTmp)).Columns.AutoFit
Exit Sub
baoloi:
MsgBox "Khong tim thay bang hoac bang khong dung mau quy dinh", vbOKOnly, "Thong bao"
End
End Sub
 
Lần chỉnh sửa cuối:
phamduylong đã viết:
Bài toán này đã trên 1 năm, với nhiều phương án, bây giờ mới tìm được cách giải. Có thể nó chưa hoàn chỉnh về thuật toán, về tốc độ nhưng cơ bản đã giải quyết được yêu cầu của đề bài. Xin gởi tặng các anh chị kế toán, thủ quỹ để chia sẽ khó khăn mỗi đợt phát lương.
VBA Phat Luong.xls có 2 chức năng:
1. Số tờ phát tối ưu:
Tìm số tờ phát theo từng loại tiền tối ưu. Dữ liệu cần: Loại tiền, Tiền lương.
Chức năng này giúp bạn biết số tờ theo từng loại tiền. Thủ quỹ chỉ việc chuẩn bị đổi tiền và phát theo bảng kê.
2. Phát lương:
Tìm số tờ phát theo từng loại tiền theo số tờ có thực tế trong quỹ. Dữ liệu cần: Loại tiền, Số tiền có, Tiền lương.
Chức năng này phân tích số tờ phát ra theo từng loại, thừa, thiếu. Từ đó thủ quỹ biết được các loại tiền thiếu cần bổ sung thêm


Bảng dữ liệu (hình 1): Vị trí bảng có thể bố trí bất kỳ nhưng phải đáp ứng các yêu cầu sau để nhận dạng tự động vị trí của bảng:
- Ô đầu tiên để xác định bảng là ô có chữ “Loại tiền”. Trong sheet không có ô nào khác chứa nội dung như vậy)
- Cột cuối cùng của bảng là cột kế bên trái loại tiền cuối cùng (nhận dạng bằng vị trí ô trống đầu tiên bên phải dòng Loại tiền). Dòng cuối cùng của bảng là dòng cuối cùng của tiền (nhận dạng bằng vị trí ô trống đầu tiên phía dưới tiền lương) trong hình là 2 ô màu đỏ.
Không nên thay đổi cấu trúc của bảng. Theo yêu cầu riêng, bạn có thể thêm dữ liệu vào như STT, Họ tên, ngày tháng, …. vào bất kỳ ô nào (ngoại trừ khu vực bảng và 2 ô nhận dạng)
PhatLuong1.jpg

hình 1


Nhấp chuột vào đây để mở rộng...
Bài toán này đã có giải pháp bằng công thức ở một topic khác. Mời mọi người vào tham khảo.
http://www.giaiphapexcel.com/forum/showthread.php?t=19072 bài #27
 
Cách nào làm dc đây ? 1.253.356 làm sao tính ra dc số tờ tiền đây/???? gần 1000 CN phải làm sao?
 
File hay quá ạ. Em muốn hỏi chút nếu giờ không phải là 7 người mà thêm nhiều người nữa thì phải sửa file ở đâu ạ?
Em cảm ơn nhiều.
phamduylong đã viết:
Bài toán này đã trên 1 năm, với nhiều phương án, bây giờ mới tìm được cách giải. Có thể nó chưa hoàn chỉnh về thuật toán, về tốc độ nhưng cơ bản đã giải quyết được yêu cầu của đề bài. Xin gởi tặng các anh chị kế toán, thủ quỹ để chia sẽ khó khăn mỗi đợt phát lương.
VBA Phat Luong.xls có 2 chức năng:
Để đảm bảo cho người nhận nhận số tờ ít nhất, nguyên tắc chia số tờ như sau:
1. Chia tiền lớn trước, tiền nhỏ sau.
2. Cùng một loại tiền, số tờ nhận của từng người tỷ lệ với số tiền lương (tránh trường hợp 1 người nhận loại tiền lớn quá nhiều, người khác nhận tiền nhỏ quá nhiều)
1. Số tờ phát tối ưu:
Tìm số tờ phát theo từng loại tiền tối ưu. Dữ liệu cần: Loại tiền, Tiền lương.
Chức năng này giúp bạn biết số tờ theo từng loại tiền. Thủ quỹ chỉ việc chuẩn bị đổi tiền và phát theo bảng kê.
2. Phát lương:
Tìm số tờ phát theo từng loại tiền theo số tờ có thực tế trong quỹ. Dữ liệu cần: Loại tiền, Số tiền có, Tiền lương.
Chức năng này phân tích số tờ phát ra theo từng loại, thừa, thiếu. Từ đó thủ quỹ biết được các loại tiền thiếu cần bổ sung thêm


Bảng dữ liệu (hình 1): Vị trí bảng có thể bố trí bất kỳ nhưng phải đáp ứng các yêu cầu sau để nhận dạng tự động vị trí của bảng:
- Ô đầu tiên để xác định bảng là ô có chữ “Loại tiền”. Trong sheet không có ô nào khác chứa nội dung như vậy)
- Cột cuối cùng của bảng là cột kế bên trái loại tiền cuối cùng (nhận dạng bằng vị trí ô trống đầu tiên bên phải dòng Loại tiền). Dòng cuối cùng của bảng là dòng cuối cùng của tiền (nhận dạng bằng vị trí ô trống đầu tiên phía dưới tiền lương) trong hình là 2 ô màu đỏ.
Không nên thay đổi cấu trúc của bảng. Theo yêu cầu riêng, bạn có thể thêm dữ liệu vào như STT, Họ tên, ngày tháng, …. vào bất kỳ ô nào (ngoại trừ khu vực bảng và 2 ô nhận dạng)
PhatLuonga1.jpg

hình 1


Nhấp chuột vào đây để mở rộng...
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

D
  • Question
CÁC BÁC GIÚP EM VỀ MACRO
    • Cười
Trả lời
4
Đọc
180
VetMini
V
NCSCVN
Vì sao Vẹt không biết "hót" nhưng cực thích bắt chước tiếng người? Làm sao thuần hóa và chăm sóc chúng?
    • Thích
2
Trả lời
31
Đọc
908
VetMini
V
Bách Thảo 11
Đánh số thứ tự cho ô gộp
Trả lời
2
Đọc
48
Bách Thảo 11
Bách Thảo 11
befaint
Chia sẻ tâm tư, xả nỗi lòng
    • Thích
35 36 37
Trả lời
722
Đọc
38K
VetMini
V
G
Vẽ mặt cắt dầm từ excel
    • Yêu thích
    • Cảm ơn
    • Thích
Trả lời
11
Đọc
310
gpe.vn
G
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom