Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как запустить код при выделение ячейки.
 
#1
16.03.2020 13:51:04
Private Sub Worksheet_Change(ByVal Target As Range)

   Application.OnKey "{'}", "Showsearch"

End Sub

Есть надстройка расширенного поиска (The List Search Add-in) которая запускается при нажатии клавиши  "'"
Возможно ли сделать чтобы он запускался когда выделяешь определенные ячейки.
И только на этом листе.
 
 
 
#2
16.03.2020 13:52:38
cliff99, выделение это вы что подразумеваете цветом? или все таки активацию ячейки т.е. выбора ее?
в модуль листа.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Ваш код 
End Sub
Изменено: Mershik - 16.03.2020 13:56:06
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
16.03.2020 14:10:05
Нужно чтобы запускался модуль с именем Showsearch
у меня он сейчас запускается клавишей. А нужно при активации ячеек.
Изменено: cliff99 - 16.03.2020 14:12:46
 
 
 
#4
16.03.2020 14:14:24
cliff99,
попробуйте module1 ваш макрос
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then: Call module1  
End Sub
Изменено: Mershik - 16.03.2020 14:15:01
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
16.03.2020 14:20:17
Выдаёт ошибку.
Может я неправильно спрашиваю.
сейчас при нажатии кнопки запускается надстройка Showsearch.
А нужно при активации ячейки.

Private Sub Worksheet_Change(ByVal Target As Range)

  Application.OnKey "{'}", "Showsearch"

End Sub
 
 
 
#6
16.03.2020 14:21:11
А зачем модуль? Имя макроса нужно.
 
 
 
#7
16.03.2020 14:22:00
cliff99, может и не может..сложно судить без видимого файла-примера где вы вставили часть моего макроса в свой.

просто  решил макрос так назвать)
Изменено: Mershik - 16.03.2020 14:22:58
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#8
16.03.2020 14:23:57
Надстойка The List Search Add-in) запускается нажатием кнопки.
я привел этот код.
А нужно через активацию ячейки.
мне ее через кнопку неудобно запускать.
Если бы указать диапазон ячеек.
Изменено: cliff99 - 16.03.2020 14:25:53
 
 
 
#9
16.03.2020 14:24:34
Цитата
cliff99 написал:
сейчас при нажатии кнопки запускается надстройка Showsearch.
Для запуска по событию активации нужно, как минимум, знать имя макроса в этой надстройке, который нужно запустить.
 
 
 
#10
16.03.2020 14:27:58
я скинул саму надстройку
и вот код запускающий ее через кнопку.

Private Sub Worksheet_Change(ByVal Target As Range)

   Application.OnKey "{'}", "Showsearch"

End Sub

нужно задать диапазон ячеек чтобы при активации определенных ячеек она запускалась.
Я думаю если видя как она запускается через кнопку, то вы сможете заставить запустить ее через активацию ячейки.
Изменено: cliff99 - 16.03.2020 14:29:25
 
 
 
#11
16.03.2020 14:33:53
Цитата
RAN написал:
Цитата cliff99  написал:сейчас при нажатии кнопки запускается надстройка Showsearch.Для запуска по событию активации нужно, как минимум, знать имя макроса в этой надстройке, который нужно запустить.
Это имя - Showsearch
 
 
 
#12
16.03.2020 14:44:02
cliff99, ну ведь Вам УЖЕ  показали, как при выделении ячейки запускать нужный макрос.
 
 
 
#13
16.03.2020 14:46:00
Цитата
Юрий М написал:
cliff99 , ну ведь Вам УЖЕ  показали, как при выделении ячейки запускать нужный макрос.
Так, как подсказали - не работает.
через "горячую клавишу" работает.
Пол дня вожусь, чтобы заставить через ячейку работать.
Изменено: cliff99 - 16.03.2020 14:47:45
 
 
 
#14
16.03.2020 14:49:52
cliff99, а без цитирования никак? Вот я пишу Вам без цитаты - понятно, к кому я обращаюсь?
В макросе из #4 замените module1 на имя макроса (без кавычек).
 
 
 
#15
16.03.2020 14:53:30
Юрий М, Пробовал - не работает.
Изменено: cliff99 - 16.03.2020 14:53:48
 
 
 
#16
16.03.2020 14:55:29
Не работает - выдаётся какое либо сообщение, подсвечивается жёлтым одна из строк, ничего не происходит?.. Нельзя ли больше конкретики?
 
 
 
#17
16.03.2020 14:55:33
cliff99,
"$B$27" замените на нужную Вам ячейку или диапазон
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$27" Then
Application.Run ("Showsearch")
End If
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#18
16.03.2020 14:58:38
Mershik, спасибо, теперь - работает.
 
 
 
Страницы: 1
Наверх