Как бързо да вмъкнете коментар в множество клетки в Excel?
В работен лист вмъкването на коментар в клетка е много лесно, но когато искате да вмъкнете един и същ коментар в няколко клетки едновременно, как бихте могли да го направите?
Вмъкнете коментар в множество клетки с функцията за специално поставяне
Вмъкнете коментар в няколко клетки с VBA код
Вмъкнете коментар в множество клетки с функцията за специално поставяне
В Excel няма начин да вмъкнете няколко коментара едновременно. Можете обаче да копирате коментар в няколко клетки, както следва:
1. Вмъкнете коментара си в клетка.
2. Изберете клетката за коментар и натиснете Ctrl + C ключове за копиране.
3. След това изберете и щракнете с десния бутон върху диапазона, който искате да групово вмъкнете коментар, изберете Специално поставяне > Специално поставяне от менюто с десен бутон. Вижте екранна снимка:
4. В Специално поставяне диалоговия прозорец, проверете Коментари опция и след това щракнете върху OK бутон. Вижте екранна снимка:
След това същите коментари се вмъкват веднага във всички избрани клетки.
Забележка: Този метод ще вмъкне едни и същи коментари във всички избрани клетки. Ако искате да вмъкнете едни и същи коментари само във видими клетки от филтриран списък, моля, опитайте метода на VBA по-долу.
Вмъкнете коментар в няколко клетки с VBA код
Да предположим, че имате филтриран списък, както е показано на екранната снимка по-долу. И вие просто искате групово да добавите коментари към всички видими клетки. Моля, направете следното.
1. Натисни Друг + F11 ключове заедно, за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Mocrosoft Visual Basic за приложения прозорец, моля щракнете Поставете > Модулии въведете следния код в модула:
VBA: Партиден инертен коментар към множество клетки (видими клетки само във филтриран списък)
Sub InsertCommentsSelection()
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xText As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 1 Then
Set xRg = xRg.SpecialCells(xlCellTypeVisible)
End If
xRg.Select
xText = InputBox("Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection: ", "Kutools For Excel")
If xText = "" Then
MsgBox "No comment added", vbInformation, "Kutools For Excel"
Exit Sub
End If
For Each xRgEach In xRg
With xRgEach
.ClearComments
.AddComment
.Comment.Text Text:=xText
End With
Next xRgEach
End Sub3. Натисни F5 ключ за изпълнение на кода. При първото изскачане Kutools за Excel диалогов прозорец, моля, изберете филтрирания диапазон, към който искате да добавите коментари, и след това щракнете върху OK бутон. Вижте екранна снимка:
4. След това още един Kutools за Excel се появи диалогов прозорец, моля, въведете вашия коментар в текстовото поле и след това щракнете върху OK бутон.
Сега коментарите се вмъкват във всички видими клетки само в избрания филтриран списък, както е показано на екранната снимка по-долу:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
