Không cộng những số bị gạch ngang (2 người xem)

Function SumUnStrikethrough(ByVal RngSum As Range) As Double
  Dim rng As Range
  For Each rng In RngSum
    If IsNumeric(rng) Then
      If rng.Font.Strikethrough = False Then SumUnStrikethrough = SumUnStrikethrough + rng.Value
    End If
  Next
End Function

A1 =SumUnStrikethrough(A2:A4)

trangThaiGach = oCell.Parent.Evaluate("KiemTraGachNgangHienThi(" & _
    oCell.Address( _
        RowAbsolute:=False, _
        ColumnAbsolute:=False, _
        ReferenceStyle:=xlA1) & ")")

Public Function KiemTraGachNgangHienThi(ByVal oCell As Range) As Variant
    KiemTraGachNgangHienThi = oCell.DisplayFormat.Font.Strikethrough
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.CalculateFull
End Sub