Hàm tính chuỗi số trong 1 ô hoặc 1 dãy ô ra tổng kết quả. (3 người xem)

[NGHIAAA]

Sub TinhTong()
Dim i As Integer
Dim J As Integer
Dim SL As Integer
Dim SoHang As Integer
SoHang = cells(Rows.Count, "E").End(xlUp).Row
J = 186
SL = 1
For i = 186 To SoHang
If Range("C" & i).Value = "ML" Then
If SL > 0 Then
Range("Q" & J).FormulaR1C1 = "=sum(R[1]c:R[" & SL & "]c)"
Range("Q" & J).Font.Bold = True
Else
If Range("I" & i).Value <> "" Then
Range("Q" & i).FormulaR1C1 = "=MValue(RC[-7]:RC[-4])-Mvalue(RC[-3])"
Range("Q" & J).Font.Bold = True
Else
Range("Q" & J) = ""
End If
End If
J = i
SL = 0
Else
Range("Q" & i).FormulaR1C1 = "=MValue(RC[-7]:RC[-4])-Mvalue(RC[-3])"
SL = SL + 1
End If
Next i
End Sub
Em nhờ các bác chút, em có 1 hàm tính tổng các chuỗi số trong ô ra con số tổng, tuy nhiên hàm lại mặc định là những ô công thức hay dữ liệu sai kết quả trả lại bằng 0, các bác có thể sửa giúp em khi sai dữ liệu kết quả trả lại là ERROR, để em có thể check lại những ô add dữ liệu sai với ạ. em cám ơn.

 

[ngocbaovu]

Không hiểu các bạn nghĩ gì khi đi hỏi kiểu trời ơi thế này nữa. Cái Mvalue quan trọng nhất thì không có nội dung. File chắc toàn nội dung bảo mật.