Giúp code kiểm tra cân đối kế toán

[nhatrang1986]

Em có bảng cân đối kế toán tại sheet1 với: Cột A: Nợ cuối kỳ trước, Cột B: Có cuối kỳ trước, Cột C: Số hiệu tài khoản, D: Nợ đầu kỳ, E: Có đầu kỳ, F: PSN, G: PSC, H: Nợ cuối kỳ và I: Có cuối kỳ.

Nhờ Anh/Chị viết giùm em 02 đoạn code:
1. Đối chiếu giá trị Cột A phải bằng Cột D theo từng dòng và giá trị Cột B phải bằng giá trị Cột E theo từng dòng, nếu không bằng thì hiện giá trị "x" tại cột J tương ứng theo dòng
2. Giá trị Cột D: nợ đầu kỳ + Cột F: PSN - Cột G: PSC = Cột H: Nợ cuối kỳ theo từng dòng, nếu không bằng hện giá trị "y" tại Cột K tương ứng.

Nói chung em đặt công thức thủ công thì vẫn được nhưng muốn "Pro một tí" nên mong ANh/Chị giúp đỡ ạ.

 

[befaint]

Pro một tí

Pờ rồ là khi mình làm được chứ nhờ giúp thì khi khoe không được tự tin...

có bảng cân đối kế toán tại sheet1

Chẳng thấy bảng nào đâu?

 

[nhatrang1986]

Pờ rồ là khi mình làm được chứ nhờ giúp thì khi khoe không được tự tin...


Chẳng thấy bảng nào đâu?

^^!
À em quên mất, vui lòng xem file đính kèm ạ

 

[befaint]

file

bị cụt đầu?

 

[nhatrang1986]

bị cụt đầu?

Dạ em xóa mất dòng đầu là dòng tiêu đề, thực ra có dòng 1 là tiêu đề.
Em gửi lại ạ
^^!

 

[FatBear]

e xin phép bác @befaint và sư phụ @HieuCD
e đang học cái array cho e thực hành áp dụng chút cho nhớ kiến thức
chạy code này nhé bạn

Sub GPE()
Dim i As Long
Dim endR As Long
Dim sArr(), kqArr()
With Sheet1
    endR = .Range("C" & Rows.Count).End(xlUp).Row
    sArr = .Range("A2:I" & endR).Value
    ReDim kqArr(1 To UBound(sArr), 1 To 2)
    For i = 1 To UBound(sArr)
        If sArr(i, 1) = sArr(i, 4) And sArr(i, 2) = sArr(i, 5) Then
        kqArr(i, 1) = ""
        Else
        kqArr(i, 1) = "x"
        End If
        If (sArr(i, 4) + sArr(i, 6) - sArr(i, 7)) = sArr(i, 8) Then
        kqArr(i, 2) = ""
        Else
        kqArr(i, 2) = "y"
        End If
    Next i
.Range("J2:K2").Resize(UBound(sArr)) = kqArr
End With
End Sub

 

[HieuCD]

e xin phép bác @befaint và sư phụ @HieuCD
e đang học cái array cho e thực hành áp dụng chút cho nhớ kiến thức
chạy code này nhé bạn

Sub GPE()
Dim i As Long
Dim endR As Long
Dim sArr(), kqArr()
With Sheet1
    endR = .Range("C" & Rows.Count).End(xlUp).Row
    sArr = .Range("A2:I" & endR).Value
    ReDim kqArr(1 To UBound(sArr), 1 To 2)
    For i = 1 To UBound(sArr)
        If sArr(i, 1) = sArr(i, 4) And sArr(i, 2) = sArr(i, 5) Then
        kqArr(i, 1) = ""
        Else
        kqArr(i, 1) = "x"
        End If
        If (sArr(i, 4) + sArr(i, 6) - sArr(i, 7)) = sArr(i, 8) Then
        kqArr(i, 2) = ""
        Else
        kqArr(i, 2) = "y"
        End If
    Next i
.Range("J2:K2").Resize(UBound(sArr)) = kqArr
End With
End Sub

Bạn cứ mạnh dạn viết code gởi lên, diễn đàn luôn ủng hộ bạn
Góp thêm vài ý:
_Thử bỏ lệnh kqArr(i, 1) = "" xem kết quả như thế nào
_Trong file có 2 công thức tính cuối kỳ, dựa vào 1 trong 2 công thức đó để đưa vào code xét 2 cột nợ và có cuối kỳ
Chúc bạn 1 ngày vui

 

[huuthang_bd]

Format condition là pờ rồ rồi

 

[VetMini]

Tưởng đâu muốn kiểm soát lại lần nữa cho chắc ăn (*) thì tôi còn cố chứ chỉ pờ rồ thì chả bỏ công.

(*) đối chiếu kiểm soát 2 lần cho chắc ăn.

 

[nhatrang1986]

Tưởng đâu muốn kiểm soát lại lần nữa cho chắc ăn (*) thì tôi còn cố chứ chỉ pờ rồ thì chả bỏ công.

(*) đối chiếu kiểm soát 2 lần cho chắc ăn.

Dạ thì mục đích cũng nhiều mà mục đích bác nói để đối chiếu cho chắc ăn là chính xác đấy, câu "Pro tí" em để trong ngoặc mà

 

[vanaccex]

Dạ thì mục đích cũng nhiều mà mục đích bác nói để đối chiếu cho chắc ăn là chính xác đấy, câu "Pro tí" em để trong ngoặc mà

Cũng không biết cái tiêu thức đối chiếu của bạn là gì luôn !. Kế toán đau đầu thật

 

[nhatrang1986]

Cũng không biết cái tiêu thức đối chiếu của bạn là gì luôn !. Kế toán đau đầu thật

À yêu cầu của mình đơn giản mà:
- Số đầu kỳ sau phải bằng cuối kỳ trước và
- Số đầu kỳ + phát sinh tăng - phát sinh giảm phải bằng Số cuối kỳ

 

[vanaccex]

À yêu cầu của mình đơn giản mà:
- Số đầu kỳ sau phải bằng cuối kỳ trước và
- Số đầu kỳ + phát sinh tăng - phát sinh giảm phải bằng Số cuối kỳ

Trường hợp mà có cả dư nợ, dư có thì giải quyết sao !

 

[nhatrang1986]

Trường hợp mà có cả dư nợ, dư có thì giải quyết sao !

Thì TK đơn tính hoặc là: Dư có đầu + PS Có - PS Nợ = Dư có cuối hoặc là: Dư nợ đầu + PS Nợ - PS Có = Dư nợ cuối
Còn TK lưỡng tính như bạn nói thì lấy chênh lệch: (Nợ đầu kỳ - Có đầu kỳ) + (PSN-PSC) = (Nợ cuối kỳ - Có cuối kỳ) hoặc chênh lệch khác miễn sao hợp lý và nó cân

 

[vanaccex]

Thì TK đơn tính hoặc là: Dư có đầu + PS Có - PS Nợ = Dư có cuối hoặc là: Dư nợ đầu + PS Nợ - PS Có = Dư nợ cuối
Còn TK lưỡng tính như bạn nói thì lấy chênh lệch: (Nợ đầu kỳ - Có đầu kỳ) + (PSN-PSC) = (Nợ cuối kỳ - Có cuối kỳ) hoặc chênh lệch khác miễn sao hợp lý và nó cân

Nếu không phải kế toán thì làm sao biết cái này. Bạn phải lập 1 cái bảng tài khoản nào dư nợ tài khoản nào dư có, tài khoản nào lưỡng tính ... thì kiểm tra trong đấy chứ !. Chứ nói vậy nếu không làm kế toán sao mà biết được !