Добрый день. По вашему макросу, полученному на этом сайте:
[vba]
Код
Sub t() For Each cell In Selection ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=IIf(InStr(cell.Value, "@") = 0, cell.Value, "mailto:" & cell.Value) Next cell End Sub
[/vba]
смог только несколько ячеек с сайтами преобразовать в ссылки. Потом выдает ошибку:
Application-defined or object-defined error
если перейти по debug : то показывается макрос и жёлтым выделяется строчка :
Сначала думал что проблема в доменах .рф или в www перед названием домена, нет. просто не работает, даже для одной ячейки. Помогите решить проблемку %) [moder]Зачем Вы удаляете комментарии модератора?! Весь файл не нужен, оставьте несколько строк для примера. В правилах форума есть ссылка на страницу, где есть описание использования тегов! Исправляйте этот кошмар! Помогающих прошу не отвечать до устранения нарушений.[/moder] [moder]Исправлено[/moder]
Добрый день. По вашему макросу, полученному на этом сайте:
[vba]
Код
Sub t() For Each cell In Selection ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=IIf(InStr(cell.Value, "@") = 0, cell.Value, "mailto:" & cell.Value) Next cell End Sub
[/vba]
смог только несколько ячеек с сайтами преобразовать в ссылки. Потом выдает ошибку:
Application-defined or object-defined error
если перейти по debug : то показывается макрос и жёлтым выделяется строчка :
Сначала думал что проблема в доменах .рф или в www перед названием домена, нет. просто не работает, даже для одной ячейки. Помогите решить проблемку %) [moder]Зачем Вы удаляете комментарии модератора?! Весь файл не нужен, оставьте несколько строк для примера. В правилах форума есть ссылка на страницу, где есть описание использования тегов! Исправляйте этот кошмар! Помогающих прошу не отвечать до устранения нарушений.[/moder] [moder]Исправлено[/moder]yarila
Добавьте в код On error Resume Next тогда ячейки с непонятными адресами просто будут пропускаться.
опять та же ошибка. Попробовал пробелы убрать, не помогает. Даже отдельно ячейку теперь не обрабатывает. Может дело в циклических ссылках именно этого столбца?
[vba]
Код
Sub t() For Each cell In Selection ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=IIf(InStr(cell.Value, "@") = 0, cell.Value, "mailto:" & cell.Value) On Error Resume Next Next cell End Sub
Добавьте в код On error Resume Next тогда ячейки с непонятными адресами просто будут пропускаться.
опять та же ошибка. Попробовал пробелы убрать, не помогает. Даже отдельно ячейку теперь не обрабатывает. Может дело в циклических ссылках именно этого столбца?
[vba]
Код
Sub t() For Each cell In Selection ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=IIf(InStr(cell.Value, "@") = 0, cell.Value, "mailto:" & cell.Value) On Error Resume Next Next cell End Sub
Sub t() Dim cel On Error Resume Next For Each cel In Selection If cel.Value <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=cel, Address:=IIf(InStr(cel.Value, "@") = 0, cel.Value, "mailto:" & cel.Value) End If Next End Sub
[/vba]
Сначала on error потом всё остальное [vba]
Код
Sub t() Dim cel On Error Resume Next For Each cel In Selection If cel.Value <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=cel, Address:=IIf(InStr(cel.Value, "@") = 0, cel.Value, "mailto:" & cel.Value) End If Next End Sub