Nhờ viết dùm code VBS thay thế hàm sumproduct (1 người xem)

[vantoan19812002]

Tình hình là em có file quản lý vật tư, ở sheet TonghopNX, tại cột G và I em làm công thức Sumproduct nhưng sẽ là cho file tính toán chậm,nên muốn nhờ các Pro viết lại dùm mã code VBS ở tại cột G và I, cụ thể là ở cột G, em muốn điều kiện nếu là phiếu nhập(PN) và thỏa mã hàng ở cột B thì tính tổng số lượng các phiếu nhập có mã hàng này vào cột G.File đính kèm:

 

[SA_DQ]

Dùng hàm database nha

Cách dùng:
Bạn mở trang 'NhatKyNX' ra; Tại [IA1] bạn lập công thức =A4; tại ô fải liền kề bạn nhập =I4
Tại [IA2] bạn nhập công thức ="P"&ID2&"*"
& bạn đảm bảo rằng macro có thể nhập liệu vô vùng [iA1:iD4]

Sao đó chép & cho chạy macro này bằng tổ hợp 3 fím nóng nào đó, ví dụ {CTRL}+{SHIFT} +T

Sub ThaySumProduct()
 Dim CSDL As Range, Cls As Range, Sh As Worksheet, WF As Object
 Dim jJ As Byte
 
 Sheet5.Select:                     Set WF = Application.WorksheetFunction
 Set Sh = Sheets("NhatKyNX")
 Set CSDL = Sh.Range("A4:N" & Sh.[B65500].End(xlUp).Row)
 For Each Cls In Range([B6], [B65500].End(xlUp))
    Sh.[ib2].Value = Cls.Value
    For jJ = 5 To 8 Step 2
        Sh.[id2].Value = Switch(jJ = 5, "N", jJ = 7, "X")
        Cls.Offset(, jJ).Value = Sh.[IA4].Value
    Next jJ
 Next Cls
End Sub

(húc thành công!

 

[vantoan19812002]

Trước tiên cảm ơn bạn HYen17, mình đã làm thử ở sheet "NhatkyNX" ra và làm như bạn, nhưng không hiểu ý định của bạn là gì nữa, trang mình muốn can thiệp là trang "TonghopNX",công thức điều kiện hàm sumproduct ở cột G và I.Có thể bạn làm mẫu và đưa lên cho mình được không bạn(làm trực tiếp trên file của mình, nếu có pass là 123).Cụ thể là làm ở cột G và I của trang "TonghopNX" và mã code bạn viết nhập vào General hay tại một sheet nào?Thân chờ hồi âm

 

[SA_DQ]

Bạn xoá số liệu tại cột G & I; Sau đó bấm

{CTRL}+{SHIFT}+T để chạy macro trên file của mình


Chúc vui!

 

[vantoan19812002]

Cảm ơn bạn, Mình thử trên file của mình thì không được, mình để nguyên các sheet và copy đoạn mã vào module 1 nhưng vẫn không được.Bạn xem lại giúp mình xem sao.Chờ hồi âm.File đính kèm:

 

[ChanhTQ@]

Mình vừa chạy file bạn đưa lên & kết quả mĩ mãn nà!

Đã mần vầy:

(|) Gán cho macro tổ hợp fím nóng như {CTRL}+{SHIFT}+T;

(|) Đến trang tính 'TongHopNX' & bôi chọn các ô vùng 'G6:H12' & xoá số liệu đi (= fím {Delete})

(|) Việc cuối là bấm tổ hợp fím trên & rung đùi xem sao!

​

 

[vantoan19812002]

Đã mần vầy:

(|) Gán cho macro tổ hợp fím nóng như {CTRL}+{SHIFT}+T;

(|) Đến trang tính 'TongHopNX' & bôi chọn các ô vùng 'G6:H12' & xoá số liệu đi (= fím {Delete})

(|) Việc cuối là bấm tổ hợp fím trên & rung đùi xem sao!

​

Bạn có thể nói rõ hơn về cách gán phím nóng cho macro được không bạn.Thanks nhiều.

 

[nghiaphuc]

Bạn có thể nói rõ hơn về cách gán phím nóng cho macro được không bạn.Thanks nhiều.

Bạn nhấn Alt+F8 --> chọn Macro --> nhấn nút Options rồi bạn sẽ tự khám phá ra thôi.

 

[vantoan19812002]

Bạn nhấn Alt+F8 --> chọn Macro --> nhấn nút Options rồi bạn sẽ tự khám phá ra thôi.

Hì, thiệt đúng là mình gà thiệt, cái này lúc trước có làm rồi, bỏ lâu lại quên.Cảm ơn bạn nhiều nha.Cảm ơn tất cả các bạn đã giúp đỡ mình.Nếu bạn nào viết mã code mà chạy tự động không phải gán phím thì hay biết mấy.