Hogyan számolhatjuk / összegezhetjük az áthúzott cellákat az Excelben?
Az Excel programban mindig áthúzott formátumot formázunk egyes cellákra, amelyek azt jelzik, hogy a cellák értékei haszontalanok vagy érvénytelenek, így pontosabban elemezhetjük az adatokat. Ebben a cikkben arról fogok beszélni, hogyan lehet néhány tartományi számítást végezni az Excel ezen áthúzott celláival.
Számolja meg az áthúzott cellákat az Excelben
Számoljon áthúzott cellák nélkül az Excelben
Összeg kizárja az áthúzott cellákat az Excelben
Számolja meg az áthúzott cellákat az Excelben
Ha tudni szeretné, hogy egy cellában hány áthúzott formátumú cella található, létrehozhat egy felhasználó által definiált funkciót, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Számolja át az áthúzott cellákat
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. Ezután mentse el és zárja be ezt a kódot, és térjen vissza a munkalapra, majd írja be ezt a képletet = CountStrike (A2: B14) egy üres cellába, lásd a képernyőképet:
4. Ezután nyomja meg a gombot belép kulcsot, és az összes áthúzott cellát megszámolták. Lásd a képernyőképet:
Számoljon áthúzott cellák nélkül az Excelben
De néha érdemes megszámolni azokat a normál sejteket, amelyek nem tartalmazzák az áthúzott sejteket. A következő kód segíthet.
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Számolás áthúzott cellák nélkül
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. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, írja be ezt a képletet = countnostrike (A2: B14) egy üres cellába, és nyomja meg a gombot belép gombot, akkor megkapja a kívánt eredményt.
Megjegyzések: A fenti képletekben A2: B14 az a tartomány, amelyen a képleteket alkalmazni szeretné.
Összeg kizárja az áthúzott cellákat az Excelben
Mivel az áthúzott cellák nincsenek felhasználva, itt csak a normális számokat szeretném összegezni az áthúzott számok nélkül. A feladat megoldásához szükség van egy felhasználó által definiált funkcióra is.
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Összeg kizárja az áthúzott cellákat
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. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, írja be ezt a képletet = sztrájk (B2: B14) egy üres cellába, és nyomja meg a gombot belép gombot, és megkapja az összes szám összegzését az áthúzott cellák nélkül. Lásd a képernyőképet:
Megjegyzések: A fenti képletekben B2: B14 az a tartomány, amelyben áthúzott formátum nélkül szeretné összegezni a cellákat.
Kapcsolódó cikkek:
Hogyan lehet összegezni / számolni a félkövér számokat az Excel cellatartományában?
Hogyan lehet az Excel háttérszíne alapján megszámolni és összegezni a cellákat?
Hogyan számoljuk meg / összegezzük a cellákat az Excel betűszínei alapján?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!