Jak počítat / sčítat přeškrtnuté buňky v aplikaci Excel?
V aplikaci Excel vždy naformátujeme přeškrtnutí pro některé buňky, které označují, že hodnoty buněk jsou zbytečné nebo neplatné, abychom mohli přesněji analyzovat data. V tomto článku budu hovořit o tom, jak provést některé výpočty v rozsahu s těmito přeškrtnutými buňkami v aplikaci Excel.
Počítejte přeškrtnuté buňky v aplikaci Excel
Počítejte bez přeškrtnutých buněk v aplikaci Excel
Součet vylučuje přeškrtnuté buňky v aplikaci Excel
Počítejte přeškrtnuté buňky v aplikaci Excel
Pokud chcete vědět, kolik buněk s přeškrtnutým formátem v rozsahu, můžete vytvořit funkci definovanou uživatelem, proveďte následující kroky:
1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Počet přeškrtnutých buněk
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. Poté uložte a zavřete tento kód, vraťte se do listu a zadejte tento vzorec = CountStrike (A2: B14) do prázdné buňky, viz screenshot:
4. Poté stiskněte vstoupit klíč a všechny přeškrtnuté buňky byly spočítány. Viz snímek obrazovky:
Počítejte bez přeškrtnutých buněk v aplikaci Excel
Někdy ale možná budete chtít spočítat počet pouze normálních buněk, které vylučují přeškrtnuté buňky. Následující kód vám může pomoci.
1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Počet bez přeškrtnutých buněk
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. Poté tento kód uložte a zavřete, vraťte se do svého listu, zadejte tento vzorec = countnostrike (A2: B14) do prázdné buňky a stiskněte vstoupit klíč, pak získáte požadovaný výsledek.
Poznámka: Ve výše uvedených vzorcích, A2: B14 je rozsah, ve kterém chcete použít vzorce.
Součet vylučuje přeškrtnuté buňky v aplikaci Excel
Protože přeškrtnuté buňky nejsou použity, chci zde shrnout pouze normální čísla bez přeškrtnutých čísel. K vyřešení tohoto úkolu potřebujete také funkci definovanou uživatelem.
1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Součet vylučuje přeškrtnuté buňky
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. Poté tento kód uložte a zavřete, vraťte se do svého listu, zadejte tento vzorec = rozruch (B2: B14) do prázdné buňky a stiskněte vstoupit klíč, a získáte součet všech čísel bez přeškrtnutých buněk. Viz snímek obrazovky:
Poznámka: Ve výše uvedených vzorcích, B2: B14 je rozsah, ve kterém chcete sečíst buňky bez přeškrtnutého formátu.
Související články:
Jak sčítat / počítat tučná čísla v řadě buněk v aplikaci Excel?
Jak počítat a sečíst buňky na základě barvy pozadí v aplikaci Excel?
Jak počítat / sčítat buňky na základě barev písma v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!