Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос добавления гиперссылок обрабатывает не все ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос добавления гиперссылок обрабатывает не все ячейки (Макросы/Sub)
Макрос добавления гиперссылок обрабатывает не все ячейки
yarila Дата: Четверг, 19.05.2016, 15:01 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Добрый день.
По вашему макросу, полученному на этом сайте:

[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 : то показывается макрос и жёлтым выделяется строчка :

[vba]
Код
ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=IIf(InStr(cell.Value, "@") = 0, cell.Value, "mailto:" & cell.Value)
[/vba]

Сначала думал что проблема в доменах .рф или в www перед названием домена, нет. просто не работает, даже для одной ячейки.
Помогите решить проблемку %)
[moder]Зачем Вы удаляете комментарии модератора?!
Весь файл не нужен, оставьте несколько строк для примера.
В правилах форума есть ссылка на страницу, где есть описание использования тегов! Исправляйте этот кошмар!
Помогающих прошу не отвечать до устранения нарушений.[/moder]
[moder]Исправлено[/moder]
К сообщению приложен файл: __OpenDocument.xls (10.5 Kb)


Сообщение отредактировал Manyasha - Четверг, 19.05.2016, 17:25
 
Ответить
СообщениеДобрый день.
По вашему макросу, полученному на этом сайте:

[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 : то показывается макрос и жёлтым выделяется строчка :

[vba]
Код
ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=IIf(InStr(cell.Value, "@") = 0, cell.Value, "mailto:" & cell.Value)
[/vba]

Сначала думал что проблема в доменах .рф или в www перед названием домена, нет. просто не работает, даже для одной ячейки.
Помогите решить проблемку %)
[moder]Зачем Вы удаляете комментарии модератора?!
Весь файл не нужен, оставьте несколько строк для примера.
В правилах форума есть ссылка на страницу, где есть описание использования тегов! Исправляйте этот кошмар!
Помогающих прошу не отвечать до устранения нарушений.[/moder]
[moder]Исправлено[/moder]

Автор - yarila
Дата добавления - 19.05.2016 в 15:01
китин Дата: Четверг, 19.05.2016, 15:04 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
нужен файл
и обрамляйте коды тэгами. реально нечитабельно


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениенужен файл
и обрамляйте коды тэгами. реально нечитабельно

Автор - китин
Дата добавления - 19.05.2016 в 15:04
Manyasha Дата: Четверг, 19.05.2016, 17:30 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
yarila, ссылка не должна содержать пробелов. Да и куда должна ссылаться ячейка с адресом

Добавьте в код [vba]
Код
On error Resume Next
[/vba]тогда ячейки с непонятными адресами просто будут пропускаться.


ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеyarila, ссылка не должна содержать пробелов. Да и куда должна ссылаться ячейка с адресом

Добавьте в код [vba]
Код
On error Resume Next
[/vba]тогда ячейки с непонятными адресами просто будут пропускаться.

Автор - Manyasha
Дата добавления - 19.05.2016 в 17:30
yarila Дата: Пятница, 20.05.2016, 05:19 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Добавьте в код
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
[/vba]
 
Ответить
Сообщение
Добавьте в код
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
[/vba]

Автор - yarila
Дата добавления - 20.05.2016 в 05:19
wild_pig Дата: Пятница, 20.05.2016, 07:39 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 516
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Попробовал пробелы убрать, не помогает

Лучше попробуйте читать то, что вам пишут. В ячейке F5 находится 3 адреса. Excel в шоке от этого :) Не может быть 3 гиперссылки в одной ячейке
 
Ответить
Сообщение
Попробовал пробелы убрать, не помогает

Лучше попробуйте читать то, что вам пишут. В ячейке F5 находится 3 адреса. Excel в шоке от этого :) Не может быть 3 гиперссылки в одной ячейке

Автор - wild_pig
Дата добавления - 20.05.2016 в 07:39
yarila Дата: Пятница, 20.05.2016, 08:07 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Лучше попробуйте читать то, что вам пишут. В ячейке F5 находится 3 адреса. Excel в шоке от этого Не может быть 3 гиперссылки в одной ячейке


Данный макрос работает над выделенным диапазоном

я выделю тогда, чтобы видно было Вам:
Даже отдельно ячейку теперь не обрабатывает.
 
Ответить
Сообщение
Лучше попробуйте читать то, что вам пишут. В ячейке F5 находится 3 адреса. Excel в шоке от этого Не может быть 3 гиперссылки в одной ячейке


Данный макрос работает над выделенным диапазоном

я выделю тогда, чтобы видно было Вам:
Даже отдельно ячейку теперь не обрабатывает.

Автор - yarila
Дата добавления - 20.05.2016 в 08:07
wild_pig Дата: Пятница, 20.05.2016, 09:03 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 516
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Сначала 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
[/vba]


Сообщение отредактировал wild_pig - Пятница, 20.05.2016, 09:07
 
Ответить
СообщениеСначала 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
[/vba]

Автор - wild_pig
Дата добавления - 20.05.2016 в 09:03
yarila Дата: Пятница, 20.05.2016, 11:33 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
не работает вообще теперь, ни ошибки , ничего
 
Ответить
Сообщениене работает вообще теперь, ни ошибки , ничего

Автор - yarila
Дата добавления - 20.05.2016 в 11:33
Manyasha Дата: Пятница, 20.05.2016, 11:38 | Сообщение № 9
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
yarila, еще раз: с On Error Resume Next
ячейки с непонятными адресами просто будут пропускаться.

Т.е. макрос их не обработает и пойдет дальше. Чтобы макрос обработал все ячейки, в них должны быть корректные ссылки!
Не может быть 3 гиперссылки в одной ячейке

Если проблема в другом, показывайте файл с ошибкой!


ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеyarila, еще раз: с On Error Resume Next
ячейки с непонятными адресами просто будут пропускаться.

Т.е. макрос их не обработает и пойдет дальше. Чтобы макрос обработал все ячейки, в них должны быть корректные ссылки!
Не может быть 3 гиперссылки в одной ячейке

Если проблема в другом, показывайте файл с ошибкой!

Автор - Manyasha
Дата добавления - 20.05.2016 в 11:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос добавления гиперссылок обрабатывает не все ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!