Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Выделить все гиперссылки
 
Как можно выделить все гиперссылки на странице, не удаляя?
 
Вариант:
Код
Sub SelectHyper()
Dim rCell As Range, Rng As Range
    For Each rCell In ActiveSheet.UsedRange
        If rCell.Hyperlinks.Count > 0 Then
            If Rng Is Nothing Then
                Set Rng = rCell
            Else
                Set Rng = Union(Rng, rCell)
            End If
        End If
    Next
    If Not Rng Is Nothing Then Rng.Select
End Sub



Страницы: 1
Читают тему (гостей: 1)