Lập code cho bảng tính lương

Liên hệ QC
queluatb

queluatb

Thành viên thường trực
Tham gia
17/1/11
Bài viết
345
Được thích
41
e có file tính lương nhưng dung lượng bị lớn, k biết có phải do có nhiều cells chứa công thức không, mọi người vui lòng xem giúp và chỉ e cách giảm dung lượng và thay thế hàm bằng code VBA với ạ, e cám ơn
 

File đính kèm

  • bảng lương thuế.rar
    865.4 KB · Đọc: 41
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Hình như bạn đang cố tình lập lờ giữa sửa dòng dữ liệu cũ với việc nhập dòng dữ liệu mới
Nếu cứ vậy thì xin tạm biệt bạn!
Mã: 
Dim Ar0():                                                              Dim lbID As Integer
Dim Sh As Worksheet
Private Sub CmdLuuCong_Click()
 Dim Rng As Range, sRng As Range
 Dim Rw As Long, Rws As Long
 Dim MaNV As String, MyAdd As String
 
 Rw = Me!tbDg.Value:                                                MaNV = Me!tbMaNV.Text
 Set Sh = Sheets("BCC")
 Rws = Sh.[b7].CurrentRegion.Rows.Count
 Set Rng = Sh.[b7].Resize(Rws)
 Set sRng = Rng.Find(MaNV, , xlFormulas, xlWhole)
 If sRng Is Nothing Then
    MsgBox "Nothing."
 Else
    MyAdd = sRng.Address
    Do
        If sRng.Row = Rw Then
            gpeGOP Rw
            Exit Do
        End If
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 End If
End Sub
PHP: 
Sub gpeGOP(Rw As Long)
 Sh.Cells(Rw, "F").Value = Me!tbN01.Text:        Sh.Cells(Rw, "G").Value = Me!tbN02.Text
 Sh.Cells(Rw, "H").Value = Me!tbN03.Text:        Sh.Cells(Rw, "I").Value = Me!tbN04.Text
 Sh.Cells(Rw, "J").Value = Me!tbN05.Text:        Sh.Cells(Rw, "K").Value = Me!tbN06.Text
 Sh.Cells(Rw, "L").Value = Me!tbN07.Text:        Sh.Cells(Rw, "M").Value = Me!tbN08.Text
 Sh.Cells(Rw, "N").Value = Me!tbN09.Text:        Sh.Cells(Rw, "O").Value = Me!tbN10.Text
 Sh.Cells(Rw, "P").Value = Me!tbN11.Text:        Sh.Cells(Rw, "Q").Value = Me!tbN12.Text
 Sh.Cells(Rw, "R").Value = Me!tbN13.Text:        Sh.Cells(Rw, "S").Value = Me!tbN14.Text
 Sh.Cells(Rw, "T").Value = Me!tbN15.Text:        Sh.Cells(Rw, "U").Value = Me!tbN16.Text
 Sh.Cells(Rw, "V").Value = Me!tbN17.Text:        Sh.Cells(Rw, "W").Value = Me!tbN18.Text
 Sh.Cells(Rw, "X").Value = Me!tbN19.Text:        Sh.Cells(Rw, "Y").Value = Me!tbN20.Text
 Sh.Cells(Rw, "Z").Value = Me!tbN21.Text:        Sh.Cells(Rw, 27).Value = Me!tbN22.Text
 Sh.Cells(Rw, 28).Value = Me!tbN23.Text:        Sh.Cells(Rw, 29).Value = Me!tbN24.Text
 Sh.Cells(Rw, 30).Value = Me!tbN25.Text:        Sh.Cells(Rw, 31).Value = Me!tbN26.Text
 Sh.Cells(Rw, 32).Value = Me!tbN27.Text:        Sh.Cells(Rw, 33).Value = Me!tbN28.Text
 Sh.Cells(Rw, 34).Value = Me!tbN29.Text:        Sh.Cells(Rw, 35).Value = Me!tbN30.Text
 Sh.Cells(Rw, 36).Value = Me!tbN31.Text
 MsgBox "Nhâp Xong Du Liêu"
 Me!tbN01.Text = Space(0):                           Me!tbN02.Text = Space(0):       Me!tbN03.Text = Space(0)
 Me!tbN04.Text = Space(0):                           Me!tbN05.Text = Space(0):       Me!tbN06.Text = Space(0)
 Me!tbN07.Text = Space(0):                           Me!tbN08.Text = Space(0):       Me!tbN09.Text = Space(0)
 Me!tbN10.Text = Space(0):                           Me!tbN11.Text = Space(0):       Me!tbN12.Text = Space(0)
 Me!tbN13.Text = Space(0):                           Me!tbN14.Text = Space(0):       Me!tbN15.Text = Space(0)
 Me!tbN16.Text = Space(0):                           Me!tbN17.Text = Space(0):       Me!tbN18.Text = Space(0)
 Me!tbN19.Text = Space(0):                           Me!tbN20.Text = Space(0):       Me!tbN21.Text = Space(0)
 Me!tbN22.Text = Space(0):                           Me!tbN23.Text = Space(0):       Me!tbN24.Text = Space(0)
 Me!tbN25.Text = Space(0):                           Me!tbN26.Text = Space(0):       Me!tbN27.Text = Space(0)
 Me!tbN28.Text = Space(0):                           Me!tbN29.Text = Space(0):       Me!tbN30.Text = Space(0)
 Me!tbN31.Text = Space(0):
End Sub
 
Upvote 0
SA_DQ đã viết:
Hình như bạn đang cố tình lập lờ giữa sửa dòng dữ liệu cũ với việc nhập dòng dữ liệu mới
Nếu cứ vậy thì xin tạm biệt bạn!
Mã: 
Dim Ar0():                                                              Dim lbID As Integer
Dim Sh As Worksheet
Private Sub CmdLuuCong_Click()
Dim Rng As Range, sRng As Range
Dim Rw As Long, Rws As Long
Dim MaNV As String, MyAdd As String

Rw = Me!tbDg.Value:                                                MaNV = Me!tbMaNV.Text
Set Sh = Sheets("BCC")
Rws = Sh.[b7].CurrentRegion.Rows.Count
Set Rng = Sh.[b7].Resize(Rws)
Set sRng = Rng.Find(MaNV, , xlFormulas, xlWhole)
If sRng Is Nothing Then
    MsgBox "Nothing."
Else
    MyAdd = sRng.Address
    Do
        If sRng.Row = Rw Then
            gpeGOP Rw
            Exit Do
        End If
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
End Sub
PHP: 
Sub gpeGOP(Rw As Long)
Sh.Cells(Rw, "F").Value = Me!tbN01.Text:        Sh.Cells(Rw, "G").Value = Me!tbN02.Text
Sh.Cells(Rw, "H").Value = Me!tbN03.Text:        Sh.Cells(Rw, "I").Value = Me!tbN04.Text
Sh.Cells(Rw, "J").Value = Me!tbN05.Text:        Sh.Cells(Rw, "K").Value = Me!tbN06.Text
Sh.Cells(Rw, "L").Value = Me!tbN07.Text:        Sh.Cells(Rw, "M").Value = Me!tbN08.Text
Sh.Cells(Rw, "N").Value = Me!tbN09.Text:        Sh.Cells(Rw, "O").Value = Me!tbN10.Text
Sh.Cells(Rw, "P").Value = Me!tbN11.Text:        Sh.Cells(Rw, "Q").Value = Me!tbN12.Text
Sh.Cells(Rw, "R").Value = Me!tbN13.Text:        Sh.Cells(Rw, "S").Value = Me!tbN14.Text
Sh.Cells(Rw, "T").Value = Me!tbN15.Text:        Sh.Cells(Rw, "U").Value = Me!tbN16.Text
Sh.Cells(Rw, "V").Value = Me!tbN17.Text:        Sh.Cells(Rw, "W").Value = Me!tbN18.Text
Sh.Cells(Rw, "X").Value = Me!tbN19.Text:        Sh.Cells(Rw, "Y").Value = Me!tbN20.Text
Sh.Cells(Rw, "Z").Value = Me!tbN21.Text:        Sh.Cells(Rw, 27).Value = Me!tbN22.Text
Sh.Cells(Rw, 28).Value = Me!tbN23.Text:        Sh.Cells(Rw, 29).Value = Me!tbN24.Text
Sh.Cells(Rw, 30).Value = Me!tbN25.Text:        Sh.Cells(Rw, 31).Value = Me!tbN26.Text
Sh.Cells(Rw, 32).Value = Me!tbN27.Text:        Sh.Cells(Rw, 33).Value = Me!tbN28.Text
Sh.Cells(Rw, 34).Value = Me!tbN29.Text:        Sh.Cells(Rw, 35).Value = Me!tbN30.Text
Sh.Cells(Rw, 36).Value = Me!tbN31.Text
MsgBox "Nhâp Xong Du Liêu"
Me!tbN01.Text = Space(0):                           Me!tbN02.Text = Space(0):       Me!tbN03.Text = Space(0)
Me!tbN04.Text = Space(0):                           Me!tbN05.Text = Space(0):       Me!tbN06.Text = Space(0)
Me!tbN07.Text = Space(0):                           Me!tbN08.Text = Space(0):       Me!tbN09.Text = Space(0)
Me!tbN10.Text = Space(0):                           Me!tbN11.Text = Space(0):       Me!tbN12.Text = Space(0)
Me!tbN13.Text = Space(0):                           Me!tbN14.Text = Space(0):       Me!tbN15.Text = Space(0)
Me!tbN16.Text = Space(0):                           Me!tbN17.Text = Space(0):       Me!tbN18.Text = Space(0)
Me!tbN19.Text = Space(0):                           Me!tbN20.Text = Space(0):       Me!tbN21.Text = Space(0)
Me!tbN22.Text = Space(0):                           Me!tbN23.Text = Space(0):       Me!tbN24.Text = Space(0)
Me!tbN25.Text = Space(0):                           Me!tbN26.Text = Space(0):       Me!tbN27.Text = Space(0)
Me!tbN28.Text = Space(0):                           Me!tbN29.Text = Space(0):       Me!tbN30.Text = Space(0)
Me!tbN31.Text = Space(0):
End Sub
Nhấp chuột vào đây để mở rộng...
thực sự là e chưa hiểu hết ý của a chứ e có lập lờ gì đâu a: như e đã nói thực tế bên e thường copy bảng chấm công từ tháng trước sang tháng sau, bộ phận nào cần thêm người thì e insert để thêm bộ phận nào luân chuyển thì sẽ xóa dòng đó đi, ở đây e thấy from của a có đã tạo giúp e việc sửa lại ngày công. Như vậy theo e hiểu là e vẫn thêm hoặc xóa người ở bộ phận nào thêm người hoặc luân chuyển sang bộ phận khác
Thực sự về vấn đề xây dựng file e k được hiểu hết mong ah thông cảm bỏ qua chứ e k có ý gì ạ
 
Upvote 0
Thêm hướng nhập dòng dữ liệu mới:
 

File đính kèm

  • QuanNhu.rar
    136.1 KB · Đọc: 14
Upvote 0
SA_DQ đã viết:
Thêm hướng nhập dòng dữ liệu mới:
Nhấp chuột vào đây để mở rộng...
ở from nhập liệu hiện tại e mới thấy có hai vấn đề:
1. Khi e nhập một người mới vào, nếu nhập sai mã đơn vị, bộ phận e muốn sửa lại thì vào BCC tìm đến người đó để sửa dòng đó mà trên from k cho sửa trực tiếp
2. Khi e nhập sai tên và bộ phận, mã bộ phận muốn xóa dữ liệu của người đó đi cũng vào BCC để xóa mà k cho xóa trực tiếp trên from
3. Chỗ mã chức vụ trên from khi e nhập chức vụ vào thì sang BCC chỉ hiện mã mà không hiện tên chức vụ ạ
Đây là những điều e thấy thực tế khi e nhập liệu là vậy, được như from của a hỗ trợ đã là quá tốt rồi e k có ý gì đâu ạ
 
Upvote 0
Thêm nút lệnh xóa dòng DL & sửa nội dung 2 ComboBox
 

File đính kèm

  • QuanNhu.rar
    145.9 KB · Đọc: 27
Upvote 0
SA_DQ đã viết:
Phần khác (trang tính) nào bạn cần thay đổi nhất?
Hay là theo trình tự công tác thì chúng ta cần xử đến chàng nào trong nớ?
Nhấp chuột vào đây để mở rộng...
Theo trình tự sẽ tính đến sản lượng sản phẩm hoàn thành
- Tính được lương doanh thu theo ngày của từng bộ phận
- Tính ra được lương doanh thu của từng người theo từng hệ số
 
Upvote 0
Theo trình tự sẽ tính đến sản lượng sản phẩm hoàn thành
- Tính được lương doanh thu theo ngày của từng bộ phận
- Tính ra được lương doanh thu của từng người theo từng hệ số
Nhấp chuột vào đây để mở rộng...
Vấn đề là dữ liệu ban đầu của chúng đang ở trang nào?
 
Upvote 0
SA_DQ đã viết:
Vấn đề là dữ liệu ban đầu của chúng đang ở trang nào?
Nhấp chuột vào đây để mở rộng...
Dữ liệu ban đầu lương doanh thu hiện tại đang nằm trên BCC cột AO, tại cột này e đối chiếu với bảng hệ số tiền lương và sản lượng trong tháng để nhập lại vào hệ số của từng người và từng bộ phận
Từ đó tính được ngày công theo lương doanh thu của từng người sau đó nhân với tiền lương trên/ngày từng bộ phận ở DM_L để ra cột G trên sheet Data ạ
E gửi a xem giúp e
 

File đính kèm

  • bảng hệ số.xlsx
    14.2 KB · Đọc: 9
Upvote 0
Dữ liệu ban đầu lương doanh thu hiện tại đang nằm trên BCC cột AO, tại cột này e đối chiếu với bảng hệ số tiền lương và sản lượng trong tháng để nhập lại vào hệ số của từng người và từng bộ phận
Nhấp chuột vào đây để mở rộng...
Dữ liệu trong cột AQ hay QO của 'BCC' làm gì có doanh thu?
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn sẽ phải chờ ngưới khác giúp vì đưa thông tin thiếu chính xác & tạm biệt bạn!
 
Upvote 0
SA_DQ đã viết:
Bạn sẽ phải chờ ngưới khác giúp vì đưa thông tin thiếu chính xác & tạm biệt bạn!
[/QUOTE
Bảng lương e làm như nào e gửi y nguyên như thế, thực sự e k hiểu e bị thiếu gì,trước đến giờ e đều làm theo Công thức trong file như vậy chứ có đưa thiếu gì đâu
Nhấp chuột vào đây để mở rộng...
 
Upvote 0
Mình nói là bạn cung cấp thông tin thiếu chính xác, mình có nói cung cấp thông tin không đủ đâu kia chứ!?

Nói thêm với bạn rằng chuyện trả lương khoán sản phẩm tập thể loại này trên diễn đàn là hiếm, bạn tự chịu khó tìm đi vậy!
 
Upvote 0
SA_DQ đã viết:
Mình nói là bạn cung cấp thông tin thiếu chính xác, mình có nói cung cấp thông tin không đủ đâu kia chứ!?

Nói thêm với bạn rằng chuyện trả lương khoán sản phẩm tập thể loại này trên diễn đàn là hiếm, bạn tự chịu khó tìm đi vậy!
Nhấp chuột vào đây để mở rộng...
à do e đưa nhầm cột đáng lẽ là AR lại đưa sang cột AQ, e xin rút kinh nghiệm mong a bỏ qua cho e lần này với ạ
 
Upvote 0
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

C
Xin công thức xếp loại có điều kiện.
Trả lời
2
Đọc
76
VetMini
V
8
  • Question
Xin giúp: Nhóm (group data) các dòng trong bảng tính
Trả lời
12
Đọc
464
ptm0412
ptm0412
hongquan93vn
Tìm công thức có thể đánh STT của giá trị mỗi lần xuất hiện
2
Trả lời
28
Đọc
571
ptm0412
ptm0412
T
  • Đã khóa
Tìm một bạn có kinh nghiệm về Excel
    • Cười
Trả lời
0
Đọc
84
tinhnhi1202
T
H
  • Question
Code VBA cộng tổng trên bảng CĐKT
Trả lời
4
Đọc
141
vak1590
vak1590
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