Sum các số liệu theo 2 biến "FROM" từ ngày này "TO" đến ngày khác (1 người xem)

[Hung Duong]

Trong file đính kèm là sample của vấn đề của mình.

_ Bảng data input là sales của các tuần.
_ Bảng tracking table : khi mình chọn "FROM" theo list các ngày trong cột "FROM" bên bảng data input, cột "TO" cũng được chọn theo list các ngày trong cột "TO" bên bảng data input.

<?> khi chọn xong 2 cột "FROM" & "TO" thì sales của mình sẽ tự công theo biến số này.

 

[befaint]

Trong file đính kèm là sample của vấn đề của mình.

_ Bảng data input là sales của các tuần.
_ Bảng tracking table : khi mình chọn "FROM" theo list các ngày trong cột "FROM" bên bảng data input, cột "TO" cũng được chọn theo list các ngày trong cột "TO" bên bảng data input.

<?> khi chọn xong 2 cột "FROM" & "TO" thì sales của mình sẽ tự công theo biến số này.

 

[phulien1902]

Trong file đính kèm là sample của vấn đề của mình.

_ Bảng data input là sales của các tuần.
_ Bảng tracking table : khi mình chọn "FROM" theo list các ngày trong cột "FROM" bên bảng data input, cột "TO" cũng được chọn theo list các ngày trong cột "TO" bên bảng data input.

<?> khi chọn xong 2 cột "FROM" & "TO" thì sales của mình sẽ tự công theo biến số này.

Thêm 1 cách để bạn tham khảo:
+> Code cho Sheet1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$I$5" Then abc
End Sub

+> Code cho Module

Sub abc()
    Dim LR As Long
    Dim StartDate As Long
    Dim EndDate As Long
    LR = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
    StartDate = Range("H5").Value2
    EndDate = Range("I5").Value2
    Sheet1.AutoFilterMode = False
    Range("A4:G" & LR).AutoFilter Field:=1, Criteria1:=">=" & StartDate
    Range("A4:G" & LR).AutoFilter Field:=2, Criteria1:="<=" & EndDate
    Range("J5").Formula = "=SUBTOTAL(9,C5:C" & LR & ")"
    Range("K5").Formula = "=SUBTOTAL(9,D5:D" & LR & ")"
End Sub

 

[Hung Duong]

Thêm 1 cách để bạn tham khảo:
+> Code cho Sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$I$5" Then abc
End Sub

+> Code cho Module

Sub abc()
    Dim LR As Long
    Dim StartDate As Long
    Dim EndDate As Long
    LR = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
    StartDate = Range("H5").Value2
    EndDate = Range("I5").Value2
    Sheet1.AutoFilterMode = False
    Range("A4:G" & LR).AutoFilter Field:=1, Criteria1:=">=" & StartDate
    Range("A4:G" & LR).AutoFilter Field:=2, Criteria1:="<=" & EndDate
    Range("J5").Formula = "=SUBTOTAL(9,C5:C" & LR & ")"
    Range("K5").Formula = "=SUBTOTAL(9,D5:D" & LR & ")"
End Sub

Rất cãm ơn bạn. Nếu công việc yêu cầu mình nhiều hơn 1 dòng thì phải làm sao ? Mình tải lên file để bạn giúp mình rõ hơn nghen.

 

[Hung Duong]

Rất cãm ơn bạn nhiều!!!

 

[phulien1902]

Rất cãm ơn bạn. Nếu công việc yêu cầu mình nhiều hơn 1 dòng thì phải làm sao ? Mình tải lên file để bạn giúp mình rõ hơn nghen.

Theo tôi trường hợp này thì bạn dùng cách của bài 2( Sumproduct) là hay hơn cả.