Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автоматическое активирование гиперссылки в Excel
 
#1
12.10.2015 10:16:18
Проблема следующего характера
Во внешней программе вычисляется текст гиперссылки (=гиперссылка("бла-бла";"бла-бла"))
после переноса этой вычисленной строки при помощи макроса в Excel, строка так и выводится с полным наименованием
После нажатия F2 и Enter значение принимает нужный вид
Сразу скажу что в настройках стоит автоматический пересчет функций и в макросе присутствует  Application.Volatile True
Как можно автоматизировать процесс изменения значения ячейки с гиперссылкой
 
 
 
#2
12.10.2015 10:17:55
Цитата
Markiz_ написал: после переноса этой вычисленной строки при помощи макроса в Excel
какого макроса? что переносится? .Formula, .Value, .Text?
F1 творит чудеса
 
 
 
#3
12.10.2015 10:49:00
вот таким макросом перенос
Код
Application.Volatile True
    Sheets("файл1)").Select
    Workbooks.Open Filename:="файл2"
    ActiveWindow.SmallScroll Down:=-21
    Range("B2:E426").Select
    Selection.Copy
    Windows("файл1").Activate
    ActiveWindow.SmallScroll Down:=-9
    Range("B5").Select
    ActiveSheet.Paste
 
 
 
#4
12.10.2015 12:11:16
Код
Application.Volatile True 
Workbooks.Open Filename:="файл2" 
Workbooks("файл2").Range("B2:E426").Copy 
Workbooks("файл1").Range("B5").Paste
Application.CutCopyMode = False

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#5
12.10.2015 15:30:14
Кнопка цитирования не для ответа [МОДЕРАТОР]

так тоже все по прежнему
 
 
 
#6
12.10.2015 18:19:13
Volatile тут вообще ни при чем. Возможно, надо переносить формулы
Код
Workbooks.Open Filename:="файл2"
Workbooks("файл1").activesheet.Range("B5:E429").Formula = Range("B2:E426").Formula
 
 
 
#7
14.10.2015 08:50:00
А есть какая нибудь функция в Excel
чтобы она активировал все ячейки где указаны гиперссылки?
Я так понял что гиперссылка это все таки не формула  
 
 
 
#8
14.10.2015 08:59:09
Функция не может что-либо активировать. Она только возвращает значение.
 
 
 
#9
14.10.2015 09:25:31
получается в ручном режиме все ячейки с гиперссылками через F2 и Enter активировать?
 
 
 
#10
14.10.2015 09:26:52
Markiz_, предположу, используйте формулу ГИПЕРССЫЛКА().

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#11
14.10.2015 10:07:43
так мне и надо активировать эту формулу (не формулу) в ячейке
в Excel импортируется строка формулы в текстовом формате '=Гиперссылка()'
осталось ее автоматом чем то активировать ))
Если бы Гиперссылка() считалась формулой то по идее по F9 она должна пересчитываться или при спец. вставке значения формулы писаться как надо,
но этого не происходит
 
 
 
#12
14.10.2015 10:47:54
Markiz_, вместо того, чтобы на словах рисовать свой файл, Вы бы приложили файл, в котором как есть и как надо. В общем, читайте правила, следуйте им и не тратьте зазря наше и Ваше время. Спасибо.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#13
14.10.2015 11:31:30
Извиняюсь если что не так
после импорта данных получаю файл tt
а хотелось получать как tt1
 
 
 
#14
14.10.2015 11:37:12
Выделите столбец B, найти и заменить = на =. С форматированием, думаю, уже самостоятельно разберётесь. Если нет - пишите сюда.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#15
14.10.2015 12:32:07
найти и заменить = на = с учетом всех форматов у меня не проходит
 
 
 
#16
14.10.2015 13:13:05
Все заработало.
"Найти и заменить" решает эту проблему  :D
Всем спасибо кто меня терпел  ;)
 
 
 
#17
23.10.2024 17:25:20
Друзья подскажите заменить равно на равно это единственный вариант?
Ведь есть обновляемые таблицы скажем через 2 три часа по несколько тысяч строк ну и менять равно на равно тоже утомляет. Может есть кака-либо автоматизация?
Изменено: Александр Кравчук - 23.10.2024 18:41:43
 
 
 
#18
23.10.2024 20:01:10
Цитата
Александр Кравчук написал:
менять равно на равно тоже утомляет. Может есть кака-либо автоматизация?
Можно всё сделать в одном вызове диалога "Найти и заменить" (Ctrl+H).
Найти:  =ГИПЕР
Заменить на: =ГИПЕР
Искать: в книге
Область поиска: формулы

Кнопка - Заменить все.
Владимир
 
 
 
#19
23.10.2024 20:39:32
Спасибо Владимир. Как это сделать без танцев с бубном. У меня таблица в Power Queri c последующей загрузкой в книгу Exel Нажатием ALT+F5 обновить и все... хотелось бы увидеть нужную таблицу с нужными данными. но пока этого не получается.
Есть макрос (в сети нашел)  но у меня он почему-то не работает так как нужно

=ГИПЕРССЫЛКА("https://zakupki.gov.ru/epz/main/public/home.html";"ИМЯ") гиперссылка после работы макроса
в поле EXEL должно быть ИМЯ и ссылка по имени => https://zakupki.gov.ru/epz/main/public/home.html

И это действительно все заработает после замены описанной выше, но хотелось бы автоматизировать если это возможно

Sub HyperSsylka()Dim cell As Range, ra As Range: Application.ScreenUpdating = False
Set ra = Range([a2], Range("a" & Rows.Count).End(xlUp))
For Each cell In ra.Cells
If Len(cell) Then cell.Hyperlinks.Add cell, cell
Next cell
End Sub

Sub HyperSsylkaSelect()
Dim cell As Range: Application.ScreenUpdating = False
For Each cell In Selection
If Len(cell) Then cell.Hyperlinks.Add cell, cell
Next cell
End Sub

Помогите пожалуйста кто в теме. Хотелось бы чтобы при обновлении запроса Power Queri на лист Exel загружались активные ссылки.
Изменено: Александр Кравчук - 23.10.2024 21:01:57
 
 
 
#20
23.10.2024 21:14:14
Похоже, тот (нечастый) случай, когда изменение данных через диалог (Найти и заменить) производится по иному алгоритму, чем через вызов метода Range.Replace (c учетом  известных особенностей, связанных с локализацией).
Думаю, что я "в теме".  :)
Скорее всего, можно сделать макросом, пробежавшись по ячейкам с функцией HYPERLINK (ГИПЕРССЫЛКА) и меняя свойство FormulaLocal ячейки:
Код
oCell.FormulaLocal=oCell.FormulaLocal


Написанное относится к примеру из стартовой темы.
Изменено: sokol92 - 23.10.2024 21:24:53
Владимир
 
 
 
#21
23.10.2024 21:17:40
Если не затруднит подскажи пожалуйста где и что в макросе подправить потому что для меня пока что макросы темный лес (в плане их составления). А куда их кинуть это понятно.
 
 
 
#22
23.10.2024 21:20:15
Сссылка в ячейке и формула =ГИПЕРССЫЛКА() это разные вещи.
Формулу недавно ставил так:
ячейка.formula="=HYPERLINK(..... тут текст название и ссылка
работает.

Вернее через массив, вот из макроса кусочек:
Код
For Each col In d3(k)
ii = ii + 1
a(i, ii) = "=HYPERLINK(""#'Лист1'!B" & col & """,""" & k & """)"
Next
Next

[i3].Resize(UBound(a), UBound(a, 2)).Formula = a
End Sub
Изменено: Hugo - 23.10.2024 21:29:52
 
 
 
#23
23.10.2024 21:36:05
Вот пример что в первом случае что во втором как я понимаю суть одна
Изменено: Александр Кравчук - 23.10.2024 21:37:19
 
 
 
#24
23.10.2024 21:49:58
В PQ не работает как в макросе, ставит тупо текст из запроса...
 
 
 
#25
24.10.2024 13:18:18
Если формул на листе не много, то можно (нахально) так:
Код
Sub Test()
  ActiveSheet.UsedRange.FormulaLocal = ActiveSheet.UsedRange.FormulaLocal
End Sub
Владимир
 
 
 
#26
24.10.2024 14:17:32
Спасибо Владимир. Рабочий вариант.  
 
 
 
Страницы: 1
Читают тему
Наверх