Как определить наличие примечаний в рабочем листе и их количество — Visual Basic(Бейсик)

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

Leave a Comment