Xử lý sao với file kho 30000>50000 dòng dữ liệu

[toidjtjmtoi]

Tình hình là công ty em sản xuất bao bì , kích cỡ và đơn hàng có khoảng 30000>50000 loại
Kế toán hiện này toàn làm kiểu thủ công
Em thử làm 1 cái file nhập xuất tồn để nó tự động hóa 1 tý nhưng với trên 10000 dòng nó đã chạy đến choáng và đơ máy luôn rồi . Vấn đề là ở cái hàm sumif
Em tra google thấy các bác ấy bảo đổi Sumif thành Sum(if . Em đã thử nhưng sai
Hàm em nó thế này bác nào conver giúp em với =SUMIF(Xuất!H1:H29242,$K29235,Xuất!I1:I29245)
Hay có phương án nào khả thi hơn không
Em cần lắm . Cảm ơn các bác nhiều

http://www.mediafire.com/download/5pjsx4n908l44i4/quản+lý+kho+cho+công+ty+bao+bì.xls
Đây là file của mình , cứ mỗi lần ấn vào nút nhập kho là nó đơ

 

[Lê Duy Thương]

Tình hình là công ty em sản xuất bao bì , kích cỡ và đơn hàng có khoảng 30000>50000 loại
Kế toán hiện này toàn làm kiểu thủ công
Em thử làm 1 cái file nhập xuất tồn để nó tự động hóa 1 tý nhưng với trên 10000 dòng nó đã chạy đến choáng và đơ máy luôn rồi . Vấn đề là ở cái hàm sumif
Em tra google thấy các bác ấy bảo đổi Sumif thành Sum(if . Em đã thử nhưng sai
Hàm em nó thế này bác nào conver giúp em với =SUMIF(Xuất!H1:H29242,$K29235,Xuất!I1:I29245)
Hay có phương án nào khả thi hơn không
Em cần lắm . Cảm ơn các bác nhiều

Không có file thì chịu chết. dùng pivot table xem . 1 triệu dòng cũng ok

 

[toidjtjmtoi]

File mình nặng quá ko up lên đây được . Mình sẽ nghiên cứu cái kia , cảm ơn bạn

 

[haonlh]

i
Hàm em nó thế này bác nào conver giúp em với =SUMIF(Xuất!H1:H29242,$K29235,Xuất!I1:I29245)

Lỗi ít ra là 2 tham số 1 và 3 là không cùng chiều.
Bạn chú ý chữ màu đỏ đó.

Mà cũng nên gửi file lên. Hãy xóa bớt đi để file còn khoảng 1000 dòng

 

[be_09]

File mình nặng quá ko up lên đây được . Mình sẽ nghiên cứu cái kia , cảm ơn bạn

Sao bạn không xóa bớt dữ liệu, chỉ chừa mỗi sheet khoảng 50 dòng thôi (để có cái chiêm nghiệm và thử), dựa vào dữ liệu và nội dung để các thành viên góp ý hoặc đưa ra giải pháp.

Không đính kèm File lên thì chẳng ai hiểu bạn muốn làm cái gì trong mớ hỗn độn đó.

 

[toidjtjmtoi]

Mình đã up file lên trên top rồi bạn nào xem giúp mình
http://www.mediafire.com/download/5pjsx4n908l44i4/quản+lý+kho+cho+công+ty+bao+bì.xls
Cứ mỗi lần làm lệnh nhập hoặc xuất là nó đơ ra

 

[Lê Duy Thương]

mình đã up file lên trên top rồi bạn nào xem giúp mình
http://www.mediafire.com/download/5pjsx4n908l44i4/quản+lý+kho+cho+công+ty+bao+bì.xls
cứ mỗi lần làm lệnh nhập hoặc xuất là nó đơ ra

File của bạn bị đơ không phải do công thức hay dữ liệu nhiều mà do 3 cái dòng code qoái quỷ+quá nhiều định dạng ,tô màu bằng màu trắng.
Tôi đã sửa 2 sub() xuất+nhập rồi . Còn sub lưu lệnh sx là gì không hiểu nên để nguyên.
File ban đầu trên 8mb bây giờ còn trên 100kb khiếp quá

 

[sealand]

File của bạn bị đơ không phải do công thức hay dữ liệu nhiều mà do 3 cái dòng code qoái quỷ+quá nhiều định dạng ,tô màu bằng màu trắng.
Tôi đã sửa 2 sub() xuất+nhập rồi . Còn sub lưu lệnh sx là gì không hiểu nên để nguyên.
File ban đầu trên 8mb bây giờ còn trên 100kb khiếp quá

Lê Duy Thương à, 2 cái Code này là dung copy với Paste nó cứ giật đùng đùng khó chịu lắm. Chỉ cần sửa lại như sau là nó âm thầm làm việc

Sub nhapkho2()
Sheet4.Range("A65000").End(3).Offset(1).Resize(, 9).Value = Sheet1.[A3:I23].Value
Sheet1.[A3:H23] = ""
End Sub

'------------------------------------------------------------


Sub xuatkho2()
Sheet3.Range("A65000").End(3).Offset(1).Resize(, 9).Value = Sheet1.[A3:I23].Value
Sheet1.[A3:H23] = ""
End Sub

Mặt khác, việc nhập xuất hoàn toàn giống nhau về cấu trúc chỉ khác tên Sheet. Vậy ta nên viết lệnh lưu chung rồi khi nhập xuất ta truyền cho nó cái sheet nào là xong. Như vậy nó vừa cơ bản vừa gọn gàng

Sub Xuat()
Update Sheet3
End Sub
'----------------------------------
Sub Nhap()
Update Sheet4
End Sub
'-----------------------------------
Sub Update(Sh As Worksheet)
Sh.Range("A65000").End(3).Offset(1).Resize(, 9).Value = Sheet1.[A3:I23].Value
Sheet1.[A3:H23] = ""
End Sub

 

[Lê Duy Thương]

Lê Duy Thương à, 2 cái Code này là dung copy với Paste nó cứ giật đùng đùng khó chịu lắm. Chỉ cần sửa lại như sau là nó âm thầm làm việc

Sub nhapkho2()
Sheet4.Range("A65000").End(3).Offset(1).Resize(, 9).Value = Sheet1.[A3:I23].Value
Sheet1.[A3:H23] = ""
End Sub

'------------------------------------------------------------


Sub xuatkho2()
Sheet3.Range("A65000").End(3).Offset(1).Resize(, 9).Value = Sheet1.[A3:I23].Value
Sheet1.[A3:H23] = ""
End Sub

Mặt khác, việc nhập xuất hoàn toàn giống nhau về cấu trúc chỉ khác tên Sheet. Vậy ta nên viết lệnh lưu chung rồi khi nhập xuất ta truyền cho nó cái sheet nào là xong. Như vậy nó vừa cơ bản vừa gọn gàng

Sub Xuat()
Update Sheet3
End Sub
'----------------------------------
Sub Nhap()
Update Sheet4
End Sub
'-----------------------------------
Sub Update(Sh As Worksheet)
Sh.Range("A65000").End(3).Offset(1).Resize(, 9).Value = Sheet1.[A3:I23].Value
Sheet1.[A3:H23] = ""
End Sub

Anh sealand mà xem cái file gốc thì choáng luôn. Trong file em còn để nguyên cái module 3

 

[toidjtjmtoi]

Cảm ơn các pro