ti@ict.com
Thành viên mới
![](/diendan/data/PhoToDanhHieu/gold.gif)
- Tham gia
- 29/3/11
- Bài viết
- 25
- Được thích
- 2
Bạn xem thử nhéChào AE GPE. Mình cần xem công nợ nhà cung cấp đơn giản như form đính kèm (Mảng tính tổng công nợ VBA). nhờ ae giúp mình nhé!!! Cảm ơn
Chạy File bị lỗi này bạn ơi.Bạn xem thử nhé
Thử tải lại file nàyChạy File bị lỗi này bạn ơi.
Bài đã được tự động gộp:
Ok Thanks Bạn mình Fix được rồiBạn xem thử nhé
Ý người ta thích dùng cái này nè (cho đẹp).Cái này bạn có thể xài hàm subtotal rồi filter theo NCC cũng được, hay hơn thì xài pivotable để thống kê , tạo userform chi cho mất công.
Có thể attech files mình tham khảo được không bạnÝ người ta thích dùng cái này nè (cho đẹp).
Nhưng theo dõi như vậy thì chưa đủ mà cần phải có cột số hóa đơn và ngày mua hàng nữa, để khi khách hàng có thắc mắc hay khiếu nại về việc tính sai số tiền trong hóa đơn thì còn có cái để kiểm tra lại.
View attachment 198939
Cái Form đó không đáp ứng được yêu cầu thực tế của bạn đâu, vì mấy vấn đề sau:Có thể attech files mình tham khảo được không bạn
Form hay quá. Nhờ anh SA_DQ giúp em thêm cái chức năng xuất tất cả dữ liệu lọc được trong listbox ra vùng M5:WCái file này có thể thích hơn nè, mại zô!
ThanksForm hay quá. Nhờ anh SA_DQ giúp em thêm cái chức năng xuất tất cả dữ liệu lọc được trong listbox ra vùng M5:W
và xuất 1 dòng dữ liệu được lọc trong listbox (khi click chuột vào dòng) ra vùng M5:W5 nhé. Cảm ơn anh
Thanks ông bạnCái file này có thể thích hơn nè, mại zô!
Nên đem ra vùng [AA1: AH], như sau:Nhờ anh giúp em thêm cái chức năng xuất tất cả dữ liệu lọc được trong listbox ra vùng M5:W
và xuất 1 dòng dữ liệu được lọc trong listbox (khi click chuột vào dòng) ra vùng M5:W5 nhé. Cảm ơn anh
Dim dArr(): Dim idLB As Long '*'
Private Sub cbNCC_Change()
Dim Sh As Worksheet, Arr()
Dim J As Long, Rws As Long, W As Integer, TTn As Double, DTT As Double, ConNo As Double
Set Sh = ThisWorkbook.Worksheets("DuLieu")
Arr() = Sh.[B1].CurrentRegion.Offset(1, 1).Value
ReDim dArr(1 To 999, 1 To 8)
For J = 1 To UBound(Arr())
If Arr(J, 2) = Me!cbNCC.Text Then
W = W + 1: dArr(W, 1) = W
dArr(W, 2) = Arr(J, 1): dArr(W, 3) = Arr(J, 4) 'Tên HH '
dArr(W, 4) = Arr(J, 6): dArr(W, 5) = Arr(J, 7)
TTn = TTn + Arr(J, 8): DTT = DTT + Arr(J, 9)
dArr(W, 6) = Arr(J, 8): dArr(W, 7) = Arr(J, 9)
dArr(W, 8) = Arr(J, 10): ConNo = ConNo + Arr(J, 10)
End If
Next J
Me!lbCN.List = dArr(): Me!tbDTT = DTT
Me!tbTT.Value = TTn: Me!tbNo.Value = ConNo
[AA2].Resize(W, 8).Value = dArr() '*'
End Sub
Private Sub lbCN_Click() '*** '
Dim Col As Long
idLB = 1 + Me!lbCN.ListIndex
[AB2].CurrentRegion.Offset(1).ClearContents
With [AA2]
For Col = 0 To 7
.Offset(, Col).Value = dArr(idLB, 1 + Col)
Next Col
End With
End Sub '*** '
file của thầy thiết kế nhìn đẹp và chuyên nghiệp quá. Em thì chỉ theo dõi công nợ khách hàng bằng file đơn giản à. Thầy có thể thiết kế hoàn chỉnh để tặng thành viên GPE đi thầy.Ý người ta thích dùng cái này nè (cho đẹp).
Nhưng theo dõi như vậy thì chưa đủ mà cần phải có cột số hóa đơn và ngày mua hàng nữa, để khi khách hàng có thắc mắc hay khiếu nại về việc tính sai số tiền trong hóa đơn thì còn có cái để kiểm tra lại.
View attachment 198939
Bạn có thể gởi dữ liệu thô lên diễn đàn không vậy?file của thầy thiết kế nhìn đẹp và chuyên nghiệp quá.
Em thì chỉ theo dõi công nợ khách hàng bằng file đơn giản à. Thầy có thể thiết kế hoàn chỉnh để tặng thành viên GPE đi thầy.
Dạ, do theo dõi khoảng chừng 10 khách hàng nên em tạo 10 sheet khách hàng trên file và clink liên kết đến khách hàng (tạo clink cách thủ công), thiết kế file cũng đơn giản: Nợ đầu kì, mua trong kì, thanh toán, nợ cuối kì. Em đang trên điện thoại nên không gửi file lên được.Bạn có thể gởi dữ liệu thô lên diễn đàn không vậy?
Chắc cũng không ít người muốn xem file dữ liệu của bạn!
Chúc vui & thành công nhiều!
Thì em mở Topic mới, rồi nêu nội dung cần làm theo ý của mình, tôi dựa vô đó mới hoàn chỉnh.Dạ, do theo dõi khoảng chừng 10 khách hàng nên em tạo 10 sheet khách hàng trên file và clink liên kết đến khách hàng (tạo clink cách thủ công), thiết kế file cũng đơn giản: Nợ đầu kì, mua trong kì, thanh toán, nợ cuối kì. Em đang trên điện thoại nên không gửi file lên được.