Страницы: 1
RSS
Наличие комментария у ячейки
 
А не подскажите как проверить факт наличия комментария у ячейки на уровне VBA?
 
Как-то заморочено, но работает:  
Sub qqq()  
Dim iComment As Comment  
Set iComment = ActiveCell.Comment  
If Not iComment Is Nothing Then MsgBox "Есть комментарий"  
End Sub
 
Я же говорил, что заморочено :-)  
Sub www()  
If Not ActiveCell.Comment Is Nothing Then MsgBox "Есть"  
End Sub
 
спасибо большое
Страницы: 1
Читают тему
Наверх