Ошибка выполнения при использовании переменных в VBA

Question

Эта простая строка кода вырвет ошибку:

Application or Object defined error.

Sub vartest() 
movie_name = "TITANIC" 
Worksheets("Sheet1").Activate 

Range("b1").End(xlDown).Offset(1, 0).Select 
Active.Value = movie_name 
MsgBox movie_name & " is the Movie" 

Пожалуйста, помогите.

Answer 1

'активный' не является приемлемым объектом ...

Вам нужно будет что-то вроде ActiveCell

ActiveCell.Value = movie_name 

Хотя вы можете быть лучше не выбирать вообще:

Sub vartest() 
    movie_name = "TITANIC" 
    Worksheets("Sheet1").Range("b1").End(xlDown).Offset(1, 0).Value = movie_name 
    MsgBox movie_name & " is the Movie" 
End Sub 

Answer 2

Вам необходимо изменить select и activate:

Sub vartest() 

Dim movie_name As String: movie_name = "TITANIC" 
Worksheets("Sheet1").Activate 

Range("b1").End(xlDown).Offset(1, 0).Activate 
Selection.Value = movie_name 
MsgBox movie_name & " is the movie" 

End Sub 

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