Nhờ viết code đối chiếu so sánh cho nhiều đối tượng!

Chia sẻ bởi:hands

★★★★★

‹ Giúp sửa code lấy số dư đầu... Giúp code: lấy ngày cuối của một... ›

Quảng cáo

Em chào Thầy cô & anh chị, xin giúp em viết code so sánh sau:

1/ Code cho kết qủa từ cell J9 trở xuống (cột Test)

2/ Cột B em có 2 mã Tài khoản chính là 131 và 3311 và các Mã Khách hàng
a/ Mã tài khoản 131 có các Mã khách hàng bao gồm 4 ký tự, ký tự đầu tiên là chữ B
b/ Mã tài khoản 3311 có các Mã khách hàng bao gồm 4 ký tự, ký tự đầu tiên là chữ M

3/ Bây giờ dùng các mã tại cột B để dò tính toán như sau:
a/ Nếu Cell bên cột B là 131, thì kết qủa là
Ví dụ cell J11
=H11-I11-($Q$11-$R$11)
b/ Nếu Cell bên cột B là có ký tự đầu tiên là chữ B, thì kết qủa là
Ví dụ cell J12
=H12-I12-(SUMIF($O$13:$O$202;B12;$Q$13:$Q$202)-SUMIF($O$13:$O$202;B12;$R$13:$R$202))
c/Nếu Cell bên cột B là 3311, thì kết qủa là
Ví dụ cell J58
=I58-H58-($Z$11-$AA$11)
d/Nếu Cell bên cột B là có ký tự đầu tiên là chữ M, thì kết qủa là
Ví dụ cell J59
=I59-H59-(SUMIF($X$13:$X$202;B59;$Z$13:$Z$202)-SUMIF($X$13:$X$202;B59;$AA$13:$AA$202))

4/ Các lưu ý
a/ Cột B có dữ liệu liên tục từ B11 trở xuống
b/ Cột J đã làm sẵn công thức
c/ Số lượng Mã khách hàng không cố định, có thể nhiều hơn hoặc ít hơn

Em cảm ơn!

bạn xem dùm mình làm vậy có đúng không?
trong cthức cho 2 mã 133 (hay 131 bạn? trong bài là 131) và mã 3311 thì vùng Q11 và R11 là cố định luôn phải không (tôi thấy bạn sử dụng giá trị tuyệt đối trong cthức).

Sub ThuTinh()

LR = Range("B" & Rows.Count).End(xlUp).Row 'tim dong du lieu cuoi cung
For i = 11 To LR

If Range("B" & i).Value = 131 Then
Range("J" & i).Value = Range("H" & i) – Range("I" & i) – (Range("Q11") – Range("R11"))
ElseIf Range("B" & i).Value = 3311 Then
Range("J" & i).Value = Range("H" & i) – Range("I" & i) – (Range("Z11") – Range("AA11"))

ElseIf Left(Range("B" & i), 1) = "B" Then
PTKH = Application.WorksheetFunction.SumIf(Range("X13:X202"), Range("B" & i), Range("Z13:Z202"))
PTKH = Application.WorksheetFunction.SumIf(Range("X13:X202"), Range("B" & i), Range("AA13:AA202"))
Range("J" & i).Value = Range("H" & i) – Range("I" & i) – PTKH – PTKH
ElseIf Left(Range("B" & i), 1) = "M" Then
PTKH = Application.WorksheetFunction.SumIf(Range("O13:O202"), Range("B" & i), Range("Q13:Q202"))
PTKH = Application.WorksheetFunction.SumIf(Range("O13:O202"), Range("B" & i), Range("R13:R202"))
Range("J" & i).Value = Range("H" & i) – Range("I" & i) – PTKH – PTKH

End If
Next i
End Sub

www.giaiphapexcel.com/diendan/threads/nh%E1%BB%9D-vi%E1%BA%BFt-code-%C4%91%E1%BB%91i-chi%E1%BA%BFu-so-s%C3%A1nh-cho-nhi%E1%BB%81u-%C4%91%E1%BB%91i-t%C6%B0%E1%BB%A3ng.75532/