ссылка не действительна Создание гиперссылки VBA

Question

Я пытаюсь создать гиперссылку, ссылающуюся на ранее используемую переменную. Ссылка связана с номером задания, которое пользователь может щелкнуть, чтобы проверить информацию о задании до распечатки рабочего листа. Я использую переменные, и я не уверен, что это вызывает проблему, или если все это подделано.

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

Вот кусок кода, с которым я столкнулся. Ошибка, которую я получаю, - «Неверный вызов или аргумент процедуры»

 With POSheet 

     .Hyperlinks.Add Anchor:=.Range("j11"), _ 
     Address:="", _ 
     SubAddress:=shtJob.Name, _ 
     ScreenTip:="Job Sheet", _ 
     TextToDisplay:="Job Information" 

     End With 

При необходимости я могу отправить больше кода.

Answer 1

Попробуйте ниже. Вам необходимо будет установить свойство SubAdress для гиперссылки на текущую книгу. Обратите внимание, что строка должна выглядеть как "Sheet1!A1", если вы хотите, чтобы гиперссылка переходила в ячейку A1 Sheet1.

With POSheet 

    .Hyperlinks.Add Anchor:=.Range("j11"), _ 
    Address:="", _ 
    SubAddress:=shtJob.Name & "!A1", _ 
    ScreenTip:="Job Sheet", _ 
    TextToDisplay:="Job Information" 

    End With