Dim iComment As Comment
For Each iComment In Worksheets(1).Comments
MsgBox iComment.Parent.Address, , ""
Next
VBAExcel: как получить список всех комментов?
Как получить список всех комментов (примечаний) на листе (точнее, ячеек в которых они находятся), не прибегая к циклу по всем ячейкам?
Создать список, который содержит текст всех комментариев рабочего листа, без использования цикла - нельзя. Но можно перебрать только те ячейки, которые содержат комментарии :
Или получить весь диапазон сразу (но здесь есть свои нюансы) :
Код:
Или получить весь диапазон сразу (но здесь есть свои нюансы) :
Код:
On Error Resume Next
Dim iRange As Range
Set iRange = Worksheets(1).UsedRange.SpecialCells(xlComments)
If Not iRange Is Nothing Then
MsgBox iRange.Address, , ""
Else
MsgBox "Комментарии изволят отсутствовать", , ""
End If
Dim iRange As Range
Set iRange = Worksheets(1).UsedRange.SpecialCells(xlComments)
If Not iRange Is Nothing Then
MsgBox iRange.Address, , ""
Else
MsgBox "Комментарии изволят отсутствовать", , ""
End If
Понял. Большое спасибо!