Xin giúp Code thay cho các hàm SUBTOTAL và SUMIFS …..

Liên hệ QC

le_vis

Thành viên tích cực
Tham gia
23/7/09
Bài viết
1,245
Được thích
758
Chi tiết tôi xin được ghi rõ trong Sheet BC_ban và Sheet BC_NXT – Kính mong nhận được sự giúp đỡ của các bạn – Xin trân trọng cảm ơn
 

File đính kèm

  • File_nho giúp thay Sumifs.xlsm
    300 KB · Đọc: 10
Nếu như mình hiểu đúng, thì macro sự kiện trong 'BC_Ban' mình sẽ viết như sau:
PHP:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, sRng As Range
Dim Rws As Long

If Not Intersect(Target, Range([C10], [C10].End(xlDown).Offset(9))) Is Nothing Then  ' Sheet dich   '
    With Sheets("DM_hang")
        Rws = .[B8].CurrentRegion.Rows.Count
        Set Rng = .[B8].Resize(Rws)
        Set sRng = Rng.Find(Target, , , 1) ' *   '
        If Not sRng Is Nothing Then
            Target.Offset(, 3).Resize(, 3).Value = sRng.Offset(, 1).Resize(, 3).Value
        End If
    End With
End If
End Sub

(*) Với mình thì các con số vô tri giác đó mình sẽ không xài
Với mình luôn là xlFormulas, xlWhole sẽ trực quan hơn
Có sách họ nói: Nhiều trường hợp nên xài xlFormulas sẽ nhanh hơn chút đĩnh, tuy vùng tìm kiếm chỉ là các Values

Tạm mới vậy, sẽ tiếp tục vào mai . . . .
 
Lần chỉnh sửa cuối:
Upvote 0
Nếu như mình hiểu đúng, thì macro sự kiện trong 'BC_Ban' mình sẽ viết như sau:
PHP:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, sRng As Range
Dim Rws As Long

If Not Intersect(Target, Range([C10], [C10].End(xlDown).Offset(9))) Is Nothing Then  ' Sheet dich   '
    With Sheets("DM_hang")
        Rws = .[B8].CurrentRegion.Rows.Count
        Set Rng = .[B8].Resize(Rws)
        Set sRng = Rng.Find(Target, , , 1) ' *   '
        If Not sRng Is Nothing Then
            Target.Offset(, 3).Resize(, 3).Value = sRng.Offset(, 1).Resize(, 3).Value
        End If
    End With
End If
End Sub

(*) Với mình thì các con số vô tri giác đó mình sẽ không xài
Với mình luôn là xlFormulas, xlWhole sẽ trực quan hơn
Có sách họ nói: Nhiều trường hợp nên xài xlFormulas sẽ nhanh hơn chút đĩnh, tuy vùng tìm kiếm chỉ là các Values

Tạm mới vậy, sẽ tiếp tục vào mai . . . .
Xin cảm ơn Thầy. Mong tiếp tục nhận được sự giúp đỡ của Thầy để hoàn chỉnh File này
Thưa thầy : Thầy có thể xử lý cho khi khai báo thông tin hàng hóa bên Sheet DM_hang thì code tự động cập nhật sang Sheet báo cáo; Hoặc nữa chỉ cần Click vào một Ceel O4 BC_ban (Gọi tháng năm) - Hiện nay khi khai báo xong thì phải click lần lượt vào dãy số TT tại cột C để code chạy nên rất bất tiện và có thể bị sót nếu quên . đồng thời phía dưới cùng các cột thành tiền có dòng tổng cộng; Phía dưới bảng là phần để các bộ phận ký (Phần này để khoảng 5 dòng) Xin Thầy ra tay giúp - Kính thầy
 
Lần chỉnh sửa cuối:
Upvote 0
Chi tiết tôi xin được ghi rõ trong Sheet BC_ban và Sheet BC_NXT – Kính mong nhận được sự giúp đỡ của các bạn – Xin trân trọng cảm ơn
Code thay thế cho hàm Sumifs bạn nghiên cứu thử Dictionary nhé, tốc độ chạy rất nhanh. Mình đọc yêu cầu vẫn chưa hiểu ý bạn, khúc thay thế hàm sumifs bằng code thì có thể giúp được nhưng qua tuần nhé hoặc chờ đợi ai đó giúp đỡ
 
Upvote 0
Chi tiết tôi xin được ghi rõ trong Sheet BC_ban và Sheet BC_NXT – Kính mong nhận được sự giúp đỡ của các bạn – Xin trân trọng cảm ơn
Bạn nhập vào ô O4 sheet BC_ban (Ngày 1/tháng/năm).
Nếu đúng yêu cầu thì bàn tiếp sheet khác.
 

File đính kèm

  • GPE_2806_01.rar
    223.6 KB · Đọc: 4
Upvote 0
Bạn nhập vào ô O4 sheet BC_ban (Ngày 1/tháng/năm).
Nếu đúng yêu cầu thì bàn tiếp sheet khác.
Thưa thầy : Thật tuyệt; Trong Sheet BC_Ban thầy xử cho xin thêm là chỉ cho hiện những mặt hàng trong kỳ có phát sinh bán thôi còn những mặt hàng không phát sinh thì cho ẩn đi. Riêng Sheet BC_NXT (Báo cáo nhập-Xuất-Tồn) thì cho hiện tất cả các mặt hàng đã có khai mã bên Sheet DM_hàng. Rất cảm ơn thầy đã quan tâm giupx đỡ. Mong rằng được thầy ra tay giúp tiếp phần còn lại - Kính thầy
 
Upvote 0
Thưa thầy : Thật tuyệt; Trong Sheet BC_Ban thầy xử cho xin thêm là chỉ cho hiện những mặt hàng trong kỳ có phát sinh bán thôi còn những mặt hàng không phát sinh thì cho ẩn đi. Riêng Sheet BC_NXT (Báo cáo nhập-Xuất-Tồn) thì cho hiện tất cả các mặt hàng đã có khai mã bên Sheet DM_hàng. Rất cảm ơn thầy đã quan tâm giupx đỡ. Mong rằng được thầy ra tay giúp tiếp phần còn lại - Kính thầy
220191
 
Upvote 0
Upvote 0
Dạ thưa thầy. Hôm trước nghĩ chưa thấu đáo mong thầy thông cảm _ Vì tất cả các mặt hàng trong kho trong tháng không thể bán tất cả, có nhiều mặt hàng trong tháng sẽ không bán nên sẽ là bất cập khi để thế in ra báo cáo - Xin thầy thứ lỗi
Bạn xem lại file này, đã làm luôn Sheet NXT.
Sheet BTH đổi thành BTH_X để dễ so với BTH_N.
 

File đính kèm

  • GPE_2906_01.rar
    180.1 KB · Đọc: 19
Upvote 0
Bạn xem lại file này, đã làm luôn Sheet NXT.
Sheet BTH đổi thành BTH_X để dễ so với BTH_N.
Cảm ơn thầy nhiều lắm lắm - Trước mắt chạy thử thấy rất đúng với ý tưởng. Tôi sẽ tes thử với số lượng dữ liệu nhiều lên nữa và số tháng nhiều lên nữa để kiểm tra lại dữ liệu chuyển tồn đầu chuẩn nữa thì không có gì để nói nữa Thầy ạ - Có gì xin được báo cáo lại với thầy sau vài ba ngày khi tes laị xong - Kính thầy
Rất tiếc ở xa An Giang quá - Không tới để tạ thầy và xin thầy chỉ giáo được . Có khi nào đi Bãi Cháy Quảng Ninh không Thầy - Nếu thầy đi chỉ cần nhắn tin trò này tới rước thầy tức thì
 
Upvote 0
Web KT
Back
Top Bottom