Code macros từ bảng kê ngân hàng xác định được tên khách hàng chuyển tiền (1 người xem)

[nhatthuyen]

Xin chào các anh chị,
Em có ý tưởng và đoạn code cùi chạy không được nên nhờ anh chị giúp đỡ.

Hình 1

Hình 2

Ai làm kế toán ngân hàng chắc đều phải xem file sao kê giao dịch của ngân hàng để biết Khách hàng nào chuyển tiền cho mình để nhập vào hệ thống. Cty em thì số lượng giao dịch trên một ngày rất nhiều. Em cần phải biết từng đó số giao dịch là của khách nào, sumif khách đó tổng cộng được bao nhiêu, kế toán ngân hàng đã nhập đúng và đủ hay không. Vậy nên em viết macro ý tưởng là: Trong ghi chú chuyển tiền của file sao kê sẽ có cụm từ (tên cty khách hàng, tên cá nhân đặc trưng) (Hình 1). Nên em lập thêm sheet bảng dò (Hình 2). Lần lượt từng cell ghi chú sẽ dò kiểu hàm search (InStr) có trong bảng dò thì trả về kết quả theo bảng dò luôn.

Ngu kiến của em là vậy, nhờ anh chị giúp đỡ. Thêm nữa đây là code theo kiểu dài dòng nhưng chay ok, từ đó em mới nghĩ làm bảng dò (hình 2) để dễ dàng sửa và thêm thông tin khách hàng.

Sub Macro1()Dim i As Integer
For i = 1 To 100


If InStr(1, Workbooks("TEST01.xlsm").Worksheets("Sheet1").Range("A" & i), "AA") + InStr(1, Workbooks("TEST01.xlsm").Worksheets("Sheet1").Range("A" & i), "A A") > 0 Then


Workbooks("TEST01.xlsm").Worksheets("Sheet1").Range("B" & i) = "Cong ty AA"


Else


If InStr(1, Workbooks("TEST01.xlsm").Worksheets("Sheet1").Range("A" & i), "BB") > 0 Then


Workbooks("TEST01.xlsm").Worksheets("Sheet1").Range("B" & i) = "Cong ty BB"
Else


If InStr(1, Workbooks("TEST01.xlsm").Worksheets("Sheet1").Range("A" & i), "CC") + InStr(1, Workbooks("TEST01.xlsm").Worksheets("Sheet1").Range("A" & i), "C C") > 0 Then


Workbooks("TEST01.xlsm").Worksheets("Sheet1").Range("B" & i) = "Cong ty CC"

End If
End If
End If
Next i
End Sub

=> Code với với ý tưởng theo hinh 2:

[FONT=&amp]Sub Macro_trans()
Dim i, j As IntegerFor i = 2 To 100
For j = 4 To 100
If InStr(1, Worksheets("sheet_ngan_hang").Range("A" & i), Worksheets("Sheet_bang_do_tim").Range("A" & j)) > 0 Then
Worksheets("sheet_ngan_hang").Range("C" & i) = Worksheets("Sheet_bang_do_tim").Range("B" & j)
Else
Next j
If j = 100 Then
End If
Next i
End If
End Sub[/FONT]

Anh chị giúp em với.
Cảm ơn anh chị.

...............................................

 

[be_09]

Muốn giúp mà không đính kèm File (với tên khách hàng, tài khỏa là giả định), chứ ai ở không giúp đỡ còn phải tốn công nhập liệu, ngồi đó chờ sung rụng đi.

 

[nhatthuyen]

Muốn giúp mà không đính kèm File (với tên khách hàng, tài khỏa là giả định), chứ ai ở không giúp đỡ còn phải tốn công nhập liệu, ngồi đó chờ sung rụng đi.

Cảm ơn bác nhiều.................

 

[be_09]

Cảm ơn bác nhiều.................

Trời ạ, đưa cái File giả định mà cũng hà tiện không đưa hết.

1/ Có 1 cái thiếu sót lớn mà bạn không nêu (Ngân hàng có sử dụng phần mềm), muốn làm cái gì đó thì dự vào File này (dự liệu phần mềm lấy vào sheet PHI SBR- VND trong File của tôi)

2/ Sheet DATA lấy dữ liệu từ sheet PHI SBR- VND và Phân tích cái gì đó theo nhu cầu xong thì lưu dữ liệu của ngày hôm đó vào sheet LUU_DULIEU.

3/ sheet LUU_DULIEU lưu theo dõi tất tần tận các thứ để tổng hợp báo cáo.

Xem File tôi làm giúp 1 thành viên khác (giữ nguyên tiêu đề nhưng đã xóa code), vì chưa biết bạn muốn làm cái gì.

 

[nhatthuyen]

Trời ạ, đưa cái File giả định mà cũng hà tiện không đưa hết.

1/ Có 1 cái thiếu sót lớn mà bạn không nêu (Ngân hàng có sử dụng phần mềm), muốn làm cái gì đó thì dự vào File này (dự liệu phần mềm lấy vào sheet PHI SBR- VND trong File của tôi)

2/ Sheet DATA lấy dữ liệu từ sheet PHI SBR- VND và Phân tích cái gì đó theo nhu cầu xong thì lưu dữ liệu của ngày hôm đó vào sheet LUU_DULIEU.

3/ sheet LUU_DULIEU lưu theo dõi tất tần tận các thứ để tổng hợp báo cáo.

Xem File tôi làm giúp 1 thành viên khác (giữ nguyên tiêu đề nhưng đã xóa code), vì chưa biết bạn muốn làm cái gì.

Cảm ơn bác đã trợ giúp
Em có thắc mắc không biết:
1/ Ngân hàng sacombank có sử dụng phần mềm như thế nào em không có biết chỗ đó ở đâu, nhờ anh chỉ giúp.
3/ Em muốn biết khách hàng nào chuyển tiền cho cty.

 

[be_09]

Cảm ơn bác đã trợ giúp
Em có thắc mắc không biết:
1/ Ngân hàng sacombank có sử dụng phần mềm như thế nào em không có biết chỗ đó ở đâu, nhờ anh chỉ giúp.
3/ Em muốn biết khách hàng nào chuyển tiền cho cty.

Thì bạn phải cho biết là dữ liệu do bạn nhập tay hay do phần mềm xuất ra.

Nếu nhập tay thì phải có tiêu đề đầy đủ và nêu rỏ cần làm cái gì, ở cột nào mới biết được chứ, không có tiêu đề đầy đủ khi các thành viên giúp xong thì phá sản ngay vì không thể áp dụng được vào File thực tế.

 

[nhatthuyen]

Thì bạn phải cho biết là dữ liệu do bạn nhập tay hay do phần mềm xuất ra.

Nếu nhập tay thì phải có tiêu đề đầy đủ và nêu rỏ cần làm cái gì, ở cột nào mới biết được chứ, không có tiêu đề đầy đủ khi các thành viên giúp xong thì phá sản ngay vì không thể áp dụng được vào File thực tế.

Em hiểu ý bác rồi, cảm ơn bác.