Trước tiên xin có đôi điều cùng bạn:
Sheet bạn ghi "công nợ tháng 3" được hiểu đó là sheet để nhập dữ liệu ban đầu cho nên theo mình nên:
1) Thêm cột mã đại lý trước cột tên đại lý (Cái lợi của việc đặt mã là rất gọn và tiện khi dùng hàm hoặc code để kết chuyển dữ liệu hơn là dùng tên dễ xảy ra sai sót )
2) phần khách trả tiền chỉ nên thiết kế là: 01 cột ghi diễn giải tiền đặt trước hay tiền trả nợ; tiền mặt hay chuyển khoản ....; 01 cột ghi số tiền khách trả; 01 cột ghi kết chuyển công nợ để biết (Số dương là dư có; số âm là dư nợ)
Nếu bạn đồng ý phương án đó và nói rõ hơn những yêu cầu của mình, có thể tôi sẽ giúp được bạn
vâng em cảm ơn ạ.bản của em đã có bảng đó rồi ạ. Và em đang có tìm hiểu 1 chút thì học được đoạn code như này.
Vấn đề là ở dòng thứ 5 -> Nó sẽ lấy tên khách hàng (KH) ở trong 1 ô định trước của Bảng kê chi tiết để lọc ra tên Khách hàng, nhưng em muốn nó lọc theo kiểu bắt đầu với chữ cái. Ví dụ như : ĐL Hải Anh thì sẽ ra cả ĐL Hải Anh (TTT) lần 1 và ĐL Hải Anh (TTT) lần 2 ạ. Chứ để như này thì nó chỉ lọc ĐL Hải Anh và bỏ qua những cái khác. Em cảm ơn trước!
Sub Bang_ke()
Dim I As Long, K As Long, Dcuoi As Long, KH As String
Dim Rng_N As Range
Dim Rng_D As Range
KH = Sheet4.Range("I2").Value
Dcuoi = Sheet3.Range("A" & Rows.Count).End(xlUp).Row
Set Rng_N = Sheet3.Range("A3:M" & Dcuoi)
Set Rng_D = Sheet4.Range("A7:M" & Dcuoi + 6)
Sheet4.Range("A7:M10000").Clear
K = 0
For I = 1 To Rng_N.Rows.Count
If KH = Rng_N(I, 13) Then
K = K + 1
Rng_D(K, 1) = Rng_N(I, 1)
Rng_D(K, 2) = Rng_N(I, 2)
Rng_D(K, 3) = Rng_N(I, 3)
Rng_D(K, 4) = Rng_N(I, 4)
Rng_D(K, 5) = Rng_N(I, 5)
Rng_D(K, 6) = Rng_N(I, 6)
Rng_D(K, 7) = Rng_N(I, 7)
Rng_D(K, 8) = Rng_N(I, 8)
Rng_D(K, 9) = Rng_N(I, 9)
Rng_D(K, 10) = Rng_N(I, 10)
Rng_D(K, 11) = Rng_N(I, 11)
Rng_D(K, 12) = Rng_N(I, 12)
Rng_D(K, 13) = Rng_N(I, 13)
End If
Next
End Sub
ùng Hàm IsDate để kiểm tra xem phần tử thứ i cột 1 của mảng nguồn (tức là (Arr(i,1)) có phải là dữ liệu kiểu ngày tháng không.
