With Gå til spesielle funksjon i Excel Excel?, Kan du velge alle kommentar cellene først, og deretter vise telletall på statuslinjen.
1. Gå til klikker Home > Finn & Velg > Gå til Special, se skjermbilde:
to. I Go To Special dialogboksen, kan du sjekke Kommentarer alternativ under Velg del, se skjermbilde:
tre. Klikk deretter på OK-knappen for å lukke denne dialogen, og alle cellene i aktive regnearket som inneholder kommentaren har blitt valgt på en gang. Og du kan få greven antall kommentarer på statuslinjen. Se skjermbilde:
Merk: Hvis du har tomme celler med kommentarer, vil de tomme celle kommentarer ikke telles
. Tips: Du kan også trykke Ctrl + G snarveier for å åpne Gå til dialog, og klikk Spesial knappen for å vise Gå til Spesial dialog.
Greve antall celler som inneholder kommentarer med brukerdefinerte funksjonen
over metoden har sin egen ulempe, så kan vi lage en brukerdefinert funksjon for å telle alle celle kommentarer inkludert tomme cellen kommentarer.
en. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Tell antall celler med kommentar
Funksjons CountComments (Xcell As Range) 'Oppdater 20140924 Application.Volatile CountComments = xCell.Parent.Comments.CountEnd Function3 . Lagre og lukke koden, gå tilbake til regnearket, i en tom celle så må du oppgi denne formelen: = countcomments (A1), (A1 er en cellereferanse, kan du endre den til en annen celle-adresse), se skjermbilde: < .no> 4. Deretter trykker Enter-tasten, og du vil få antall celle kommentarer.
Greve antall celler som inneholder kommentarer med VBA-kode
følgende VBA-kode kan også hjelpe deg tocount alle celle kommentarer inkludert tom celle kommentarer.
en. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Tell antall celler med kommentar
Sub CountComments () 'Update 20140924Dim RNG Som RangeDim WorkRng Som RangeOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Sett WorkRng = WorkRng.SpecialCells (xlCellTypeComments) Hvis VBA.Err > 0 Then MsgBox 0Else MsgBox WorkRng.CountEnd IfEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg på å velge et dataområde som du vil telle celle kommentarer. Se skjermbilde:
4. Og deretter klikker du OK, du vil få antall celle kommentarer i utvalget.
følgende VBA-kode kan også hjelpe deg tocount alle celle kommentarer inkludert tom celle kommentarer.
en. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Tell antall celler med kommentar
Sub CountComments () 'Update 20140924Dim RNG Som RangeDim WorkRng Som RangeOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Sett WorkRng = WorkRng.SpecialCells (xlCellTypeComments) Hvis VBA.Err > 0 Then MsgBox 0Else MsgBox WorkRng.CountEnd IfEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg på å velge et dataområde som du vil telle celle kommentarer. Se skjermbilde:
4. Og deretter klikker du OK, du vil få antall celle kommentarer i utvalget.