If Excel Vil du vite hvor mange celler med gjennomstreking format i et område, kan du opprette en brukerdefinert funksjon, kan du gjøre som følgende fremgangsmåte:
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Count gjennomstreking celler
Public Function CountStrike (pWorkRng As Range) Som Long'Update 20140819Application.VolatileDim PRNG Som RangeDim xOut Som LongxOut = 0 ° C i hvert PRNG I pWorkRng Hvis pRng.Font.Strikethrough Så xOut = xOut + 1 End IfNextCountStrike = xOutEnd Function3. Deretter lagre og lukke denne koden, og gå tilbake til regnearket, og deretter gå inn i denne formelen = CountStrike (A2: B14) til en tom celle, se skjermbilde:
4. Deretter trykker Enter, og alle gjennomstreking cellene er blitt talt. Se skjermbilde:
Count uten gjennomstreking celler i Excel
Men noen ganger, kan det hende du liker å telle antall kun de normale celler som unntatt gjennomstreking celler. Følgende kode kan hjelpe deg.
En. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Count uten gjennomstreking celler
Public Function CountNoStrike (pWorkRng As Range) Som Long'Update 20140819Application.VolatileDim PRNG Som RangeDim xOut Som LongxOut = 0 ° C i hvert PRNG I pWorkRng Hvis ikke pRng.Font.Strikethrough Så xOut = xOut + 1 End IfNextCountNoStrike = xOutEnd Function3. Deretter lagre og lukke denne koden, kan du gå tilbake til regnearket, skriver denne formelen = countnostrike (A2: B14) inn i en tom celle, og trykk på Enter-tasten, da vil du få det resultatet du trenger
. Merk: I ovennevnte formler, A2: B14 er det området du ønsker å bruke formlene
Sum utelukke gjennomstreking celler i Excel
Fordi gjennomstreking cellene er ubrukt, her vil jeg oppsummere bare de vanlige tallene uten. Gjennomstrek tall. For å løse denne oppgaven, trenger du også en brukerdefinert funksjon.
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Sum utelukke gjennomstreking celler
Public Function ExcStrike (pWorkRng As Range) Som Long'Update 20140819Application.VolatileDim PRNG Som RangeDim xOut Som LongxOut = 0 ° C i hvert PRNG I pWorkRng Hvis ikke pRng.Font.Strikethrough Så xOut = xOut + pRng.Value End IfNextExcStrike = xOutEnd Function3. Deretter lagre og lukke denne koden, kan du gå tilbake til regnearket, skriver denne formelen = excstrike (B2: B14) inn i en tom celle, og trykk på Enter-tasten, og du vil få summering av alle tallene uten gjennomstreking celler. Se skjermbilde:
Merk: I ovennevnte formler, B2: B14 er det området du ønsker å summere celler uten gjennomstreking format i
.
Fordi gjennomstreking cellene er ubrukt, her vil jeg oppsummere bare de vanlige tallene uten. Gjennomstrek tall. For å løse denne oppgaven, trenger du også en brukerdefinert funksjon.
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Sum utelukke gjennomstreking celler
Public Function ExcStrike (pWorkRng As Range) Som Long'Update 20140819Application.VolatileDim PRNG Som RangeDim xOut Som LongxOut = 0 ° C i hvert PRNG I pWorkRng Hvis ikke pRng.Font.Strikethrough Så xOut = xOut + pRng.Value End IfNextExcStrike = xOutEnd Function3. Deretter lagre og lukke denne koden, kan du gå tilbake til regnearket, skriver denne formelen = excstrike (B2: B14) inn i en tom celle, og trykk på Enter-tasten, og du vil få summering av alle tallene uten gjennomstreking celler. Se skjermbilde:
Merk: I ovennevnte formler, B2: B14 er det området du ønsker å summere celler uten gjennomstreking format i
.