Ошибка при использовании метода Range в VBA Excel (настройка параметров)

#excel #vba

#excel #vba

Вопрос:

Я объявил переменную ColorCell и использовал Set, чтобы внести некоторые изменения в цвет с помощью цикла For.

Но при его кодировании возникает ошибка, и я не смог интерпретировать объяснение отладки.

 Sub 계산()    
    Dim SumVariable As Integer
    Dim i As Integer
    Dim ColorCell As Range
    Set ColorCell = Range("D" amp; i)

    For i = 3 To Range("D14").End(xlUp).Row
        If Cells(i, "D") > 300 Then
            MsgBox ("haha!")

            Cells(i, "D").Value = 10
            Range("D4").CurrentRegion.Select
            ColorCell.Interior.Color = vbYellow                
        End If
    Next i    
End Sub
  

Комментарии:

1. В этот момент у вас есть, Set ColorCell = Range("D" amp; i) но i равно нулю.

2. Большое спасибо за ваш ответ! Должен ли я в этом случае инициализировать его сразу после объявления «Dim»?

3. Не очень понятно, что должен делать ваш код, но эта строка, вероятно, должна быть внутри вашего цикла.