Вставка примечания в ячейку(циклирование RANGE) + условие

[Евгений Таб]

Добрый вечер!

Нужна консультация специалиста.

Во вложении файл. Нужно вставлять примечания в ячейки согласно значению из другой, пользовался этим:

PHP код:

Range("A1").NoteText Text:=Range("B1") 


Но ячеек в Range("A:A") - всегда разное количество и писать код для каждой ячейки и ссылать ее на ячейку из Range("B:B") - откровенно несерьезно.

В итоге нужно чтобы макрос циклом шел с начала Range("A1") и брал значения Range("B1") соответственно, наглядно видно в примере, в конце данных(пустой ячейки) - останавливался.
И еще если не сложно прописать в коде IF для того чтобы он нули не вставлял в примечание, а только целые числа.

Спасибо всем!

[Евгений Таб]

Вот сам примерчик.

[Казанский]

Sub Eugene()
Dim c As Range
Columns(1).ClearComments
For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp))
  If c.Offset(, 1) <> 0 Then c.NoteText c.Offset(, 1)
Next
End Sub

[Евгений Таб]

Казанский, все верно! Гениально, спасибо!

[Евгений Таб]

Еще бы прикрутить константу, которая бы устанавливала размер примечаний(единый для всех).....

[SAS888]

Можно так:

Sub Eugene()
    Dim c As Range
    Columns(1).ClearComments
    For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp))
        If c.Offset(, 1) <> 0 Then
            c.NoteText c.Offset(, 1)
            c.Comment.Shape.Width = 30
            c.Comment.Shape.Height = 15
        End If
    Next
End Sub

Вместо констант 30 и 15 подставьте требуемые.
Если требуется подгонять размер области примечаний по тексту, то вместо

c.Comment.Shape.Width = 30
c.Comment.Shape.Height = 15

используйте

c.Comment.Shape.TextFrame.AutoSize = True