Excel VBA: установка адреса ячейки для переменной «Обязательная ошибка объекта»

Question

Я хочу установить адрес ячейки для переменной. И затем используйте эту переменную, чтобы установить формулу ячейки с ссылочной ячейкой rng. Кто-то должен иметь возможность дважды щелкнуть ячейку с помощью формулы и увидеть ссылку на ячейку rng, а не значение ячейки rng в формуле. У меня есть следующий код:

Dim rng As Range 
Dim j As integer 
j = 5 
Set rng = ActiveSheet.Cells(j, 1).Address(False, False) ' get error here 

ActiveSheet.Cells(1, 15).Formula = "=5*" & rng 

Я получаю эту «Object Required Error». Что я делаю не так?

Answer 1

Хорошо, поэтому я считаю, что мои проблемы состояли в том, что я неправильно понял тип, который ActiveSheet.Cells(j, 1).Address(False, False) есть.

ActiveSheet.Cells(j, 1).Address(False, False) является String, поэтому вы получите сообщение об ошибке, если вы установили Range на номер String. Простое изменение rng к String будет решить мою проблему:

Решение:

Dim rng As String 
Dim j As integer 
j = 5 
rng = ActiveSheet.Cells(j, 1).Address(False, False) ' works now 

ActiveSheet.Cells(1, 15).Formula = "=5*" & rng 

Answer 2

В качестве альтернативы, в случае, если вам нужен rng что-нибудь еще, вы можете сделать следующее

Dim rng As Range 
Dim j As integer 
j = 5 
Set rng = ActiveSheet.Cells(j, 1) 

ActiveSheet.Cells(1, 15).Formula = "=5*" & rng.address