Я не понимаю, почему объект требуемая ошибка происходит каждый раз в VBA?

Question

Я работаю над проектом VBA, чтобы определить, является ли PE компании слишком высоким. Я относительно неопытен с vba, однако, я не могу найти ничего плохого в своем коде, почему Excel всегда возвращает мне ошибку требуемого объекта? Если кто-нибудь может мне помочь, спасибо!

Dim i As Long, pe As Long
Dim result As String

For i = 4 To 10
pe = Sheet1.Range("C" & i).Value
        If pe >= 85 Then
            result = "high"
        ElseIf pe >= 75 Then
            result = "mid"
        ElseIf pe >= 55 Then
            result = "low"
        ElseIf pe >= 40 Then
            result = "very low"
        Else
            result = "not in range"
        End If

        Sheet1.Range("D" & i).Value = result
Next

End Sub

Answer 1

Несмотря на то, что это неправильный обмен стека, вам нужно добавить объявление в начале, чтобы затемнить Sheet1 как Sheet1 или подобное, я думаю, что он жалуется, что не знает, что такое Sheet1 во время выполнения.