Excel VBA Нужно добавлять комментарии к нескольким ячейкам в зависимости от их стоимости

У меня таблица приличных размеров, каждая ячейка зависит от их значения. Я хочу, чтобы VBA добавлял комментарий с текстом, который я выбираю для отображения для каждого значения. Например: если значение равно 11, в комментарии будет показана ACT Grid. Значения примечаний иногда являются целыми числами, а иногда комбинацией букв и цифр (A1, B1, C1, 1, 2, 3 и т. Д.),

11 ACT Grid

12 Плитка устройства и бордера

13 CMHPII / USACE OH Выписка

14 Drop Потолочная плитка

15 Настенные устройства Trim

16 Установить работу

17 Установка полов

18 Установка дверей и оборудования

Это всего лишь образец значений в таблице. Прямо сейчас у меня есть кнопка команды, которую я бы хотел нажать, чтобы обновлять лист каждый раз, когда он был нажат, что означает удаление любых предыдущих комментариев и замену на новое. Будет много ячеек без каких-либо значений, и я хотел бы убедиться, что у них нет комментариев. Вот мой код, я изначально использовал ActiveCell, но это работало только для ячейки, которую я ранее выбрал. Я уверен, что мой код выглядит пустым, так как это моя последняя компиляция запрошенного кода. Я совсем не владею этим языком и не нуждаюсь в помощи. Благодаря!

Private Sub Update_Click() Dim cell As Range Dim rng As Range Set rng = Range("D11:CY148") On Error Resume Next For Each cell In rng If cell.Value = 50 Then Target.AddComment Target.Comment.Text Text:="test" End If Next cell Application.EnableEvents = True End Sub 

    Альтернативой тому, что вы пытаетесь сделать, является использование Case Statement. Пример:

     Private Sub Update_Click() Dim cell As Range Dim rng As Range Set rng = Range("D11:CY148") On Error Resume Next For Each cell In rng Select Case cell.Value Case "11" Target.AddComment Target.Comment.Text Text:="ACT Grid" Case "12" Target.AddComment Target.Comment.Text Text:="Device & Boarder Tile" End Select Next cell Application.EnableEvents = True End Sub 
    Давайте будем гением компьютера.