Hogyan lehet megszámolni az Excel-ben megjegyzésekkel ellátott cellák számát?
Megpróbálta már megszámolni a munkalapon szereplő megjegyzések számát? Ebben a cikkben néhány gyors trükköt mutatok be, hogy megszámlálhassa, hány cellában vannak megjegyzések egy munkalapon.
Számolja meg azokat a cellákat, amelyek megjegyzéseket tartalmaznak a Speciális funkcióval
Számolja meg a Felhasználó által definiált funkcióval megjegyzéseket tartalmazó cellák számát
Számolja meg a VBA kóddal ellátott megjegyzéseket tartalmazó cellák számát
Számolja meg azokat a cellákat, amelyek megjegyzéseket tartalmaznak a Speciális funkcióval
Aktivitáskövető Ugrás a különlegességre Az Excel szolgáltatásban először kiválaszthatja az összes megjegyzés cellát, majd megtekintheti a számlálás számát az állapotsorban.
1. Kattintson a gombra Kezdőlap > Keresés és kiválasztás > Ugrás a különlegességre, lásd a képernyőképet:
2. Az Ugrás a különlegességre párbeszédpanelt, kérjük, ellenőrizze Hozzászólások opció alatt választ szakasz, lásd a képernyőképet:
3. Ezután kattintson OK gombra kattintva bezárhatja ezt a párbeszédpanelt, és az aktív munkalap összes cellája, amely tartalmazza a megjegyzést, egyszerre lett kijelölve. És megkaphatja a megjegyzésszámot az állapotsoron. Lásd a képernyőképet:
Jegyzet: Ha üres cellái vannak megjegyzésekkel, akkor az üres cellával kapcsolatos megjegyzéseket nem számoljuk.
Tipp: Ön is megnyomhatja Ctrl+G parancsikonok megnyitáshoz Go To kattintson a gombra Különleges gombot a megjelenítéshez Ugrás a különlegességre párbeszéd.
Számolja meg a Felhasználó által definiált funkcióval megjegyzéseket tartalmazó cellák számát
A fenti módszernek megvan a maga hátránya, ezért létrehozhatunk egy Felhasználó által definiált függvényt az összes cellamegjegyzés megszámlálására, beleértve az üres cellakommenteket is.
1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a 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 meg a megjegyzéssel ellátott cellák számát
Function CountComments(xCell As Range)
'Update 20140924
Application.Volatile
CountComments = xCell.Parent.Comments.Count
End Function
3. Ezután mentse el és zárja be a kódot, menjen vissza a munkalapra, egy üres cellába írja be ezt a képletet: = visszaszámlálás (A1), (A1 egy cellahivatkozás, megváltoztathatja más cellacímre), lásd a képernyőképet:
4. Ezután nyomja meg a gombot belép gombot, és megkapja a cella megjegyzések számát.
Számolja meg a VBA kóddal ellátott megjegyzéseket tartalmazó cellák számát
A következő VBA-kód segíthet az összes cellamegjegyzés megszámlálásában, beleértve az üres cellamegjegyzéseket is.
1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a 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 meg a megjegyzéssel ellátott cellák számát
Sub CountComments()
'Update 20140924
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
If VBA.Err > 0 Then
MsgBox 0
Else
MsgBox WorkRng.Count
End If
End Sub
3. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy válasszon ki egy adattartományt, amelybe meg szeretné számolni a cella megjegyzéseket. Lásd a képernyőképet:
4. Kattintson a gombra OK, akkor megkapja a cella megjegyzések számát a kiválasztásban.
Kapcsolódó cikkek:
Hogyan lehet felsorolni az összes megjegyzés egy új munkalapra vagy munkafüzetre az Excelben?
Hogyan lehet megkeresni és kicserélni a szöveget az Excel megjegyzései között?
Hogyan lehet gyorsan beszúrni egy megjegyzést az Excel több cellájába?
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!