mình muốn hỏi sửa code thế nào để kết quả làm tròn được 4 chữ số sau dấu phẩy, cảm ơn anh chị nhiều!

[vanmanhcdcd4]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim expression0 As String, expression As String, result As Double
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C6:C65500")) Is Nothing Then
If InStr(Target, "=") > 0 Then
expression0 = " " & Trim(Split(Target.Value, "=")(0))
Else
expression0 = " " & Trim(Target.Value)
End If
If InStr(expression0, ":") > 0 Then
expression = Trim(Split(expression0, ":")(1))
Else
expression = Trim(expression0)
End If
expression = Replace(expression, ",", ".")
Application.EnableEvents = False
On Error GoTo end_
result = Evaluate(expression)
Target.Value = expression0 & " = " & FormatWithComma(result)
With Target.Characters(InStr(Target, "=") + 1).Font
.FontStyle = "Regular"
.ColorIndex = 5
End With
End If
end_:
Application.EnableEvents = True
End Sub