Dim xComm As Comment
Set xComm = Range("A1").Comment
If xComm Is Nothing Then
MsgBox "Нет комментария."
Else
MsgBox Range("A1").Comment.Text
End If
проверка коментария в Excel
как в Excel с помощью VBA проверить имеется ли у определенной ячейки коментарий или нет. Ну уж очень нужно:)
Цитата:
Originally posted by Maks555
как в Excel с помощью VBA проверить имеется ли у определенной ячейки коментарий или нет. Ну уж очень нужно:)
как в Excel с помощью VBA проверить имеется ли у определенной ячейки коментарий или нет. Ну уж очень нужно:)
Вот пример:
Код:
Вот ещё несколько вариантов определения наличия примечания/комментария или текста примечания/комментария в ячейке.
Код:
On Error Resume Next
Dim iCell As Range
Set iCell = Range("A1").SpecialCells(xlComments)
If iCell Is Nothing Then
MsgBox "Ячейка не содержит примечаний", , ""
Else
MsgBox iCell.Comment.Text, , ""
End If
Dim iCell As Range
Set iCell = Range("A1").SpecialCells(xlComments)
If iCell Is Nothing Then
MsgBox "Ячейка не содержит примечаний", , ""
Else
MsgBox iCell.Comment.Text, , ""
End If
Код:
If Not Range("A1").Find(What:="*", _
LookIn:=xlComments) Is Nothing Then
MsgBox Range("A1").Comment.Text, , ""
Else
MsgBox "Ячейка не содержит примечаний ..." & _
vbCrLf & "или примечание не содержит текста", , ""
End If
LookIn:=xlComments) Is Nothing Then
MsgBox Range("A1").Comment.Text, , ""
Else
MsgBox "Ячейка не содержит примечаний ..." & _
vbCrLf & "или примечание не содержит текста", , ""
End If
Код:
If Range("A1").NoteText = "" Then
MsgBox "Ячейка не содержит примечаний ..." & _
vbCrLf & "или примечание не содержит текста", , ""
Else
MsgBox Range("A1").NoteText, , "" ' 255 символов.
End If
MsgBox "Ячейка не содержит примечаний ..." & _
vbCrLf & "или примечание не содержит текста", , ""
Else
MsgBox Range("A1").NoteText, , "" ' 255 символов.
End If