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 Főoldal > 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?