Макрос Примечание в ячейку не стандарт.

[Viento]

Уважаемые программисты, добрый день!

Помогите пожалуйста решить следующую задачу:

1.Есть колонка с данными: 1 или 2 или 3 или 4 или + или - или 0 ;
2.Есть соответствующее описание этим данным:
Например: 2 - "плохо воспринимает информацию"
3.В ячейку необходимо проставить примечание в соответствии с текущим описаниям данных.

Пример во вложении.
Заранее благодарю Вас за содействие.

[Казанский]

В первом приближении, без проверок на ошибки

Sub bb()
Dim c As Range
For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp))
    c.AddComment WorksheetFunction.VLookup(c, [F2:G8], 2, 0)
Next
End Sub

[Viento]

Уважаемый Казанский, добрый день!
Макрос выдает ошибку в строке:

c.AddComment WorksheetFunction.VLookup(c, [F2:G8], 2, 0)

.

[Казанский]

Либо примечание в ячейке уже есть, либо значение ячейки не найдено в таблице.
Попробуйте так:

Sub bb()
Dim c As Range
On Error Resume Next
For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp))
    c.ClearComments
    c.AddComment WorksheetFunction.VLookup(c, [F2:G8], 2, 0)
Next
End Sub

[Viento]

Уважаемый Казанский, огромное спасибо за Вашу оперативную помощь.

[Юракиев]

Уважаемые программисты, добрый день. Пришлось составить небольшую програмку, не могу разобраться. Мне нужно в несколько ячеек (около 20) добавить примечание, чтобы текст в нем менялся в зависимости от числа в ячейке. Для всех ячеек условие одно и тоже. С одной ячейкой это удалос сделать, дальше никак. Пример в аттаче.