NHỜ GIÚP TẠO FORM NHẬP VÀ LỌC, TÌM KIẾM

[babyheomoi]

Hi, em có file data theo dõi các khoản vay đến hạn, tuy nhiên, trước giờ làm thủ công nhiều quá với sheet quá nên theo dõi đuối.
Em đã tổng hợp vô 1 sheets. Nhờ mọi người hỗ trợ tạo giúp em Form nhập liệu, sửa dữ liệu và tìm kiếm lọc dữ liệu cái ạ!
Mô tả file e để trong file ví dụ!
em cám ơn!

 

[SA_DQ]

Form nhập liệu thì dễ thôi, chắc vậy;
Cái khó với CSDL của bạn là tìm kiếm, sửa đổi hay bổ sung.
Mình thấy có trường (cột) mã số;
Tuy nhiên hàng trăm hay hàng ngàn mã số như vậy làm sao bạn nhớ mã nào là của khách hàng nào?
(Còn các chuyện khác tính sau)

 

[babyheomoi]

Form nhập liệu thì dễ thôi, chắc vậy;
Cái khó với CSDL của bạn là tìm kiếm, sửa đổi hay bổ sung.
Mình thấy có trường (cột) mã số;
Tuy nhiên hàng trăm hay hàng ngàn mã số như vậy làm sao bạn nhớ mã nào là của khách hàng nào?
(Còn các chuyện khác tính sau)

Dạ, trước mắt chắc add vào để lọc tìm kiếm trước ạ! Còn bổ sung thì em chưa nghĩ ra ý tưởng.
Mã số là số nội bộ, nó gắn vào số HD cột L, Mã số và số HD thường nhập sau khi nhận hồ sơ từ bank về nên em đang lên ý tưởng vô mục bổ sung sửa đổi data. Còn trước mắt thì số tiền vay và bank thì chắc chắn biết trước để nhập.
PS: hi hi lâu quá ko gặp thầy Sa, thầy còn hủ rượu nào bên Q5 không?

 

[SA_DQ]

Mà mình cũng ngạc nhiên là không có người vay là sao?
Nếu đây hoàn toàn là CQ bạn vay thì dễ thống kê!heo ngày-tháng.

(PS): Rượu thì lúc nào cũng dư dã, khì, khì,. . . . .

 

[babyheomoi]

Mà mình cũng ngạc nhiên là không có người vay là sao?
Nếu đây hoàn toàn là CQ bạn vay thì dễ thống kê!heo ngày-tháng.

(PS): Rượu thì lúc nào cũng dư dã, khì, khì,. . . . .

Dạ, đây là các khoản vay của Công ty, chia làm nhiều khoản vay nhỏ, liên tục, Mã số thì kế toán theo dõi, còn số HD thì bank cho.

 

[le_vis]

Dạ, đây là các khoản vay của Công ty, chia làm nhiều khoản vay nhỏ, liên tục, Mã số thì kế toán theo dõi, còn số HD thì bank cho.

Thử cách này xem bạn có ưng không - Xem File đính kèm nhé

 

[babyheomoi]

Thử cách này xem bạn có ưng không - Xem File đính kèm nhé

Cám ơn anh đã bổ chút thời gian ra hỗ trợ giúp đỡ!
Nhìn chung là em thấy cách a làm khá gọn cho người nhập, tuy nhiên, do số lượng khoản vay lớn (hơn 1000 khoản) nếu được tại phần tác nghiệp, cột ô số anh để tìm kiếm theo (có thể theo tên, ngày đến hạn, số tiền...).
Cơ bản phần Form ok rồi anh, giờ phần Report và Lọc nữa thôi!

 

[HUONGHCKT]

Cám ơn anh đã bổ chút thời gian ra hỗ trợ giúp đỡ!
Nhìn chung là em thấy cách a làm khá gọn cho người nhập, tuy nhiên, do số lượng khoản vay lớn (hơn 1000 khoản) nếu được tại phần tác nghiệp, cột ô số anh để tìm kiếm theo (có thể theo tên, ngày đến hạn, số tiền...).
Cơ bản phần Form ok rồi anh, giờ phần Report và Lọc nữa thôi!

Gọi là góp chút cho vui, code chạy cũng ổn, tuy nhiên vẫn rất rất cần anh chi em góp ý thêm
Sub ABC()
Dim Arr(), KQ()
Dim i&, t&, k&, d&
Dim TONG As Variant
With Sheets("CHI TIET")
d = .Range("B" & .Rows.Count).End(xlUp).Row
MsgBox d
Arr = .Range("B2:M" & d).Value
ReDim KQ(1 To UBound(Arr), 1 To 6)
TU = Sheets("REPORT LOC").[B2]
DEN = Sheets("REPORT LOC").[E2]
If TU = Empty And DEN = Empy Then Exit Sub
If TU = Empty Then TU = .[F2]
If DEN = Empty Then DEN = .Range("F" & d - 1)
MsgBox DEN
For i = 1 To UBound(Arr)
If Arr(i, 5) >= TU And Arr(i, 5) <= DEN Then
t = t + 1
KQ(t, 1) = t
KQ(t, 2) = Arr(i, 12)
KQ(t, 3) = Arr(i, 4)
KQ(t, 4) = Arr(i, 10)
TONG = TONG + Arr(i, 10)
KQ(t, 5) = Arr(i, 5)
KQ(t, 6) = Arr(i, 11)
End If
Next i
If t > 0 Then
Sheets("REPORT LOC").Range("A6:M1000000").ClearContents
Sheets("REPORT LOC").[A6].Resize(t, 6) = KQ
Sheets("REPORT LOC").[H2] = t
Sheets("REPORT LOC").[L2] = TONG
End If
End With
MsgBox "XONG"
End Sub

Nếu ô B2= rỗng thì từ ngày= ngày đầu tiên của sheets CHITIET
Nếu ô E2= rỗng thì Đến ngày= ngày cuối cùng của sheets CHITIET.
Bạn hãy thử thay đổi ô B2 và e2 sh CHITIET và RUN nhé.

 

[babyheomoi]

Gọi là góp chút cho vui, code chạy cũng ổn, tuy nhiên vẫn rất rất cần anh chi em góp ý thêm
Sub ABC()
Dim Arr(), KQ()
Dim i&, t&, k&, d&
Dim TONG As Variant
With Sheets("CHI TIET")
d = .Range("B" & .Rows.Count).End(xlUp).Row
MsgBox d
Arr = .Range("B2:M" & d).Value
ReDim KQ(1 To UBound(Arr), 1 To 6)
TU = Sheets("REPORT LOC").[B2]
DEN = Sheets("REPORT LOC").[E2]
If TU = Empty And DEN = Empy Then Exit Sub
If TU = Empty Then TU = .[F2]
If DEN = Empty Then DEN = .Range("F" & d - 1)
MsgBox DEN
For i = 1 To UBound(Arr)
If Arr(i, 5) >= TU And Arr(i, 5) <= DEN Then
t = t + 1
KQ(t, 1) = t
KQ(t, 2) = Arr(i, 12)
KQ(t, 3) = Arr(i, 4)
KQ(t, 4) = Arr(i, 10)
TONG = TONG + Arr(i, 10)
KQ(t, 5) = Arr(i, 5)
KQ(t, 6) = Arr(i, 11)
End If
Next i
If t > 0 Then
Sheets("REPORT LOC").Range("A6:M1000000").ClearContents
Sheets("REPORT LOC").[A6].Resize(t, 6) = KQ
Sheets("REPORT LOC").[H2] = t
Sheets("REPORT LOC").[L2] = TONG
End If
End With
MsgBox "XONG"
End Sub

Nếu ô B2= rỗng thì từ ngày= ngày đầu tiên của sheets CHITIET
Nếu ô E2= rỗng thì Đến ngày= ngày cuối cùng của sheets CHITIET.
Bạn hãy thử thay đổi ô B2 và e2 sh CHITIET và RUN nhé.

Code này chạy ok quá, cám ơn bajn nhiều nhé!

 

[HUONGHCKT]

Code này chạy ok quá, cám ơn bajn nhiều nhé!

Góp thêm đoạn nữa.
thử thay đổi một ít dữ liệu, có trùng mã số (ở cột B-Sh Chi tiet) và chạy thử nhé.

 

[babyheomoi]

Góp thêm đoạn nữa.
thử thay đổi một ít dữ liệu, có trùng mã số (ở cột B-Sh Chi tiet) và chạy thử nhé.

Mình thử sửa dữ liệu nhưng gặp vấn đề là nó không sửa dữ liệu. Và mgsbox lặp lại hơi nhiều lần sau khi sửa xong. Bạn fix thử giúp mình nhé!

 

[HUONGHCKT]

Mình thử sửa dữ liệu nhưng gặp vấn đề là nó không sửa dữ liệu. Và mgsbox lặp lại hơi nhiều lần sau khi sửa xong. Bạn fix thử giúp mình nhé!

Mình cũng không kiểm tra kỹ.
thử lại bằng code mình đã kiểm tra xem sao.
Chúc thành công.

 

[babyheomoi]

Mình cũng không kiểm tra kỹ.
thử lại bằng code mình đã kiểm tra xem sao.
Chúc thành công.

Xin lỗi chị, bữa giờ bận quá chưa vào test được! Hôm nay em test rồi báo lại chị nhé!
Cám ơn chị nhiều