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

[LienDong]

Em có bài toán như hình
trong đó có số 300 bị gạch ngang, em không muốn cộng số này vào
Kết quả mong muốn là 1.000
Nhờ mong anh/chị và các bạn giúp đở (cách nào cũng được) Em cảm ơn

 

[HieuCD]

Em có bài toán như hình
trong đó có số 300 bị gạch ngang, em không muốn cộng số này vào
Kết quả mong muốn là 1.000
Nhờ mong anh/chị và các bạn giúp đở (cách nào cũng được) Em cảm ơn
View attachment 311966

Dùng hàm tự tạo loại trừ giá trị format font gạch ngang

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

Công thức ngoài sheet

A1 =SumUnStrikethrough(A2:A4)

 

[DeTong]

hàm tự tạo

Xin vui lòng giải thích kết quả này ?!

 

[vanle33]

@DeTong : Làm theo hướng dẫn ở #2. Chẻn code rồi dùng công thức như ảnh dưới. --> ra kết quả đúng
Khi định dạng để tạo 1 số có gạch ngang thì cần nháy kép vào công thức sum mới tạo rồi nhấn Enter

 

[ongke0711]

- Nếu tạo dấu gạch ngang bằng Conditional Formatting thì hàm sẽ không chạy.
- Muốn áp dụng được cho trường hợp dùng CF thì thêm DisplayFormat. Nhưng hàm này cũng chỉ chạy được khi gọi Macro thôi, gọi trực tiếp trong sheet cũng chạy không được.
rng.DisplayFormat.Font.Strikethrough = False

 

[befaint]

Dùng xlRangeValueXMLSpreadsheet = 11 là được.

Hoặc thế này cũng xong.

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

 

[ptm0412]

Xin vui lòng giải thích kết quả này ?!

Tôi có làm thử thì ban đầu mới gõ xong công thức thì đúng. Thử với 1 vùng rộng hơn trong đó có 1 số ô trống thì vẫn đúng.



Khi điền thêm số vẫn còn đúng. Nhưng định dạng gạch ngang cho số mới thì sẽ không còn đúng. Nhấn F9 không tính lại mà phải nhấn F2 và enter.
Gỡ gạch ngang 1 số cũng không tính lại.



Tạm kết luận: Hàm không tự tính lại khi thay đổi định dạng.

Nhấn F9 cũng không. Tuy nhiên khi thêm câu lệnh

Application.Volatile True

Thì nhấn F9 có tính lại.

 

[DeTong]

Nhấn F9 cũng không

Vậy thêm sự kiện tại sheet chứa công thức ...

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

 

[ptm0412]

Vậy thêm sự kiện tại sheet chứa công thức ... (SelectionChange)

Tôi thì kỵ cái sự kiện này, nếu có ràng buộc giới hạn Range còn đỡ, còn không thì treo máy là có khả năng cao.