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

le_vis

Thành viên tích cực
Tham gia ngày
23 Tháng bảy 2009
Bài viết
813
Được thích
404
Điểm
735
Tuổi
35
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

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
6,202
Được thích
10,245
Điểm
1,860
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:

le_vis

Thành viên tích cực
Tham gia ngày
23 Tháng bảy 2009
Bài viết
813
Được thích
404
Điểm
735
Tuổi
35
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:

Lê Hồng Minh83

Thành viên tiêu biểu
Tham gia ngày
29 Tháng chín 2017
Bài viết
583
Được thích
647
Điểm
360
Tuổi
36
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 đỡ
 

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,239
Được thích
15,995
Điểm
1,860
Tuổi
60
Nơi ở
An Giang
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

le_vis

Thành viên tích cực
Tham gia ngày
23 Tháng bảy 2009
Bài viết
813
Được thích
404
Điểm
735
Tuổi
35
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
 

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,239
Được thích
15,995
Điểm
1,860
Tuổi
60
Nơi ở
An Giang
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
 

le_vis

Thành viên tích cực
Tham gia ngày
23 Tháng bảy 2009
Bài viết
813
Được thích
404
Điểm
735
Tuổi
35

Ba Tê

Cạo Rồi Khỏi Gội
Tham gia ngày
5 Tháng năm 2009
Bài viết
11,239
Được thích
15,995
Điểm
1,860
Tuổi
60
Nơi ở
An Giang
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

le_vis

Thành viên tích cực
Tham gia ngày
23 Tháng bảy 2009
Bài viết
813
Được thích
404
Điểm
735
Tuổi
35
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ì
 
Top Bottom