Архив форумов ЦИТФорума

[jackhunter]

Находим comment. Не нравится надо подрихтовать. Как открыть comment для редактирования и по окончании исправления вернутсься для дольнейшего поиска?

[ADAMAS]

[Гость]

Dim i As Byte 'количество ячеек

ThisWorkbook.Sheets(1).Cells(5, 1).AddComment "This is comment..." 'сначала пишим комментарий что бы найти его потом..

'начинаем искать комментарий
On Error Resume Next 'Это главная строка программы...для чего она думаю сам собразишь
For i = 1 To 10
If Err.Number = 0 Then ThisWorkbook.Sheets(1).Cells(i, 1).Comment.Visible = True
If Err.Number <> 0 Then Err.Number = 0
Next i