Bài toán về chia tiền lương (1 người xem)

anhtuan1066 · 29/11/07

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

Pansy_flower · 29/11/07

Hihi... anh ui có cái topic tương tự chưa được giải quyết nè anh. Anh qua đó giải tiếp và hoàn chỉnh lại giúp em nha!. %#^#$

anhtuan1066 · 29/11/07

Hoàn chỉnh gì chứ... đang bí nên mới hỏi nè... he.. he..
Và cái topic mà SG nói có mấy file, nhưng ko thực tế chút nào... Tôi thấy ý kiến của tsf là xác thực nhất... Bài toán mà tsf đề ra là còn nương tay đấy: Quỷ lương lớn hơn tiền chi trã lương... Còn ở đây tôi giã sử TIỀN QUỸ ĐÚNG BẰNG TIỀN CHI... Số lượng tờ trong mỗi mệnh giá dc cho trước...
Coi như topic ấy và topic này là khá giống nhau, vậy mời các bạn tiếp tục góp ý nhé! Vì nếu dc kết quả thì giúp ích rất nhiều cho những người là công việc văn phòng.. mỗi tháng phải nhẫm tính bằng tay, quả thật là mệt!
Mến
ANH TUẤN

dat2007 · 29/11/07

Chia lương cho các công nhân trong tổ

Sau đó căn cứ vào tiền lương được chia của mỗi công nhân mà kế toán lương sẽ chia tiền cho mọi người cho đến hết quỹ tiền lương được nhận của tổ, tiền mệnh giá chẵn hay lẻ không quan trọng, miễn là nhận đủ theo bảng lương được chia.

anhtuan1066 · 29/11/07

Oh... ko phải như vậy bạn Dat2007 ơi... Ý tôi là chia người thứ nhất bao nhiều tờ tiền loại mệnh giá a đồng, bao nhiều tờ tiền mệnh giá b đồng.... vân vân... với số tờ của mỗi mệnh giá đã có sẳn, tiền lương mỗi người cũng có sẳn... Làm sao đễ hạn chế việc đỗi tiền đến mức tối thiểu.. bạn hiểu ko?
Như vậy, khi cô thư ký lảnh lương về, nhập vào bảng tính mình đã tính sẳn, sẽ ra dc số tờ mỗi mệnh giá cần phát cho mỗi người... Và cứ thế mà đếm và bỏ vào phong bì thôi...
Bạn tham khảo thêm bài mà SG giới thiệu sẽ hiểu

SoiBien · 30/11/07

Lương của từng công nhân khác nhau hay giống nhau hả bác?

anhtuan1066 · 30/11/07

Tất nhiên là lương mỗi người khác nhau rồi... Tôi đã nêu rõ ở trên:

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

ANH TUẤN

salam · 30/11/07

Ý của bác Tuấn có phải là Chia tổng lương của từng nhân viên theo thứ tự từng loại mệnh giá đồng tiền, tổng lương chia cho mệnh giá lớn nhất còn dư chia tiếp cho mệnh giá thấp kế tiếp cho đến hết và cộng tổng các số tờ của từng mệnh giá lại phải không Bác?

anhtuan1066 · 30/11/07

Mục đích cuối cùng của bài toàn này là chia đũ lương mà ko phải đỗi tiền lẽ với lượng tiền cho trước và số tờ mỗi mệnh giá cho trước, còn việc chia thế nào là tùy theo chúng ta đặt ra quy định miễn đạt dc mục đích...
ANH TUẤN

Nguyễn Xuân Sơn · 30/11/07

Bài toán của bác rất hay ... nhưng có thực tế ko

DOSNET · 30/11/07

Nguyễn Xuân Sơn đã viết:
Bài toán của bác rất hay ... nhưng có thực tế ko

Rất thực tế đấy bác ah...tôi đã chứng kiến một nhóm công nhân loạn lên vì chia tiền...

anhtuan1066 · 30/11/07

Nguyễn Xuân Sơn đã viết:
Bài toán của bác rất hay ... nhưng có thực tế ko

Cái này ko phải tôi tự chế ra đâu... mà là tôi đễ ý mỗi khi cô thư ký xưởng tôi lãnh lương về thường mất 2 tiếng đồng hồ và mất 4 người cho việc chia tiền vào phong bì...
Đầu tiên tôi thấy họ chia tiền ra theo từng loại mệnh giá, rồi cứ bóc từng mệnh giá 1 cho vào phong bì cho đến khi đũ tiền... cách làm này cũng chỉ là theo cảm tính thôi: mệnh giá nào có số lượng nhiều thì lấy nhiều và ngược lại... Đến những người cuối thì xảy ra tình trạng ko chia dc vì ko có tiền mệnh giá phù hợp, chẳng hạn lương là 1,090,000 đồng... nhưng lúc này chỉ còn lại toàn loại tiền 500,000 đồng, 100,000 đồng và 50,000 đồng thì chia làm sao? Buột phải lôi mấy phong bì đã chia ra đễ đỗi lại tiền 20,000 đồng...
Rắc rối và cực khổ ko?
Tôi nghĩ thực tế lắm chứ... Nếu tôi làm dc file này thì bảo đãm cô thư ký kia 1 mình cũng chia dc tiền, lại tiết kiệm thời gian... đúng ko?
ANH TUẤN

Nguyễn Xuân Sơn · 30/11/07

Nhưng có đủ chủng loại tiền để đáp ứng Y/C ko. Nếu đủ thì khả năng phải giải quyết cho cô kế toán chắc là " xinh đẹp" của CQ bác thôi! nhưng tôi nghĩ thực tế thường ko như vậy trừ khi cô ta là thủ quỹ ngân hàng.

anhtuan1066 · 30/11/07

Loại tiền thì đũ các chũng loại, nhưng số lương tờ có hạn... tuy nhiên làm sao giãi quyết dc bài toán: chia đũ, hạn chế đỗi tiền
Bạn xem yêu cầu tôi nêu ngay bài #1 ấy... hoặc đường link mà SG đã cho..

phamduylong · 30/11/07

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ý?
ANH TUẤN

Nếu Y=A*a + B*b + C*c + D*d + E*e = X1 + X2 + ... + X100 thì có khả năng không chia được. anhtuan thương cô thủ quỹ quá nhưng cũng phải cho cô ta có việc làm chứ ? Có thể giảm nhẹ cho cô thủ quỹ bằng cách tính thế nào mà cô phải đổi tiền ít nhất.

anhtuan1066 · 30/11/07

Đúng rồi... tất nhiên là khả năng chia dc chính xác rất thấp.. nhưng bài toán ở đây ko đòi hỏi chính xác... Chỉ cần GIẢM ĐẾN MỨC TỐI THIỂU VỀ ĐỖI TIỀN là dc rồi... Cũng có thể xem như đây là 1 hình thức của bài toán tối ưu
Các bạn nghiên cứu xem

handung107 · 30/11/07

Cái này, nếu số lượng NV ít, thì chỉ cần dùng Solver, nhưng con số NV nhiều quá, ngại suy nghĩ ghê

xuantham · 30/11/07

Bài toán này còn liên quan đến tỉ lệ mỗi loại tiền trên tổng số lương nhân viên được nhân và lượng tiền lẻ cần thiết còn tồn lai của thủ quỹ nữa. Không thể có người toàn là tiền mênh giá lớn, và người toàn mênh giá nhỏ. Hoặc tồn quỹ toàn tiền mệnh giá lớn.

Ah! Mình có thể suy nghỉ theo hướng toán về tổ hơp và xác suất không nhỉ?

ThuNghi · 30/11/07

Thử dùng hàm
- Int(Xi/a) => Số tờ a cần
- Int(mod(Xi,a)/b) => Số tờ b cần
...
=> Số tờ e (nhỏ nhất) cần. Lưu ý có thể a=5b (500=5*100)...
Hơi công phu.

anhtuan1066 · 30/11/07

Vậy đâu có dc... Như thế là bạn ưu tiên tờ mệnh giá 500,000 à... Hơi tham... he.. he...

ThuNghi · 30/11/07

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...

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).

SA_DQ · 30/11/07

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!

nganco8284 · 16/3/09

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!!!

nganco8284 · 16/3/09

Sao mình gởi file đính kèm không được,giúp mình với !!

phamduylong · 27/3/09

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

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)

hình 1

phamduylong · 27/3/09

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

|

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.

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

huuthang_bd · 27/3/09

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)

hình 1

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

LeoLee · 8/7/14

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?

van_utc · 3/8/15

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)

hình 1

n0thing1988 · 3/8/15

van_utc đã viết:
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.

Bài này dùng công thức cũng được mà bạn. Hơi dài và cầu kỳ thôi

van_utc · 3/8/15

n0thing1988 đã viết:
Bài này dùng công thức cũng được mà bạn. Hơi dài và cầu kỳ thôi

Vâng nhưng nếu thêm số người tăng lên thì file kia phải sửa ở chỗ nào ạ? Thanks.

PHONGGANHHAO · 4/11/15

van_utc đã viết:
Vâng nhưng nếu thêm số người tăng lên thì file kia phải sửa ở chỗ nào ạ? Thanks.

Cùng 1 câu hỏi như bạn - nhờ cao nhân chỉ giúp

lequy.hvnhk14 · 26/5/22

PHONGGANHHAO đã viết:
Cùng 1 câu hỏi như bạn - nhờ cao nhân chỉ giúp

Chèn dòng vào bảng là được thôi ạ

Bài toán về chia tiền lương (1 người xem)

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

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

...nợ người, nợ đời...

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

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

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

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

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

Thành viên gắn bó

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

Thành viên thường trực

Thành viên gắn bó

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

Thành viên thường trực

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

-

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

Thành viên gắn bó

Thành viên thường trực

Hãy cho rồi sẽ nhận!

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

Hãy cho rồi sẽ nhận!

/(hông là gì!

Thành viên mới

Thành viên mới

-

File đính kèm

-

Chuyên gia GPE

Thành viên mới

Thành viên hoạt động

Mù VBA

Thành viên hoạt động

Thành viên thường trực

Thành viên mới

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