Проблема с кодом пирамиды: объект не определен

Question

Когда я запускаю этот блок кода, он выдает

ошибка времени выполнения 1004: ошибка приложения или объекта

Но VBA работает, и строка отладки должна быть

py.Range(py.Cells(row, coloum + level), py.Cells(row, coloum - level)).Value = "*"

Как это исправить?

Dim wantnum As Integer
Dim py As Worksheet
Dim inputs As Integer
Dim row As Integer
Dim coloum As Integer
Dim count As Integer
Dim level As Integer    

Set py = Sheets("sheet4")

inputs = InputBox(" Enter the pyrimad level you want")

row = 1
coloum = inputs
level = 0

For count = 0 To inputs

    py.Range(py.Cells(row, coloum + level), py.Cells(row, coloum - level)).Value = "*"
    row = row + 1
    level = level + 1

    Debug.Print Error$(count)

Next count

End Sub

Answer 1

попробуйте этот код:

Sub Pyramid()
    Dim wantnum As Integer
    Dim py As Worksheet
    Dim inputs As Integer
    Dim row As Integer
    Dim coloum As Integer
    Dim count As Integer
    Dim level As Integer

    Set py = Sheets("sheet4")

    inputs = InputBox(" Enter the pyrimad level you want")

    row = 1
    coloum = inputs
    level = 0

    For count = 1 To inputs

        py.Range(py.Cells(row, coloum + level), py.Cells(row, coloum - level)).Value = "*"

        row = row + 1
        level = level + 1

        'Debug.Print Error$(count)

    Next count

End Sub