1 2 3 4 5 6 7 | iCommentCount = ActiveSheet . Comments . Count If iCommentCount = 0 Then MsgBox "Примечаний нет" Else MsgBox "Примечаний : " & iCommentCount & " шт." End If |
1 2 3 4 5 6 7 | iCommentCount = ActiveSheet . Comments . Count If iCommentCount = 0 Then MsgBox "Примечаний нет" Else MsgBox "Примечаний : " & iCommentCount & " шт." End If |