[HELP] File excel tách dữ liệu-quản lý công nợ

Chia sẻ bởi:hands

★★★★★

‹ TÌM VỊ TRÍ MAX VÀ MIN BẰNG... Anh chị giúp em chỉnh code cho... ›

Quảng cáo

Chào mọi người.
Hiện tại mình đang quản lý công nợ của cửa hàng VLXD.Excel mình cũng biết sơ sơ.Nay mình muốn lập 1 file excel quản lý công nợ phù hợp với nhu cầu của cửa hàng.
Ví dụ như sau:
Mình có Sheet " Nhập hàng"
Gồm các cột:
Ngày-Nhà cung cấp- Loại- Số lượng- Đơn vị- Đơn giá- Thành tiền
Ví dụ: 1/11/16-Prime- 40×40- 100- Thùng- 50.000- 5.000.000
1/11/16-Đồng Tâm 50×50- 50- Thùng- 50.000- 2.500.000
Tương tự với các ngày tiếp theo
Mình muốn hỏi là dùng hàm nào để kiểu như mình gõ bên Sheet "nhập hàng" thì excel tự tách dữ liệu của từng Nhà cung cấp A,B,C ra từng sheet hoặc 1 trang riêng biệt là tổng hợp từ đầu tháng đến cuối tháng của Nhà cung cấp đó.
Thực ra thì mình cũng tìm trên diễn đàn rồi, mà các file đó nó rắc rối quá, mà mình thì hok cần những chức năng đó nên thành ra mới lập topic này để hỏi xem có cách nào đơn giản và phù hợp với nhu cầu của mình.Thực sự thì mình cũng muốn tìm hiểu thêm tí về Macro hay VBA gì đó để tự làm 1,2 file đơn giản.Mà đọc mấy giáo trình thấy rắc rối quá trời, nên sẵn có mọi người giúp thì học lóm tí luôn.
Mình gửi file này.Mọi người giúp mình nhé.

Dùng công thức này cho Cells A2 của các sheet, Fill qua và Fill xuống tới khi nào thích dừng thì dừng…

A2 =IFERROR(OFFSET('NHAP HANG'!A$1,SMALL(INDEX(('NHAP HANG'!$B$2:$B$1000=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1),1)+1,100))*ROW($2:$1000),0),COUNTIF('NHAP HANG'!$B$2:$B$1000,"<>"&MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1),1)+1,100))+ROW(A1))-1,0),"")

www.giaiphapexcel.com/diendan/threads/help-file-excel-t%C3%A1ch-d%E1%BB%AF-li%E1%BB%87u-qu%E1%BA%A3n-l%C3%BD-c%C3%B4ng-n%E1%BB%A3.120194/

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học

★★★★★ 5 ★ 1 👤 2 ▥ 0

‹ TÌM VỊ TRÍ MAX VÀ MIN BẰNG VBA Anh chị giúp em chỉnh code cho nó... ›

Quảng cáo

Bạn nên đọc

Tìm ngày giờ kết thúc dự kiến

Tổng hợp file Excel tính giá thành sản phẩm cho doanh nghiệp sản xuất, gia công, xây lắp

Hướng dẫn xử lý file Excel chậm

Công thức quy đổi lương NET sang GROSS

Tính thưởng lũy tiến

Cách tách chuỗi trong dấu ngoặc Excel bằng công thức và Flash Fill

2 Responses

hands says:

25/02/2023 at 6:40 pm

Bạn xem thử đúng yêu cầu của bạn chưa.
không biết máy mình có bị gì không, khi chạy với số dòng ít thì ok, nhưng khi copy để tạo dữ liệu gần 50.000 dòng sau đó chạy code thì báo lỗi ở dòng
```
.Range("A1", Rng).SpecialCells(12).Copy
```
bạn xem lại dùm, mình rất thích code nầy. Cám ơn bạn
ghi chú: file lớn nên không gởi được, mình dùng code nầy để copy dữ liệu
```
Sub copyDL()
For I = 1 To 100
    ir = Sheets("NHAP HANG").Range("A2").End(xlDown).Row
    If ir < 38000 Then Sheets("NHAP HANG").Range("A2:G" & ir).Copy Sheets("NHAP HANG").Range("A" & ir)
Next I
End Sub
```
Mình thấy anh em trong diễn đàn sử dụng, mình áp dụng theo, còn việc số lượng dữ liệu nhiều vậy mình cũng chưa áp dụng thử và cũng chưa nắm rõ là nó có giới hạn bao nhiêu dòng không nửa.Chờ anh em nào hiểu rõ hơn giả ithích cho ban bạn vậy.

1) Code này chạy chưa đúng ở 2 sheet ĐỒNG TÂM và TAICERA
2) Viết quá phức tạp, nếu dùng AutoFilter thì chỉ cần chạy qua các sheets, fill nó với điều kiện tên sheet là đủ rồi, không cần Dictionary (đây chỉ là ý riêng của mình)
3) Xử dụng AutoFilter mà dữ liệu khoảng 50.000 dòng thì nó vẫn….chạy tốt
Thân

Mình đã kiểm tra trên Excel 2007 trên máy Ram 4G, copy dữ liệu AutoFillter chỉ được khoảng 20.000 dòng, nếu hơn và copy giống kiểu thủ công thì thì nó dán luôn các dòng ẩn

Reply
hands says:

25/02/2023 at 6:41 pm

Thêm 1 tham khảo cho bạn về VBA;
Chỉ là 1 câu lệnh là có thôi!

Reply