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