Kako šteti / seštevati prečrtane celice v Excelu?
V Excelu vedno prečrtamo nekatere celice, ki označujejo, da so vrednosti celic neuporabne ali neveljavne, tako da lahko podatke natančneje analiziramo. V tem članku bom govoril o tem, kako narediti nekaj izračunov v obsegu s temi prečrtanimi celicami v Excelu.
Štejte prečrtane celice v Excelu
Štejte brez prečrtanih celic v Excelu
Vsota v Excelu izključuje prečrtane celice
Štejte prečrtane celice v Excelu
Če želite vedeti, koliko celic s prečrtano obliko v obsegu lahko ustvarite uporabniško določeno funkcijo, naredite naslednje:
1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: preštejte prečrtane celice
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. Nato shranite in zaprite to kodo ter se vrnite na delovni list in nato vnesite to formulo = CountStrike (A2: B14) v prazno celico si oglejte posnetek zaslona:
4. Nato pritisnite Vnesite in preštete so bile vse prečrtane celice. Oglejte si posnetek zaslona:
Štejte brez prečrtanih celic v Excelu
Včasih boste morda želeli prešteti število običajnih celic, ki ne vključujejo prečrtanih celic. Naslednja koda vam lahko pomaga.
1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: Štetje brez prečrtanih celic
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. Nato shranite in zaprite to kodo, se vrnite na svoj delovni list in vnesite to formulo = countnostrike (A2: B14) v prazno celico in pritisnite Vnesite tipka, potem boste dobili rezultat, ki ga potrebujete.
Opombe: V zgornjih formulah, A2: B14 je obseg, za katerega želite uporabiti formule.
Vsota v Excelu izključuje prečrtane celice
Ker prečrtane celice niso uporabljene, želim tukaj povzeti samo običajna števila brez prečrtanih številk. Za rešitev te naloge potrebujete tudi uporabniško določeno funkcijo.
1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: Vsota izključuje prečrtane celice
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. Nato shranite in zaprite to kodo, se vrnite na svoj delovni list in vnesite to formulo = hitri udarec (B2: B14) v prazno celico in pritisnite Vnesite tipko in dobili boste seštevek vseh števil brez prečrtanih celic. Oglejte si posnetek zaslona:
Opombe: V zgornjih formulah, B2: B14 je obseg, v katerem želite seštevati celice brez prečrtane oblike.
Sorodni članki:
Kako seštevati / šteti krepke številke v obsegu celic v Excelu?
Kako šteti in seštevati celice glede na barvo ozadja v Excelu?
Kako šteti / seštevati celice na podlagi barv pisave v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
