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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для ссылок - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для ссылок (Формулы/Formulas)
Макрос для ссылок
MIXAMI Дата: Вторник, 15.10.2019, 15:35 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016


Здравстуйте дорогие друзья!
Есть такая проблема. Много ссылок. Как можно создать макрос который пронажимает все эти ссылки как на картинке.
Я попробовал написать
[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
Дата добавления - 15.10.2019 в 15:35
MIXAMI Дата: Вторник, 15.10.2019, 21:55 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо что не отказали! :D
 
Ответить
СообщениеСпасибо что не отказали! :D

Автор - MIXAMI
Дата добавления - 15.10.2019 в 21:55
boa Дата: Вторник, 15.10.2019, 22:40 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 549
Репутация: 167 ±
Замечаний: 0% ±

365
Здравствуйте, 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
[/vba]

Автор - boa
Дата добавления - 15.10.2019 в 22:40
MIXAMI Дата: Вторник, 15.10.2019, 22:50 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо большое!
Процесс пошёл но всё за висло к х..рам! :(
А есть добавочна чтобы каждую поочередно ну там через 30 40 сек...??? ;)
 
Ответить
СообщениеСпасибо большое!
Процесс пошёл но всё за висло к х..рам! :(
А есть добавочна чтобы каждую поочередно ну там через 30 40 сек...??? ;)

Автор - MIXAMI
Дата добавления - 15.10.2019 в 22:50
MIXAMI Дата: Вторник, 15.10.2019, 22:51 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Я имею ввиду каждую гиперссылку открывать через 30 40 сек поочерёдно.... :unsure:
 
Ответить
СообщениеЯ имею ввиду каждую гиперссылку открывать через 30 40 сек поочерёдно.... :unsure:

Автор - MIXAMI
Дата добавления - 15.10.2019 в 22:51
MIXAMI Дата: Вторник, 15.10.2019, 23:39 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Блин......
 
Ответить
СообщениеБлин......

Автор - MIXAMI
Дата добавления - 15.10.2019 в 23:39
boa Дата: Среда, 16.10.2019, 00:45 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 549
Репутация: 167 ±
Замечаний: 0% ±

365
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
[/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
[/vba]

Автор - boa
Дата добавления - 16.10.2019 в 00:45
MIXAMI Дата: Среда, 16.10.2019, 16:07 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
boa Спасибо тебе большое!
Работает сам марос отлично.
Вот только одна проблема, тут у меня ссылка с привязкой макроса. И почему-то не срабатывает. Ссылка нажимается но загрузка не срабатывает.
А когда кликаю мышкой по ссылке, идёт загрузка.....
Скажи boa есть ли такая функия имитации клика мышью.....
Я уже всю голову сломал.
 
Ответить
Сообщениеboa Спасибо тебе большое!
Работает сам марос отлично.
Вот только одна проблема, тут у меня ссылка с привязкой макроса. И почему-то не срабатывает. Ссылка нажимается но загрузка не срабатывает.
А когда кликаю мышкой по ссылке, идёт загрузка.....
Скажи boa есть ли такая функия имитации клика мышью.....
Я уже всю голову сломал.

Автор - MIXAMI
Дата добавления - 16.10.2019 в 16:07
boa Дата: Среда, 16.10.2019, 16:58 | Сообщение № 9
Группа: Друзья
Ранг: Ветеран
Сообщений: 549
Репутация: 167 ±
Замечаний: 0% ±

365
Добрый день, MIXAMI,
тут у меня ссылка с привязкой макроса

не понимаю о чем вы
есть ли такая функия имитации клика мышью.....

я о ней не знаю


 
Ответить
СообщениеДобрый день, MIXAMI,
тут у меня ссылка с привязкой макроса

не понимаю о чем вы
есть ли такая функия имитации клика мышью.....

я о ней не знаю

Автор - boa
Дата добавления - 16.10.2019 в 16:58
boa Дата: Среда, 16.10.2019, 17:26 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 549
Репутация: 167 ±
Замечаний: 0% ±

365
можно еще попробовать использовать нажатие клавиш
у меня срабатывает следующий код
[vba]
Код
Sub test()
  ActiveCell.Application.SendKeys "+{F10}oo~"
End Sub
[/vba]


 
Ответить
Сообщениеможно еще попробовать использовать нажатие клавиш
у меня срабатывает следующий код
[vba]
Код
Sub test()
  ActiveCell.Application.SendKeys "+{F10}oo~"
End Sub
[/vba]

Автор - boa
Дата добавления - 16.10.2019 в 17:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для ссылок (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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