Giúp code tính thành tiền theo 3 điều kiện

[minhtuan55]

Chào cả nhà GPE !
Em có dùng 1 đoạn code để tính toán thành tiền theo 3 điều kiện




Hiện tại đang dùng hàm Dsum thấy nó chậm quá. Nhờ các bác giúp. Xin chân thành cảm ơn

 

[SA_DQ]

Bạn thử đưa vô mảng (Array) xài xem sao?

 

[Phuocam]

Excel có sẵn hàm SUMIFS().

 

[CHAOQUAY]

Chào cả nhà GPE !
Em có dùng 1 đoạn code để tính toán thành tiền theo 3 điều kiện

View attachment 206101


Hiện tại đang dùng hàm Dsum thấy nó chậm quá. Nhờ các bác giúp. Xin chân thành cảm ơn

Thấy có cả giờ phút giây nên cứ để nguyên để so sánh.

Sub tinh_nhanh()
Dim SArr As Variant
Dim S, F, T
Dim i As Long, j As Long
With Sheet1
    SArr = .Range("b6").CurrentRegion
    S = .Range("i5")
    F = .Range("i6")
    T = .Range("i7")
For i = 2 To UBound(SArr)
    If SArr(i, 1) >= S And SArr(i, 1) <= F And SArr(i, 2) = T Then j = j + SArr(i, 3)
Next i
.Range("i1") = j
End With
End Sub

 

[snow25]

Chào cả nhà GPE !
Em có dùng 1 đoạn code để tính toán thành tiền theo 3 điều kiện

View attachment 206101


Hiện tại đang dùng hàm Dsum thấy nó chậm quá. Nhờ các bác giúp. Xin chân thành cảm ơn

không hiểu sao từ ngày 24/10 đến ngày 22/10 mà vẫn có kết quả là sao nhỉ hay mình không hiểu chỗ này

 

[khi ta 20]

không hiểu sao từ ngày 24/10 đến ngày 22/10 mà vẫn có kết quả là sao nhỉ hay mình không hiểu chỗ này

Tính lùi đó anh ( em đoán vậy)
=SUMIFS($D$6:$D$46,$B$6:$B$46,"<="&I5,$B$6:$B$46,">="&I6,$C$6:$C$46,I7)

If SArr(i, 1) >= S And SArr(i, 1) <= T And SArr(i, 2) = T
End Sub[/CODE]

Em đoán là vầy
If SArr(i, 1) <= S And SArr(i, 1) >= F And SArr(i, 2) = T

 

[snow25]

Tính lùi đó anh ( em đoán vậy)
=SUMIFS($D$6:$D$46,$B$6:$B$46,"<="&I5,$B$6:$B$46,">="&I6,$C$6:$C$46,I7)

Em đoán là vầy
If SArr(i, 1) <= S And SArr(i, 1) >= F And SArr(i, 2) = T

chắc vậy

 

[CHAOQUAY]

Tính lùi đó anh ( em đoán vậy)
=SUMIFS($D$6:$D$46,$B$6:$B$46,"<="&I5,$B$6:$B$46,">="&I6,$C$6:$C$46,I7)

Em đoán là vầy
If SArr(i, 1) <= S And SArr(i, 1) >= F And SArr(i, 2) = T

chắc vậy

Sáng chưa cà phê

 

[minhtuan55]

không hiểu sao từ ngày 24/10 đến ngày 22/10 mà vẫn có kết quả là sao nhỉ hay mình không hiểu chỗ này

Xin lổi mọi người. Mình post dữ liệu bị Nhầm . Mình đã sữa lại bài rồi

Bài đã được tự động gộp: 22/10/18

Tính lùi đó anh ( em đoán vậy)
=SUMIFS($D$6:$D$46,$B$6:$B$46,"<="&I5,$B$6:$B$46,">="&I6,$C$6:$C$46,I7)

Em đoán là vầy
If SArr(i, 1) <= S And SArr(i, 1) >= F And SArr(i, 2) = T

Xin lổi mọi người. Mình post dữ liệu bị Nhầm . Mình đã sữa lại bài rồi