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

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

Ընդհանրապես, Excel- ում = COUNT նորմալ բանաձևը (B3: B16) կհաշվի բոլոր անտեսանելի բջիջների և թաքնված բջիջների քանակը: Բայց այս ձեռնարկում ես կներկայացնեմ մի քանի արագ ձևեր, որոնք կօգնեն ձեզ հաշվել տեսանելի կամ զտված բջիջները միայն Excel- ում:

փաստաթղթերի քանակի տեսանելի 1

Հաշվեք տեսանելի բջիջները միայն օգտագործողի կողմից սահմանված գործառույթով

Հաշվեք միայն տեսանելի բջիջները Kutools for Excel լավ գաղափար 3

նետ կապույտ աջ պղպջակ Հաշվեք տեսանելի բջիջները միայն օգտագործողի կողմից սահմանված գործառույթով

Օգտագործում Օգտագործողի սահմանած գործառույթը հաշվել միայն տեսանելի բջիջները:

1. Մամուլ Alt + F11 ստեղները միաժամանակ, ա Microsoft Visual Basic հավելվածների համար պատուհանը դուրս է գալիս:

2: սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք ներքևում գտնվող VBA կոդի վրա դուրս եկած դուրս Մոդուլներ պատուհան.

VBA. Հաշվեք միայն տեսանելի բջիջները:

Function COUNTVISIBLE(Rg)
'UpdatebyKutoolsforExcel20151208
    Dim xCount As Long
    Dim xCell As Range
    Application.Volatile
    For Each xCell In Rg
        If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) Then
            xCount = xCount + 1
        End If
    Next
    COUNTVISIBLE = xCount
End Function

3. Ապա պահեք կոդը և փակեք այն Մոդուլներ պատուհանը, ապա ընտրեք ելքային արդյունքի բջիջ և մուտքագրեք այս բանաձևը = ԸՆՏԱՆԻՏ (B3: B16), եւ սեղմեք Մտնել արդյունքը ստանալու բանալին: Տեսեք սքրինշոթեր.

փաստաթղթերի քանակի տեսանելի 2
դոկ սլաք
>փաստաթղթերի քանակի տեսանելի 3

նետ կապույտ աջ պղպջակ Հաշվեք միայն տեսանելի բջիջները Kutools for Excel

Միայն տեսանելի բջիջները հաշվելու համար կարող եք նաև օգտագործել Kutools for Excel'S ԸՆՏԱՆԻՐ գործառույթ ՝ այն արագ լուծելու համար:

Kutools for Excel, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 
Անվճար ներբեռնում
անվճար լիարժեք հատկություններով 30 օր

Այն բանից հետո անվճար տեղադրում Kutools for ExcelԽնդրում ենք վարվել ինչպես ստորև ՝

1. Ընտրեք բջիջ, որի մեջ կներդրվի հաշվարկի արդյունքը և կտտացրեք Կուտոլս > Kutools գործառույթները > Վիճակագրական և մաթեմատիկա > ԸՆՏԱՆԻՐ, Տեսեք,

փաստաթղթերի քանակի տեսանելի 4

2. Հետո Գործառույթի փաստարկները երկխոսություն, ընտրեք զտված բջիջները, որոնցում ցանկանում եք հաշվել Մանրամասն տեքստային տուփ, և դուք կարող եք նախադիտել հաշվարկի արդյունքը ցուցադրված է երկխոսության մեջ: Տեսեք,

փաստաթղթերի քանակի տեսանելի 5

3. Եվ հետո կտտացրեք OK հաշվելու արդյունքը դնելու համար ընտրված խցում:

փաստաթղթերի քանակի տեսանելի 6

Kutools for Excel's Ֆունկցիաներ ներառյալ որոշ օգտակար բանաձևեր, ինչպիսիք են միայն հաշվելը / գումարը / միայն տեսանելի բջիջները, հաշվել / գումարը ըստ բջիջների գույնի: հաշվել / գումարել ըստ տառատեսակի գույնի և այլն:Հիմա անվճար փորձություն ստանալու համար:

փաստաթղթերի քանակի տեսանելի 6

Հարաբերական հոդվածներ:

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

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

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

kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (1)
No ratings yet. Be the first to rate!
DIogo
DIogo
This comment was minimized by the moderator on the site
Hi,

I would suggest the add in the code if the person doesn't want to select the range, and it is fixe.

Set xCell = Range("F:F") ' range exemplo in the sheet

And (Not xCell.Value = 0)


The entire code will be like:


Function COUNTVISIBLE(Rg)
'UpdatebyKutoolsforExcel20151208
Dim xCount As Long
Dim xCell As Range
Application.Volatile

Set xCell = Range("F:F") ' range exemplo in the sheet




For Each xCell In Rg
If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) And (Not xCell.Value = 0) Then
xCount = xCount + 1
End If
Next
COUNTVISIBLE = xCount



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