Jak liczyć / sumować przekreślone komórki w programie Excel?
W programie Excel zawsze formatujemy przekreślenie dla niektórych komórek, które wskazują, że wartości komórek są bezużyteczne lub nieprawidłowe, abyśmy mogli dokładniej analizować dane. W tym artykule omówię, jak wykonać niektóre obliczenia w zakresie za pomocą tych przekreślonych komórek w programie Excel.
Policz przekreślone komórki w programie Excel
Policz bez przekreślonych komórek w programie Excel
Suma wyklucza przekreślone komórki w programie Excel
Policz przekreślone komórki w programie Excel
Jeśli chcesz wiedzieć, ile komórek z przekreślonym formatem znajduje się w zakresie, możesz utworzyć funkcję zdefiniowaną przez użytkownika, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: Policz przekreślone komórki
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. Następnie zapisz i zamknij ten kod i wróć do arkusza, a następnie wprowadź tę formułę = CountStrike (A2: B14) do pustej komórki, zobacz zrzut ekranu:
4. Następnie naciśnij Wchodzę klucz i policzono wszystkie przekreślone komórki. Zobacz zrzut ekranu:
Policz bez przekreślonych komórek w programie Excel
Ale czasami możesz chcieć policzyć tylko normalne komórki, z wyłączeniem komórek przekreślonych. Poniższy kod może ci pomóc.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: Policz bez przekreślonych komórek
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. Następnie zapisz i zamknij ten kod, wróć do arkusza roboczego, wpisz tę formułę = countnostrike (A2: B14) do pustej komórki i naciśnij Wchodzę kluczem, uzyskasz pożądany wynik.
Note: W powyższych wzorach A2: B14 to zakres, w którym chcesz zastosować formuły.
Suma wyklucza przekreślone komórki w programie Excel
Ponieważ komórki przekreślone są nieużywane, chcę tutaj zsumować tylko zwykłe liczby bez przekreślonych liczb. Aby rozwiązać to zadanie, potrzebujesz również funkcji zdefiniowanej przez użytkownika.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: Suma wyklucza przekreślone komórki
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. Następnie zapisz i zamknij ten kod, wróć do arkusza roboczego, wpisz tę formułę = excstrike (B2: B14) do pustej komórki i naciśnij Wchodzę klucz, a otrzymasz sumę wszystkich liczb bez przekreślonych komórek. Zobacz zrzut ekranu:
Note: W powyższych wzorach B2: B14 to zakres, w którym chcesz zsumować komórki bez przekreślenia.
Podobne artykuły:
Jak sumować / liczyć pogrubione liczby w zakresie komórek w programie Excel?
Jak liczyć i sumować komórki na podstawie koloru tła w programie Excel?
Jak liczyć / sumować komórki na podstawie kolorów czcionek w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!