Nhờ viết code cập nhật dữ liệu từ sheet chi tiết sang sheet tổng hợp (1 người xem)

[acmen87]

em đang lập một file excel theo dõi biến động lương như sau. trong đó sheet CHENH LECH là để tính toán các biến động, sheet CHUYEN KHOAN và TIEN MAT là các sheet lưu trữ dữ liệu.
Xin phép nhờ mọi người viết giúp em code cập nhật dữ liệu từ sheet CHENH LECH sang 2 sheet lưu trữ dữ liệu với điều kiện như sau:
+ Dữ liệu tại ô I12 sẽ được cập nhật sang 2 sheet CHUYEN KHOAN và TIEN MAT với điều kiện như sau:
- Nếu ô I8 là CHUYEN KHOAN thì dữ liệu I12 được copy sang sheet CHUYEN KHOAN, nếu là TIEN MAT thì copy sang dữ liệu TIEN MAT
- Tại mỗi sheet dữ liệu được copy vào ô được xác định là giao của hàng là hàng chưa giá trị tại ô I9 (MÃ ĐVQHNS) và Cột là cột chứa giá trị I11 (SỐ THÁNG CHUYỂN LƯƠNG)

Em cảm ơn ạ

 

[acmen87]

Public Sub GPE()
Dim Ws As Worksheet, Rng As Range, Cll As Range
Set Ws = Sheets([I8].Value)
Set Rng = Ws.Range("B7", Ws.Range("B7").End(4))
For Each Cll In Rng
    If Cll.Value = [I9].Value Then
        Cll.Offset(, 1 + [I11].Value).Value = [I12].Value
        Exit For
    End If
Next
End Sub

bạn ơi bạn cho mình hỏi cơ bản mình hiểu được code của bạn, nhưng cái đoạn
"Set Rng = Ws.Range("B7", Ws.Range("B7").End(4))" ý nghĩa của cái End(4) là sao ạ??? mình đang hiểu nó là khai báo cột B bắt đầu từ B7 của sheet để tìm mã quan hệ ns. nhưng k hiểu ý nghĩa của số 4 đó là gì ạ

 

[acmen87]

End(4) ~ End(xlDown)

-> xlDown: ví dụ trên bản tính, bạn nhấn ctrl + nút mũi tên xuống -> con trỏ chuột chạy tới dòng cuối cùng có dữ liệu (nếu dữ liệu của bạn liên tục, không có dòng trống tại cột mà trỏ chuột đang đứng.)

-> Hành động này để xác định dòng cuối cùng của cột có dữ liệu trong bảng tính

số 4 chính là tham số quy ước của xlDown -> cái này do anh Microsoft quy ước.

Ngoài ra còn 1 số tham số như sau:
1. End(1) ~ End (xlToLeft)
2. End(2) ~ End(xlToRight)
3. End(3) ~ End (xlUp)
4. End(4) ~ End(xlDown)

Cảm ơn bạn nhiều, mình đã hiểu

 

[acmen87]

Tôi không khó khăn về câu từ.
Nhưng tôi rất yêu tiếng Việt vì tôi là Người Việt Nam.
Nên chỉ cần trả lời bằng 1 ngôn ngữ & không cần song ngữ.
Và nếu cần thiết song ngữ: thì làm ơn viết đúng & đủ.

em sửa rồi anh nhé, cảm ơn anh.