Hàm UDF Sum này sai ở đâu?

[Tường_Vi]

Em loay hoay hàm SUm này nhưng không ra kết quả
Hình như nó không chịu chạy theo vòng lặp thì phải

Function SumAll(RngCur As Range, dk1, RngDate As Range, dk2) As Long ' 
Dim i As Long
For i = 1 To RngCur.Rows.Count    
  If RngCur(i, 1) = dk1 And RngDate(i, 1) = dk2 
  Then
     SumAll = Application.WorksheetFunction.Sum(RngCur.Offset(, -1).Cells(i, 1))        
     SumAll = SumAll       
  End If 
Next

End Function

 

[ndu96081631]

Em loay hoay hàm SUm này nhưng không ra kết quả
Hình như nó không chịu chạy theo vòng lặp thì phải

Function SumAll(RngCur As Range, dk1, RngDate As Range, dk2) As Long ' 
Dim i As Long
For i = 1 To RngCur.Rows.Count    
  If RngCur(i, 1) = dk1 And RngDate(i, 1) = dk2 
  Then
     SumAll = Application.WorksheetFunction.Sum(RngCur.Offset(, -1).Cells(i, 1))        
     SumAll = SumAll       
  End If 
Next

End Function

Không có file nên khó đoán... Tuy nhiên có thể gợi ý chút

For i = 1 To RngCur.Rows.Count    
  If RngCur(i, 1) = dk1 And RngDate(i, 1) = dk2 
  Then
     SumAll = SumAll +RngCur.Offset(, -1)
  End If 
Next

Đạt được điều kiện rồi thì phải cộng dồn mới ra kết quả chứ

 

[tintam7251]

Em loay hoay hàm SUm này nhưng không ra kết quả
Hình như nó không chịu chạy theo vòng lặp thì phải

Function SumAll(RngCur As Range, dk1, RngDate As Range, dk2) As Long ' 
Dim i As Long
For i = 1 To RngCur.Rows.Count    
  If RngCur(i, 1) = dk1 And RngDate(i, 1) = dk2 
  Then
     SumAll = Application.WorksheetFunction.Sum(RngCur.Offset(, -1).Cells(i, 1))        
     SumAll = SumAll       
  End If 
Next
End Function

Sai ở câu này:

 SumAll = Application.WorksheetFunction.Sum(RngCur.Offset(, -1).Cells(i, 1))

Mình tạm sửa như sau:

Function SumAll(RngCur As Range, dk1, RngDate As Range, dk2) As Long
Dim i As Long
For i = 1 To RngCur.Rows.Count
  If RngCur(i, 1) = dk1 And RngDate(i, 1) = dk2 Then
      SumAll = SumAll + RngCur(i, 1).Offset(, 1)
   End If
Next
End Function

 

[Tường_Vi]

Em đã hiểu và làm được rồi
Vấn đề ở chỗ này

 SumAll = SumAll + RngCur(i, 1).Offset(, 1)