Přejít k hlavnímu obsahu

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


šipka modrá pravá bublina 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:

doc-count-strike-1

4. Poté stiskněte vstoupit klíč a všechny přeškrtnuté buňky byly spočítány. Viz snímek obrazovky:

doc-count-strike-1


šipka modrá pravá bublina 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.

doc-count-strike-1

Poznámka: Ve výše uvedených vzorcích, A2: B14 je rozsah, ve kterém chcete použít vzorce.


šipka modrá pravá bublina 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:

doc-count-strike-1

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

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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...

Popis


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!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I want to ignore the cell from count where both type of text strike and non strike available by VBA
This comment was minimized by the moderator on the site
Great! I found a little bug here. The result doesn't actualize by itself. When I do changes on the sheet, the number doesn't changes. How can I fix it? Thanks
This comment was minimized by the moderator on the site
Hi. Great code for ignoring strikethrough text whilst summing. But, is it possible to filter the data and get a subtotal which still sums without the strike through text? Thanks
This comment was minimized by the moderator on the site
This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?
This comment was minimized by the moderator on the site
[quote]This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?By Ari[/quote] ARI, just change the two words "Long" to "Double" in the formula. Here is the same formula above, with the correct Data Types to allow for values with decimal points: Public Function ExcStrike(pWorkRng As Range) As Double 'Update 20161107_IITCSglobal.com Application.Volatile Dim pRng As Range Dim xOut As Double xOut = 0 For Each pRng In pWorkRng If Not pRng.Font.Strikethrough Then xOut = xOut + pRng.Value End If Next ExcStrike = xOut End Function
This comment was minimized by the moderator on the site
Thank you very much for this information, it's extremely helpful, However, I'm having an issue using the VBA code: Sum exclude strikethrough cells.

It does not exclude the strikethrough cells in my table unless I manually perform a strikethrough then double click the cell for the code to work.

I'm using a table with a conditional format to shade and strikethrough the entire row when (Table Header called Sold) Column "W" cell contains a "Yes", then that row will have a strikethrough and grey color. The worksheet table is "InventoryItems" and is configured to calculated automatically, but the code is not being triggered to exclude the dollar amount when the cell contains the strikethrough. Could you advise what I might be doing wrong?
Thank you for your time and help.

There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations