Как да преброя броя на клетките с коментари в Excel?
Опитвали ли сте някога да преброите броя на коментарите в работен лист? В тази статия ще ви представя някои бързи трикове за преброяване на броя клетки с коментари в един работен лист.
Пребройте броя на клетките, съдържащи коментари, с функцията Go To Special
Пребройте броя на клетките, съдържащи коментари с дефинирана от потребителя функция
Пребройте броя на клетките, съдържащи коментари с VBA код
Пребройте броя на клетките, съдържащи коментари, с функцията Go To Special
С Отидете на Special функция в Excel, можете първо да изберете всички клетки за коментари и след това да видите броя на броя в лентата на състоянието.
1. Отидете на щракване Начало > Търсене и избор > Отидете на Special, вижте екранна снимка:
2. В Отидете на Special диалогов прозорец, моля, проверете Коментари опция под Изберете раздел, вижте екранна снимка:
3. След това кликнете OK за затваряне на този диалогов прозорец и всички клетки в активния работен лист, които съдържат коментара, са избрани наведнъж. И можете да получите броя на коментарите в лентата на състоянието. Вижте екранна снимка:
Забележка: Ако имате празни клетки с коментари, коментарите в празните клетки няма да бъдат отчетени.
Съвет: Можете също така да натиснете Ctrl + G преки пътища за отваряне Отидете в диалогов прозорец и щракнете Специален бутон за показване Отидете на Special диалогов прозорец.
Пребройте броя на клетките, съдържащи коментари с дефинирана от потребителя функция
Горният метод има свой собствен недостатък, така че можем да създадем дефинирана от потребителя функция за преброяване на всички коментари в клетките, включително празните коментари в клетките.
1. Задръжте натиснат ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.
2. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: Преброяване на броя клетки с коментар
Function CountComments(xCell As Range)
'Update 20140924
Application.Volatile
CountComments = xCell.Parent.Comments.Count
End Function
3. След това запазете и затворете кода, върнете се в работния лист, в празна клетка, моля, въведете тази формула: =брой коментари(A1), (A1 е препратка към клетка, можете да я промените на всеки друг адрес на клетка), вижте екранната снимка:
4. След това натиснете Въведете и ще получите броя на коментарите в клетката.
Пребройте броя на клетките, съдържащи коментари с VBA код
Следният VBA код също може да ви помогне да преброите всички коментари в клетките, включително коментарите в празните клетки.
1. Задръжте натиснат ALT + F11 ключове и отваря Прозорец на Microsoft Visual Basic за приложения.
2. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: Преброяване на броя клетки с коментар
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. След това натиснете F5 за да изпълните този код и ще изскочи поле за подкана, за да ви напомни да изберете диапазон от данни, в който искате да преброите коментарите в клетките. Вижте екранна снимка:
4. И после щракнете върху OK, ще получите броя на коментарите в клетката в селекцията.
Още по темата:
Как да изброя всички коментари към нов работен лист или работна книга в Excel?
Как да намерите и замените текст в коментари в Excel?
Как бързо да вмъкнете коментар в множество клетки в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!