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?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
