Як підрахувати / підсумувати закреслені клітинки в Excel?
В Excel ми завжди форматуємо закреслення для деяких комірок, які вказують на те, що значення комірок марні або недійсні, щоб ми могли точніше аналізувати дані. У цій статті я розповім про те, як зробити деякі обчислення в діапазоні за допомогою цих закреслених комірок у Excel.
Підрахуйте закреслені клітинки в Excel
Підрахувати без закреслення комірок у Excel
Сума виключає закреслені клітинки в Excel
Підрахуйте закреслені клітинки в Excel
Якщо ви хочете дізнатися, скільки комірок із форматом закреслення в діапазоні, ви можете створити функцію, визначену користувачем, виконайте такі дії:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код VBA: підрахування закреслених комірок
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. Потім збережіть і закрийте цей код і поверніться до робочого аркуша, а потім введіть цю формулу = CountStrike (A2: B14) до порожньої комірки, див. знімок екрана:
4. Потім натисніть Що натомість? Створіть віртуальну версію себе у ключ, і всі клітини закреслення були підраховані. Дивіться знімок екрана:
Підрахувати без закреслення комірок у Excel
Але, іноді, вам може сподобатися підрахувати кількість лише нормальних клітин, які виключають клітини, що прокреслюються. Наступний код може вам допомогти.
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код VBA: підрахувати без закреслення комірок
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. Потім збережіть і закрийте цей код, поверніться до робочого аркуша, введіть цю формулу = countnostrike (A2: B14) у порожню клітинку та натисніть Що натомість? Створіть віртуальну версію себе у ключ, тоді ви отримаєте потрібний результат.
примітки: У наведених вище формулах, A2: B14 - діапазон, до якого потрібно застосувати формули.
Сума виключає закреслені клітинки в Excel
Оскільки клітини закреслення не використовуються, тут я хочу підсумувати лише звичайні числа без номерів закреслення. Для вирішення цього завдання вам також потрібна визначена користувачем функція.
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код VBA: Сума виключає закреслення комірок
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. Потім збережіть і закрийте цей код, поверніться до робочого аркуша, введіть цю формулу = ударний удар (B2: B14) у порожню клітинку та натисніть Що натомість? Створіть віртуальну версію себе у , і ви отримаєте підсумовування всіх чисел без комірок. Дивіться знімок екрана:
примітки: У наведених вище формулах, B2: B14 - діапазон, в якому потрібно підсумувати клітинки без формату закреслення.
Статті по темі:
Як підсумувати / підрахувати жирні цифри в діапазоні комірок у Excel?
Як підрахувати та підсумувати клітинки на основі кольору тла в Excel?
Як підрахувати / підсумувати комірки на основі кольорів шрифту в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
