Cum se numără / se sumează celulele tăiate în Excel?

În Excel, formatăm întotdeauna strikethrough pentru unele celule care indică că valorile celulei sunt inutile sau nevalide, astfel încât să putem analiza datele mai precis. În acest articol, voi vorbi despre cum să faceți câteva calcule în intervalul cu aceste celule strikethrough în Excel.

Numărați celulele tăiate în Excel

Numărați fără celule strikethrough în Excel

Suma exclude celulele strikethrough în Excel

Numărați celulele tăiate în Excel

Dacă doriți să știți câte celule cu format strikethrough într-un interval, puteți crea o funcție definită de utilizator, vă rugăm să efectuați următorii pași:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: Numărați celulele strikethrough

Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountStrike = xOut
End Function

3. Apoi salvați și închideți acest cod și reveniți la foaia de lucru, apoi introduceți această formulă = CountStrike (A2: B14) la o celulă goală, vezi captura de ecran:

4. Apoi apăsați Intrați cheie și toate celulele strikethrough au fost numărate. Vedeți captura de ecran:

Numărați fără celule strikethrough în Excel

Dar, uneori, s-ar putea să vă placă să numărați numai numărul de celule normale care exclude celulele tăiate. Următorul cod vă poate ajuta.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: Numărați fără celule tăiate

Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountNoStrike = xOut
End Function

3. Apoi salvați și închideți acest cod, reveniți la foaia de lucru, tastați această formulă = countnostrike (A2: B14) într-o celulă goală și apăsați Intrați cheie, atunci veți obține rezultatul de care aveți nevoie.

notițe: În formulele de mai sus, A2: B14 este intervalul pe care doriți să aplicați formulele.

Suma exclude celulele strikethrough în Excel

Deoarece celulele strikethrough sunt neutilizate, aici, vreau să rezum numai numerele normale fără numerele strikethrough. Pentru a rezolva această sarcină, aveți nevoie și de o funcție definită de utilizator.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: suma exclude celulele strikethrough

Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + pRng.Value
    End If
Next
ExcStrike = xOut
End Function

3. Apoi salvați și închideți acest cod, reveniți la foaia de lucru, tastați această formulă = excstrike (B2: B14) într-o celulă goală și apăsați Intrați tasta, și veți obține însumarea tuturor numerelor fără celulele tăiate. Vedeți captura de ecran:

notițe: În formulele de mai sus, B2: B14 este intervalul în care doriți să însumați celulele fără format în linie.

Legate de articole:

Cum să sumați / să numărați numere aldine într-o gamă de celule din Excel?

Cum se numără și se sumează celulele pe baza culorii de fundal în Excel?

Cum se numără / se sumează celulele pe baza culorilor fontului în Excel?