Member 13658733 Ответов: 1

До установленной приложением или объектом ошибка определение

Я изучаю макросы VBA из доступных видео через интернет.Когда я пытаюсь выполнить программу,этот конкретный оператор выдает ошибку -- "Range("A2").End(xlDown).Offset(1, 0).Value = Film_Name".Но на видео все выполнено правильно.Пожалуйста, помогите мне с этим вопросом

Подменю универсального()
Dim Film_Name В Виде Строки
Dim Film_Date Как Дата
Dim Film_length Как Целое Число

Film_Name = InputBox("введите название фильма")
Film_Date = InputBox("введите дату")
Film_length=Inputbox("пожалуйста, введите длину фильма")
Диапазон("A2").конец(xlDown).Offset(1, 0).Value = Film_Name
Диапазон("A2").конец(xlDown).Смещение(0, 1).Значение = Film_Date
Диапазон("A2").конец(xlDown).Смещение(0, 2).Значение = Film_length

Конец Подводной Лодки

Что я уже пробовал:

Я понятия не имею, что не так с этим утверждением.Синтаксис такой же, как показано на видео.

1 Ответов

Рейтинг:
2

Richard MacCutchan

Вам нужны некоторые данные в первом столбце, чтобы, когда он посмотрит вниз в поисках первой свободной ячейки за пределами A2, он что-то нашел. Просто добавьте несколько случайных слов в ячейки A1, A2, A3, A4, и это должно сработать.

Member 13658733

Спасибо Ричарду, но я нашел еще 1 решение этой проблемы.
Лист 1.Диапазон("a65000").конец(xlup).выберите

Этот код работает нормально, но мне все еще интересно узнать, почему предыдущий код не работал.

PS: столбец уже имеет значения, как и предлагал u.

Richard MacCutchan

Таким образом, Excel должен спуститься к строке 65 000 и подсчитать для каждой строки выше, пока не найдет первую пустую. Это просто пустая трата электронов. Проверьте, что находится в столбце А, начиная со строки 2, чтобы понять, почему исходный код не работает.