Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս հաշվել / գումարել Excel- ում տողանցքի բջիջները:

Excel- ում մենք միշտ ձևաչափում ենք որոշ բջիջների շեղումը, որոնք ցույց են տալիս, որ բջիջների արժեքներն անօգուտ են կամ անվավեր, որպեսզի կարողանանք ավելի ճշգրիտ վերլուծել տվյալները: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես պետք է կատարել որոշ հաշվարկներ միջակայքում ՝ Excel- ի այս գծային բջիջների միջոցով:

Հաշվեք Excel- ում տողային վանդակները

Հաշվեք Excel- ում առանց գծերի բջիջների

Գումարը բացառում է Excel- ում տրոհվող բջիջները


նետ կապույտ աջ պղպջակ Հաշվեք Excel- ում տողային վանդակները

Եթե ​​ցանկանում եք իմանալ, թե քանի բջիջ է գծի ներթափանցման ձևաչափով, կարող եք ստեղծել օգտագործողի կողմից սահմանված գործառույթ, կատարեք հետևյալ քայլերը.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Հաշվեք բջիջների ներթափանցումը

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, Ապա պահեք և փակեք այս կոդը, և վերադառնաք աշխատանքային թերթ, ապա մուտքագրեք այս բանաձևը = CountStrike (A2: B14) դեպի դատարկ բջիջ, տես նկարի նկարը.

doc-count-strike-1

4. Դրանից հետո սեղմեք Մտնել բանալին, և բոլոր գծային բջիջները հաշվել են: Տեսեք,

doc-count-strike-1


նետ կապույտ աջ պղպջակ Հաշվեք Excel- ում առանց գծերի բջիջների

Բայց երբեմն գուցե ցանկանաք հաշվել միայն այն նորմալ բջիջների քանակը, որոնք բացառում են ներթափանցող բջիջները: Հետևյալ կոդը կարող է օգնել ձեզ:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Հաշվեք առանց գծային բջիջների

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, Դրանից հետո պահեք և փակեք այս կոդը, վերադառնաք ձեր աշխատանքային թերթին, մուտքագրեք այս բանաձևը = countnostrike (A2: B14) դատարկ խցիկի մեջ և սեղմել Մտնել բանալին, ապա կստանաք ձեզ անհրաժեշտ արդյունքը:

doc-count-strike-1

ՆշումՎերը նշված բանաձևերում, A2: B14 այն միջակայքն է, որը ցանկանում եք կիրառել բանաձևերը:


նետ կապույտ աջ պղպջակ Գումարը բացառում է Excel- ում տրոհվող բջիջները

Քանի որ գծի ներխուժման բջիջները չօգտագործված են, այստեղ ես ուզում եմ ամփոփել միայն նորմալ թվերը ՝ առանց ներթափանցման համարների: Այս խնդիրը լուծելու համար անհրաժեշտ է նաև օգտագործողի կողմից սահմանված գործառույթ:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Գումարը բացառում է գծերի բջիջները

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, Դրանից հետո պահեք և փակեք այս կոդը, վերադառնաք ձեր աշխատանքային թերթին, մուտքագրեք այս բանաձևը = բացառիկ հարված (B2: B14) դատարկ խցիկի մեջ և սեղմել Մտնել ստեղնը, և դուք կստանաք բոլոր թվերի հանրագումարը ՝ առանց ներթափանցման բջիջների: Տեսեք,

doc-count-strike-1

ՆշումՎերը նշված բանաձևերում, B2: B14 այն ընդգրկույթն է, որում ցանկանում եք գումարել բջիջները առանց ներխուժման ձևաչափի:


Առնչվող հոդվածներ քանակը:

Ինչպե՞ս Excel- ում մի շարք բջիջներում ամփոփել / հաշվել համարձակ թվերը:

Ինչպե՞ս Excel- ում ֆոնի գույնի հիման վրա հաշվել և գումարել բջիջները:

Ինչպե՞ս Excel- ում տառատեսակի գույների հիման վրա հաշվել / գումարել բջիջները:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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