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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос, валидации url в ячейках, как? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос, валидации url в ячейках, как?
Макрос, валидации url в ячейках, как?
wwizard Дата: Вторник, 14.03.2017, 00:49 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

Нашел в сети небольшой макрос. Он открывает все ссылки, в выделеном диапазоне, в не зависимости от столбца.

[vba]
Код
Sub Открыть_выделеные_ячейки()
    On Error Resume Next
    For Each cell In Selection.SpecialCells(xlCellTypeVisible)
        ThisWorkbook.FollowHyperlink cell
    Next cell
End Sub
[/vba]

Ссылки то он открывает, но вот вопрос:
Если попадается ссылка, такого плана:
http://prntscr.com/ejlajp
Насколько возможно, чтоб он не писал про ошибку, а просто стер содержимое ячейки?
К сообщению приложен файл: 7625835.xlsm (17.7 Kb)
 
Ответить
СообщениеНашел в сети небольшой макрос. Он открывает все ссылки, в выделеном диапазоне, в не зависимости от столбца.

[vba]
Код
Sub Открыть_выделеные_ячейки()
    On Error Resume Next
    For Each cell In Selection.SpecialCells(xlCellTypeVisible)
        ThisWorkbook.FollowHyperlink cell
    Next cell
End Sub
[/vba]

Ссылки то он открывает, но вот вопрос:
Если попадается ссылка, такого плана:
http://prntscr.com/ejlajp
Насколько возможно, чтоб он не писал про ошибку, а просто стер содержимое ячейки?

Автор - wwizard
Дата добавления - 14.03.2017 в 00:49
StoTisteg Дата: Вторник, 24.04.2018, 17:35 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код

Sub Открыть_выделеные_ячейки()
    On Error Resume Next
    For Each cell In Selection.SpecialCells(xlCellTypeVisible)
        Err.Clear
        On Error Resume Next  
        ThisWorkbook.FollowHyperlink cell
        If Err.Number<>0 Then
            cell.Clear
            On Error Resume Next
            cell.Hyperlinks.Delete
        End If
    Next cell
End Sub
[/vba]


Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Вторник, 24.04.2018, 17:55
 
Ответить
Сообщение[vba]
Код

Sub Открыть_выделеные_ячейки()
    On Error Resume Next
    For Each cell In Selection.SpecialCells(xlCellTypeVisible)
        Err.Clear
        On Error Resume Next  
        ThisWorkbook.FollowHyperlink cell
        If Err.Number<>0 Then
            cell.Clear
            On Error Resume Next
            cell.Hyperlinks.Delete
        End If
    Next cell
End Sub
[/vba]

Автор - StoTisteg
Дата добавления - 24.04.2018 в 17:35
_Igor_61 Дата: Вторник, 24.04.2018, 21:09 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
.


Сообщение отредактировал _Igor_61 - Вторник, 24.04.2018, 21:11
 
Ответить
Сообщение.

Автор - _Igor_61
Дата добавления - 24.04.2018 в 21:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос, валидации url в ячейках, как?
  • Страница 1 из 1
  • 1
Поиск:

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