Здравстуйте дорогие друзья! Есть такая проблема. Много ссылок. Как можно создать макрос который пронажимает все эти ссылки как на картинке. Я попробовал написать [vba]
Код
Sub Emul_Click() Range("I2").Select Application.LeftClick End Sub
[/vba]
Но он выдал ощибку. Я думаю это дет. сад что я написал. Помогите если можно.
Здравстуйте дорогие друзья! Есть такая проблема. Много ссылок. Как можно создать макрос который пронажимает все эти ссылки как на картинке. Я попробовал написать [vba]
Код
Sub Emul_Click() Range("I2").Select Application.LeftClick End Sub
[/vba]
Но он выдал ощибку. Я думаю это дет. сад что я написал. Помогите если можно.MIXAMI
Здравствуйте, MIXAMI, Откроет все ссылки с активного листа [vba]
Код
Sub OpenAllHyperlinks() Dim HL As Hyperlink For Each HL In Application.ActiveSheet.Hyperlinks HL.Follow NewWindow:=False, AddHistory:=False Next End Sub
[/vba]
Здравствуйте, MIXAMI, Откроет все ссылки с активного листа [vba]
Код
Sub OpenAllHyperlinks() Dim HL As Hyperlink For Each HL In Application.ActiveSheet.Hyperlinks HL.Follow NewWindow:=False, AddHistory:=False Next End Sub
#If VBA7 Then Private Declare PtrSafe Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As LongPtr 'Для выставления задержки в макросах #Else Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) #End If
Sub OpenAllHyperlinks() Dim HL As Hyperlink For Each HL In Application.ActiveSheet.Hyperlinks HL.Follow NewWindow:=False, AddHistory:=False Sleep 500 'Milliseconds DoEvents Next End Sub
[/vba]
MIXAMI, [vba]
Код
Option Explicit
#If VBA7 Then Private Declare PtrSafe Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As LongPtr 'Для выставления задержки в макросах #Else Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) #End If
Sub OpenAllHyperlinks() Dim HL As Hyperlink For Each HL In Application.ActiveSheet.Hyperlinks HL.Follow NewWindow:=False, AddHistory:=False Sleep 500 'Milliseconds DoEvents Next End Sub
boa Спасибо тебе большое! Работает сам марос отлично. Вот только одна проблема, тут у меня ссылка с привязкой макроса. И почему-то не срабатывает. Ссылка нажимается но загрузка не срабатывает. А когда кликаю мышкой по ссылке, идёт загрузка..... Скажи boa есть ли такая функия имитации клика мышью..... Я уже всю голову сломал.
boa Спасибо тебе большое! Работает сам марос отлично. Вот только одна проблема, тут у меня ссылка с привязкой макроса. И почему-то не срабатывает. Ссылка нажимается но загрузка не срабатывает. А когда кликаю мышкой по ссылке, идёт загрузка..... Скажи boa есть ли такая функия имитации клика мышью..... Я уже всю голову сломал.MIXAMI
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
