Lọc danh sách thanh toán lương bằng tiền mặt và tài khoản ngân hàng (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Nancy Nguyen Mai

Nancy Nguyen Mai

Thành viên mới
Tham gia
5/6/18
Bài viết
31
Được thích
1
Em chào cả nhà ạ, hiện tại em đang làm bảng lương nhưng do nhân viên gần 200 người nên việc lọc danh sách thoan toán hàng tháng mất nhiều thời gian ạ

Anh/chị/em/bạn bè hỗ trợ giúp em lập công thức cho sheet thanh toán lương bằng tiền mặt và sheet thanh toán bằng TKNH với ạ

Mục đích của e là lập sẵn công thức cho sheet cuối tháng khi e cập nhật bảng lương xong thì sheet thanh toán tự động lấy dữ liệu sang luôn ạ

Em xin cảm ơn và hậu tạ
 

File đính kèm

Cách củ chuối nhất là filter rồi copy mã nhân viên paste qua , mất khoản vài giây .
 
Nancy Nguyen Mai đã viết:
Em chào cả nhà ạ, hiện tại em đang làm bảng lương nhưng do nhân viên gần 200 người nên việc lọc danh sách thoan toán hàng tháng mất nhiều thời gian ạ

Anh/chị/em/bạn bè hỗ trợ giúp em lập công thức cho sheet thanh toán lương bằng tiền mặt và sheet thanh toán bằng TKNH với ạ

Mục đích của e là lập sẵn công thức cho sheet cuối tháng khi e cập nhật bảng lương xong thì sheet thanh toán tự động lấy dữ liệu sang luôn ạ

Em xin cảm ơn và hậu tạ
Nhấp chuột vào đây để mở rộng...
Chào bạn,

Trong file sử dụng 2 cột phụ AQ,và AR. Bạn có thể ẩn nó.

Xem file đính kèm.
 

File đính kèm

Nancy Nguyen Mai đã viết:
Em chào cả nhà ạ, hiện tại em đang làm bảng lương nhưng do nhân viên gần 200 người nên việc lọc danh sách thoan toán hàng tháng mất nhiều thời gian ạ

Anh/chị/em/bạn bè hỗ trợ giúp em lập công thức cho sheet thanh toán lương bằng tiền mặt và sheet thanh toán bằng TKNH với ạ

Mục đích của e là lập sẵn công thức cho sheet cuối tháng khi e cập nhật bảng lương xong thì sheet thanh toán tự động lấy dữ liệu sang luôn ạ

Em xin cảm ơn và hậu tạ
Nhấp chuột vào đây để mở rộng...
Hậu tạ nghe! Mới làm code dán kết quả sang 2 sheet, sẽ làm tiếp. Bấm nút Chạy DS để thi hành.
PHP: 
Sub TachDSLuong()
Dim arrTmp, arrTM, arrCK
Dim i As Long, dTM As Long, dCK As Long

Sheet2.Range("A6:F1000").ClearContents
Sheet3.Range("A6:I1000").ClearContents
arrTmp = Sheet1.Range("B10:AP" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row).Value

ReDim arrTM(1 To UBound(arrTmp), 1 To 4)
ReDim arrCK(1 To UBound(arrTmp), 1 To 7)

For i = 1 To UBound(arrTmp)
    If arrTmp(i, 36) = "TM" Then
        dTM = dTM + 1
        arrTM(dTM, 1) = Right("0" & dTM, 2)
        arrTM(dTM, 2) = arrTmp(i, 1)
        arrTM(dTM, 3) = arrTmp(i, 2)
        arrTM(dTM, 4) = arrTmp(i, 35)
    Else
        dCK = dCK + 1
        arrCK(dCK, 1) = Right("0" & dCK, 2)
        arrCK(dCK, 2) = arrTmp(i, 1)
        arrCK(dCK, 3) = arrTmp(i, 2)
        arrCK(dCK, 4) = arrTmp(i, 4)
        arrCK(dCK, 5) = arrTmp(i, 37)
        arrCK(dCK, 6) = arrTmp(i, 38)
        arrCK(dCK, 7) = arrTmp(i, 35)
    End If
Next

If dTM > 0 Then
    Sheet2.Range("A6").Resize(dTM, 4).Value = arrTM
End If
If dCK > 0 Then
    Sheet3.Range("A6").Resize(dCK, 7).Value = arrCK
End If

End Sub
 

File đính kèm

Danh sách gần 200 người( bài #1), Right("0" & dTM, 2) tối đa chỉ có 99.

arrTM(dTM, 1) = Format(dTM, "00")
 
Lần chỉnh sửa cuối:
phuocam đã viết:
Danh sách gần 200 người( bài #1), Right("0" & dTM, 2) tối đa chỉ có 99.

arrTM(dTM, 1) = Format(dTM, "00")
Nhấp chuột vào đây để mở rộng...
Hehe, tks bạn. Nhiều lúc code mà lơ đễnh vậy đó. Nhưng nếu code mà không có chạy thử không phát hiện lỗi được.
 
Nancy Nguyen Mai đã viết:
Em chào cả nhà ạ, hiện tại em đang làm bảng lương nhưng do nhân viên gần 200 người nên việc lọc danh sách thoan toán hàng tháng mất nhiều thời gian ạ

Anh/chị/em/bạn bè hỗ trợ giúp em lập công thức cho sheet thanh toán lương bằng tiền mặt và sheet thanh toán bằng TKNH với ạ

Mục đích của e là lập sẵn công thức cho sheet cuối tháng khi e cập nhật bảng lương xong thì sheet thanh toán tự động lấy dữ liệu sang luôn ạ

Em xin cảm ơn và hậu tạ
Nhấp chuột vào đây để mở rộng...
Gửi bạn thêm cách dùng ADO nhé.

Mã: 
Sub TachDL_HLMT()
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No""")
        Sheet2.Range("B6:F100").ClearContents
        Sheet3.Range("B6:I100").ClearContents
        Sheet2.Range("B6").CopyFromRecordset .Execute("Select F2,F3,F34 from [" & Sheet1.Name & "$A10:AP100]  where [F5] like '" & Sheet2.Range("G2") & "' and F37 like '" & Sheet2.Range("G3") & "'")
        Sheet3.Range("B6").CopyFromRecordset .Execute("Select F2,F3,F5,F38,F39,F34 from [" & Sheet1.Name & "$A10:AP100]  where  F37 like '" & Sheet3.Range("J3") & "'")
    End With

End Sub
 
phuocam đã viết:
Chào bạn,

Trong file sử dụng 2 cột phụ AQ,và AR. Bạn có thể ẩn nó.

Xem file đính kèm.
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều
Bài đã được tự động gộp:

phuocam đã viết:
Chào bạn,

Trong file sử dụng 2 cột phụ AQ,và AR. Bạn có thể ẩn nó.

Xem file đính kèm.
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều
Bài đã được tự động gộp:

Hai Lúa Miền Tây đã viết:
Gửi bạn thêm cách dùng ADO nhé.

Mã: 
Sub TachDL_HLMT()
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No""")
        Sheet2.Range("B6:F100").ClearContents
        Sheet3.Range("B6:I100").ClearContents
        Sheet2.Range("B6").CopyFromRecordset .Execute("Select F2,F3,F34 from [" & Sheet1.Name & "$A10:AP100]  where [F5] like '" & Sheet2.Range("G2") & "' and F37 like '" & Sheet2.Range("G3") & "'")
        Sheet3.Range("B6").CopyFromRecordset .Execute("Select F2,F3,F5,F38,F39,F34 from [" & Sheet1.Name & "$A10:AP100]  where  F37 like '" & Sheet3.Range("J3") & "'")
    End With

End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều
Bài đã được tự động gộp:

Maika8008 đã viết:
Hậu tạ nghe! Mới làm code dán kết quả sang 2 sheet, sẽ làm tiếp. Bấm nút Chạy DS để thi hành.
PHP: 
Sub TachDSLuong()
Dim arrTmp, arrTM, arrCK
Dim i As Long, dTM As Long, dCK As Long

Sheet2.Range("A6:F1000").ClearContents
Sheet3.Range("A6:I1000").ClearContents
arrTmp = Sheet1.Range("B10:AP" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row).Value

ReDim arrTM(1 To UBound(arrTmp), 1 To 4)
ReDim arrCK(1 To UBound(arrTmp), 1 To 7)

For i = 1 To UBound(arrTmp)
    If arrTmp(i, 36) = "TM" Then
        dTM = dTM + 1
        arrTM(dTM, 1) = Right("0" & dTM, 2)
        arrTM(dTM, 2) = arrTmp(i, 1)
        arrTM(dTM, 3) = arrTmp(i, 2)
        arrTM(dTM, 4) = arrTmp(i, 35)
    Else
        dCK = dCK + 1
        arrCK(dCK, 1) = Right("0" & dCK, 2)
        arrCK(dCK, 2) = arrTmp(i, 1)
        arrCK(dCK, 3) = arrTmp(i, 2)
        arrCK(dCK, 4) = arrTmp(i, 4)
        arrCK(dCK, 5) = arrTmp(i, 37)
        arrCK(dCK, 6) = arrTmp(i, 38)
        arrCK(dCK, 7) = arrTmp(i, 35)
    End If
Next

If dTM > 0 Then
    Sheet2.Range("A6").Resize(dTM, 4).Value = arrTM
End If
If dCK > 0 Then
    Sheet3.Range("A6").Resize(dCK, 7).Value = arrCK
End If

End Sub
Nhấp chuột vào đây để mở rộng...
Thanks bạn nhiều
 
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

N
Khắc phục lỗi "The picture is too large and will be truncated" (2 người xem)
Trả lời
9
Đọc
5K
SonBDND
S
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (1 người xem)
Trả lời
0
Đọc
43
GPE-Trợ Lý
GPE-Trợ Lý
D
  • Question Question
Quản lý email outlook qua VBA cần giúp đỡ (2 người xem)
Trả lời
10
Đọc
159
nguyendang95
N
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
1
Đọc
77
khkkh
K
G
Xin Code xóa Module. (1 người xem)
Trả lời
0
Đọc
41
GCQ
G
K
Xin dax tính tỷ trọng doanh thu
Trả lời
18
Đọc
752
SteveNguyen1991
S
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
6
Đọc
181
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính (3 người xem)
    • Thích
Trả lời
0
Đọc
79
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo
Trả lời
1
Đọc
94
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel
    • Thích
4 5 6
Trả lời
118
Đọc
73K
YêuCN
Y
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện.
Trả lời
14
Đọc
192
thuytrangbp28
T
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA
Trả lời
4
Đọc
690
thuytrangbp28
T
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
26
Đọc
7K
Tuấn Bụng Bự
Tuấn Bụng Bự
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục
Trả lời
3
Đọc
206
Hoàng Tuấn 868
H
L
Lỗi font khi convert từ pdf
Trả lời
2
Đọc
101
DeTong
D
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô
Trả lời
7
Đọc
199
Gà Công Nghệ
Gà Công Nghệ
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt (1 người xem)
    • Thích
    • Yêu thích
2
Trả lời
20
Đọc
1K
Mr.hieudoanxd
Mr.hieudoanxd
P
Excell code vba : Tìm Cell để sửa dữ liệu
    • Buồn
2
Trả lời
26
Đọc
577
Phạm Trường 80
P
D
Nhờ anh em giúp đỡ.
    • Buồn
Trả lời
2
Đọc
92
SA_DQ
SA_DQ
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
2
Đọc
101
DeTong
D
Xem thêm…

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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom