Всплытие формы по щелчку объединенной ячейки

Пользователь

Сообщений: 138 Регистрация: 03.11.2014

18.10.2021 07:57:57

Здравствуйте, подскажите, что нужно подправить в коде, чтобы форма всплывала по щелчку объединенной ячейки? Например (B34:D34)

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
   If Not Intersect(Target, [B34,B35,B36,B37,B38,B39,B40,B41,B42,B43,B44,B45,B46,B47,B48]) Is Nothing Then
   Поиск_приборов_одна.Show
   End If
End Sub

Изменено: Delux - 18.10.2021 08:01:08

Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14895 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#2 18.10.2021 08:01:23 Указать адрес объединенной ячейки... А If Target.Count > 1 Then Exit Sub - убрать. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Delux Пользователь Сообщений: 138 Регистрация: 03.11.2014	#3 18.10.2021 08:21:28 Спасибо!

Delux Пользователь Сообщений: 138 Регистрация: 03.11.2014	#4 20.10.2021 08:30:11 А если мне нужно продолжать работать в этой ячейки, по щелчку которой вызвалась форма, что нужно сделать?

Ігор Гончаренко Пользователь Сообщений: 14576 Регистрация: 01.01.1970	#5 20.10.2021 08:59:48 нужно внятно описать как вы собираетесь эксплуатировать файл (с примером) на какие действия пользователя должны реагировать макросы и как они должны реагировать в ходе обьяснений - следите чтобы рассказ не выходил за рамки логики Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!