Nhờ giúp code lọc trùng, sắp xếp và tính tổng (3 người xem)

[comet_1701]

Bài #8 bạn bị lỗi ở đây nè:

Else
            KQ(.Item(Sarr(i, 2)), 2) = KQ(.Item(Sarr(i, 2)), 2) + Sarr(i, 3)
            KQ(.Item(Sarr(i, 2)), j - 5) = KQ(.Item(Sarr(i, 2)), j - 5) + Sarr(i, j)
        End If

j lúc này không nằm trong vòng For nên j =0, j-5 là số âm ---> Lỗi mảng KQ()
Bài kế trên

For j = 8 To 90
            KQ(.Item(Sarr(i, 2)), 2) = KQ(.Item(Sarr(i, 2)), 2) + Sarr(i, 3)
            KQ(.Item(Sarr(i, 2)), j - 5) = KQ(.Item(Sarr(i, 2)), j - 5) + Sarr(i, j)
            Next

Dòng

KQ(.Item(Sarr(i, 2)), 2) = KQ(.Item(Sarr(i, 2)), 2) + Sarr(i, 3)

Nằm trong vòng For j làm gì?

KQ(.Item(Sarr(i, 2)), 2) = KQ(.Item(Sarr(i, 2)), 2) + Sarr(i, 3)

đoạn này em kịp sửa bài 19# rồi ah, em cảm ơn

 

[tommynguyen]

Tạo mẫu dữ liệu kiểu này thì khi nhập, xuất một mặt hàng nào đó, dò tìm ngang dọc hơi bị oải à nghe.

Cảm ơn thầy Ba Tê, được thầy giúp em đỡ bạc mái đầu xanh hẳn , em cũng thấy hơi oải mỗi lúc nhập hoặc xuất hàng, nhưng em cũng chưa nghĩ ra cách tổ chức nào cho khoa học hơn Lúc đầu em định là tạo danh sách chọn Data Validation nhưng dữ liệu 1000 mặt hàng, mỗi lần tìm 1 sản phẩm em lại cuộn mỏi tay nên mới để mẫu dữ liệu như trong file.

Thêm ucase như thầy Bate bạn nhá, Được thầy vào cái xong hết rồi nhá. Nhất bạn đó. Những lúc mình đang phải làm bạn mới post bài lên, nhiều lúc làm hơi vội có sai sót, thông cảm nhá

Cảm ơn bác comet_1701 nhiều, xin lỗi đã làm phiền lúc bác đang làm việc, những bài trả lời của bác rất nhanh, rất kịp thời Thanks.

 

[comet_1701]

Cảm ơn thầy Ba Tê, được thầy giúp em đỡ bạc mái đầu xanh hẳn , em cũng thấy hơi oải mỗi lúc nhập hoặc xuất hàng, nhưng em cũng chưa nghĩ ra cách tổ chức nào cho khoa học hơn Lúc đầu em định là tạo danh sách chọn Data Validation nhưng dữ liệu 1000 mặt hàng, mỗi lần tìm 1 sản phẩm em lại cuộn mỏi tay nên mới để mẫu dữ liệu như trong file.
a



Cảm ơn bác comet_1701 nhiều, xin lỗi đã làm phiền lúc bác đang làm việc, những bài trả lời của bác rất nhanh, rất kịp thời Thanks.

http://www.giaiphapexcel.com/forum/showthread.php?94417-Tạo-List-tìm-kiếm-cho-mã-hàng-hó
nếu vụ tìm mã lâu thì bạn đọc bài này nhé, đánh vài chữ cái đầu là ok, nên thiết kế lại file chút

 

[tommynguyen]

Cảm ơn bác em đã sửa thiết kế lại file theo chỉ dẫn
Em để nguyên như file thì chạy rồi, tuy nhiên em tinh chỉnh loại bỏ 1 số cột không cần thiết thì nó mất combobox
http://upfile.vn/uQBCMqjmTgFQ/loctrungcongtong30012015-v1-0-xlsm.html

 

[comet_1701]

Cảm ơn bác em đã sửa thiết kế lại file theo chỉ dẫn
Em để nguyên như file thì chạy rồi, tuy nhiên em tinh chỉnh loại bỏ 1 số cột không cần thiết thì nó mất combobox
http://upfile.vn/IdGgZqBCMqjm/loctrungcongtong30012015-v1-0-xlsm.html

Không vào mail được, bạn nhắn tin mail của bạn qua GPE đi, rồi gửi vào mail cho mihf, không load được file
Khi bạn xóa 3 cột đó thì trong sheet xuất kho phải thay Target Column = 3 là ok thôi nhé

ActiveCell.Offset(, 2) = .List(, 2)

Nếu muốn số lượng gõ tay thì module 1 bạn chọn B2:C thôi, và trong sheet xuất kho , Private Sub ComboBox1_Change(
Bạn bỏ dòng xanh ở phía trên nhé
ActiveCell.Resize(, 2).ClearContents nên sửa thành 2 cũng được

If n > 0 Then
            ReDim ArrFilter(1 To n, 1 To 2)
            For c = 1 To 2
                For r = 1 To n
                    ArrFilter(r, c) = pubArrList(GetRows(r), c)
                Next
            Next
            ComboBox1.List = ArrFilter

đoạn này cũng thế nên thay c=2 , vẫn trong sheet xuất kho

 

[tommynguyen]

Em sửa lại link rồi, không hỏi mail đâu, bác tải lại xem ạ
http://upfile.vn/IdGgZqBCMqjm/loctrungcongtong30012015-v1-0-xlsm.html

 

[comet_1701]

Em sửa lại link rồi, không hỏi mail đâu, bác tải lại xem ạ
http://upfile.vn/IdGgZqBCMqjm/loctrungcongtong30012015-v1-0-xlsm.html

Bạn xem lại bài 25 nếu không sửa được, để lại số điện thoại mình gọi lại cho

 

[tommynguyen]

Em sửa rồi, báo lỗi Out of range ở dòng
ArrFilter(r, c) = pubArrList(GetRows(r), c)
Em gửi sdt pm nhé bác

 

[comet_1701]

Em sửa rồi, báo lỗi Out of range ở dòng
ArrFilter(r, c) = pubArrList(GetRows(r), c)
Em gửi sdt pm nhé bác

If n > 0 Then
            ReDim ArrFilter(1 To n, 1 To 2)
            For c = 1 To 2
                For r = 1 To n
                    ArrFilter(r, c) = pubArrList(GetRows(r), c)
                Next
            Next
            ComboBox1.List = ArrFilter

Thay bằng thế này xem sao

 

[Ba Tê]

Cảm ơn thầy Ba Tê, được thầy giúp em đỡ bạc mái đầu xanh hẳn , em cũng thấy hơi oải mỗi lúc nhập hoặc xuất hàng, nhưng em cũng chưa nghĩ ra cách tổ chức nào cho khoa học hơn Lúc đầu em định là tạo danh sách chọn Data Validation nhưng dữ liệu 1000 mặt hàng, mỗi lần tìm 1 sản phẩm em lại cuộn mỏi tay nên mới để mẫu dữ liệu như trong file.



Cảm ơn bác comet_1701 nhiều, xin lỗi đã làm phiền lúc bác đang làm việc, những bài trả lời của bác rất nhanh, rất kịp thời Thanks.

Thử nhập tên hàng vào C4 (vài ký tự gì đó - càng nhiều càng tốt) sheet QLNhapXuat
Muốn không lọc nữa thì del ô C4

 

[tommynguyen]

Cảm ơn thầy Ba Tê, cảm ơn bác comet_1701, cả 2 cách em đều thử thành công rồi ạ.
Nhìn file giờ đẹp gọn gàng, khoa học hẳn