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

Вход

Регистрация

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

 

= Мир MS Excel/посчитать количество гиперссылок - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » посчитать количество гиперссылок (Формулы/Formulas)
посчитать количество гиперссылок
ovechkin1973 Дата: Четверг, 21.09.2017, 19:06 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 429
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
в файле проставляются маркосом гиперссылки (ищется по текстовому названию в ячейке документ PDF в определенных папках и назначается гиперссылка). Каким образом можно подсчитать сколько гиперссылок назначено? есть формула или макрос для этого?
К сообщению приложен файл: 6255305.xlsx (9.1 Kb)


Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.
 
Ответить
Сообщениев файле проставляются маркосом гиперссылки (ищется по текстовому названию в ячейке документ PDF в определенных папках и назначается гиперссылка). Каким образом можно подсчитать сколько гиперссылок назначено? есть формула или макрос для этого?

Автор - ovechkin1973
Дата добавления - 21.09.2017 в 19:06
Udik Дата: Четверг, 21.09.2017, 19:42 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
так можно
[vba]
Код

Public Sub test()
Dim rng1 As Range
Dim i As Integer
Dim unoCell As Object

    With ActiveSheet '' подставить нужный лист
        
        Set rng1 = .Range(.Cells(1, 1), .Cells(10, 1)) '' подставить свой диапазон
        For Each unoCell In rng1
            If IsHyperlink(unoCell) Then i = i + 1
        Next
    End With
End Sub

''====
Private Function IsHyperlink(Cell As Range) As Boolean
    IsHyperlink = _
    Cell.Hyperlinks.Count > 0 Or Cell.Formula Like "=*HYPERLINK(*)"
End Function

[/vba]
количество будет в i


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com


Сообщение отредактировал Udik - Четверг, 21.09.2017, 19:44
 
Ответить
Сообщениетак можно
[vba]
Код

Public Sub test()
Dim rng1 As Range
Dim i As Integer
Dim unoCell As Object

    With ActiveSheet '' подставить нужный лист
        
        Set rng1 = .Range(.Cells(1, 1), .Cells(10, 1)) '' подставить свой диапазон
        For Each unoCell In rng1
            If IsHyperlink(unoCell) Then i = i + 1
        Next
    End With
End Sub

''====
Private Function IsHyperlink(Cell As Range) As Boolean
    IsHyperlink = _
    Cell.Hyperlinks.Count > 0 Or Cell.Formula Like "=*HYPERLINK(*)"
End Function

[/vba]
количество будет в i

Автор - Udik
Дата добавления - 21.09.2017 в 19:42
ovechkin1973 Дата: Понедельник, 25.09.2017, 10:36 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 429
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
так можно

Udik, Благодарю! Приспособил к своему файлу. Ссылки считает мгновенно, а вот макрос который их проставляет делает это очень долго.


Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.
 
Ответить
Сообщение
так можно

Udik, Благодарю! Приспособил к своему файлу. Ссылки считает мгновенно, а вот макрос который их проставляет делает это очень долго.

Автор - ovechkin1973
Дата добавления - 25.09.2017 в 10:36
Мир MS Excel » Вопросы и решения » Вопросы по Excel » посчитать количество гиперссылок (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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