Как я могу применить код VBA к ряду ячеек?

Цель моего кода действует на пользовательский ввод, который затем автоматически создает гиперссылку, основанную на том, что пользователь вводит в ячейку.

Если пользователь вводит hello в ячейку, создается гиперссылка и ссылки на www.google.com/hello .

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

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

Вот мой код:

 Sub automaticHyperlink() Dim link As String link = "http://www.google.com/" & Range("F2") Range("F2").Hyperlinks.Add Range("F2"), link End Sub 

Когда я меняю все ссылки на диапазон от F2 до F2:F4 , я получаю сообщение об ошибке.

Мой вопрос: как правильно применить этот код к нескольким диапазонам ячеек без возникновения ошибки?

Любые вопросы, тогда, пожалуйста, дайте мне знать.

Спасибо.

Во-первых, я предлагаю разместить текст, который вы хотите отобразить, как свою собственную строку. Затем просто прокрутите свой диапазон.

 Sub automaticHyperlink() Dim link As String, dispText As String Dim cel As Range Dim lastRow as Long lastRow = Cells(rows.count,6).End(xlup).Row For Each cel In Range("F2:F" & lastRow) dispText = cel.value link = "http://www.google.com/" & dispText cel.Hyperlinks.Add anchor:=cel, Address:=link, TextToDisplay:=dispText Next cel End Sub 
  • OpenXML Как добавить гиперссылку, указывающую на другой лист
  • Анализ веб-страницы с использованием java в excel и использование гиперссылок
  • добавить гиперссылку на лист excel, созданный методом pandas dataframe to_excel
  • Ссылки на листы Excel с использованием perl
  • Измените ячейку с веб-сайтом как текст в ссылку (не используя функцию = Гиперссылка)
  • Удаление гиперссылок Сохранение формата ячейки
  • Перефокусируйтесь на ячейках после потери фокусировки на activex control
  • Гиперссылка Excel на конкретную вкладку (в другом файле)
  • ReportExecutionService.Render () - отсутствует гиперссылка из столбца отчета
  • HYPERLINK с переменной (имя столбца или ячейка), содержащее номер отслеживания несущей
  • Ссылки на пользовательские функции в надстройке
  • Давайте будем гением компьютера.