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

Вход

Регистрация

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

 

= Мир MS Excel/ComboBox отслеживание события DropDown - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ComboBox отслеживание события DropDown (Макросы/Sub)
ComboBox отслеживание события DropDown
OIU Дата: Понедельник, 06.06.2016, 12:39 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 3 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте!
[vba]
Код
Private Sub CommandButton1_Click()
Call ComboBox1.DropDown
End Sub
[/vba]
[vba]
Код
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Me.ComboBox2.DropDown = True Then 'Это не верное условие. Как правильно прописать проверку того что лист ComboBox1 развёрнут?
'Как правильно прописать "закрыть лист ComboBox1"?
Me.ComboBox1.DropDown
End If
End Sub
[/vba]
Суть такая: Нажимаем на кнопку 1 и у нас открывается список ComboБокса, перемещаем курсор на кнопку 2, список первого ComboБокса скрывается а список второго открывается. С открытием проблем нет, а вот с проверкой открыт-ли он или нет и самим закрытием, проблемка. :-/
Если не одна из кнопок не была нажата, то ComboBoxы не должны открываться. В конечном итоге должно получиться примерно как на панели инструментов в VBA редакторе)
К сообщению приложен файл: 0082751.xls (36.0 Kb)


С уважением Евгений Ковель

Сообщение отредактировал OIU - Понедельник, 06.06.2016, 14:54
 
Ответить
СообщениеЗдравствуйте!
[vba]
Код
Private Sub CommandButton1_Click()
Call ComboBox1.DropDown
End Sub
[/vba]
[vba]
Код
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Me.ComboBox2.DropDown = True Then 'Это не верное условие. Как правильно прописать проверку того что лист ComboBox1 развёрнут?
'Как правильно прописать "закрыть лист ComboBox1"?
Me.ComboBox1.DropDown
End If
End Sub
[/vba]
Суть такая: Нажимаем на кнопку 1 и у нас открывается список ComboБокса, перемещаем курсор на кнопку 2, список первого ComboБокса скрывается а список второго открывается. С открытием проблем нет, а вот с проверкой открыт-ли он или нет и самим закрытием, проблемка. :-/
Если не одна из кнопок не была нажата, то ComboBoxы не должны открываться. В конечном итоге должно получиться примерно как на панели инструментов в VBA редакторе)

Автор - OIU
Дата добавления - 06.06.2016 в 12:39
Матраскин Дата: Понедельник, 06.06.2016, 14:23 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
OIU,

может Вам подойдёт :

[vba]
Код
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.ComboBox1.DropDown
Me.ComboBox1.SetFocus
End Sub
[/vba]
К сообщению приложен файл: 4322519.xls (32.0 Kb)


в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Понедельник, 06.06.2016, 14:27
 
Ответить
СообщениеOIU,

может Вам подойдёт :

[vba]
Код
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.ComboBox1.DropDown
Me.ComboBox1.SetFocus
End Sub
[/vba]

Автор - Матраскин
Дата добавления - 06.06.2016 в 14:23
OIU Дата: Понедельник, 06.06.2016, 14:31 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 3 ±
Замечаний: 0% ±

Excel 2013
Матраскин, это то что нужно! Есть одно но... Курсор поверх кнопки мигает. :D


С уважением Евгений Ковель

Сообщение отредактировал OIU - Понедельник, 06.06.2016, 14:33
 
Ответить
СообщениеМатраскин, это то что нужно! Есть одно но... Курсор поверх кнопки мигает. :D

Автор - OIU
Дата добавления - 06.06.2016 в 14:31
Roman777 Дата: Понедельник, 06.06.2016, 14:32 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Матраскин, в Этом случае, может быть проблемно нажать кнопку 1, мне кажется.


Много чего не знаю!!!!
 
Ответить
СообщениеМатраскин, в Этом случае, может быть проблемно нажать кнопку 1, мне кажется.

Автор - Roman777
Дата добавления - 06.06.2016 в 14:32
Матраскин Дата: Понедельник, 06.06.2016, 16:01 | Сообщение № 5
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
OIU,
Это уже другой вопрос) как убрать курсор для combobox я не знаю

Roman777,
В том виде котором они (кнопки) сейчас - нет смысла на них вообще нажимать.


в интернете опять кто-то не прав
 
Ответить
СообщениеOIU,
Это уже другой вопрос) как убрать курсор для combobox я не знаю

Roman777,
В том виде котором они (кнопки) сейчас - нет смысла на них вообще нажимать.

Автор - Матраскин
Дата добавления - 06.06.2016 в 16:01
OIU Дата: Понедельник, 06.06.2016, 17:25 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 3 ±
Замечаний: 0% ±

Excel 2013
Матраскин, я изначально не полностью сформулировал задачу и приношу извинения. (позже я его конечно дополнил).
Если не одна из кнопок не была нажата, то ComboBox-ы не должны открываться. В конечном итоге должно получиться примерно как на панели инструментов в VBA редакторе). Может быть собственные классы нужно создавать?...


С уважением Евгений Ковель
 
Ответить
СообщениеМатраскин, я изначально не полностью сформулировал задачу и приношу извинения. (позже я его конечно дополнил).
Если не одна из кнопок не была нажата, то ComboBox-ы не должны открываться. В конечном итоге должно получиться примерно как на панели инструментов в VBA редакторе). Может быть собственные классы нужно создавать?...

Автор - OIU
Дата добавления - 06.06.2016 в 17:25
Матраскин Дата: Понедельник, 06.06.2016, 17:53 | Сообщение № 7
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
OIU, Вы делаете меню ?


в интернете опять кто-то не прав
 
Ответить
СообщениеOIU, Вы делаете меню ?

Автор - Матраскин
Дата добавления - 06.06.2016 в 17:53
OIU Дата: Понедельник, 06.06.2016, 18:04 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 3 ±
Замечаний: 0% ±

Excel 2013
Матраскин, то что вы видели, это пока всё что я набросал, так-как еще не известно реально это или нет. А вообще да, это должно быть нечто вроде меню.


С уважением Евгений Ковель
 
Ответить
СообщениеМатраскин, то что вы видели, это пока всё что я набросал, так-как еще не известно реально это или нет. А вообще да, это должно быть нечто вроде меню.

Автор - OIU
Дата добавления - 06.06.2016 в 18:04
Матраскин Дата: Понедельник, 06.06.2016, 18:25 | Сообщение № 9
Группа: Друзья
Ранг: Обитатель
Сообщений: 375
Репутация: 81 ±
Замечаний: 0% ±

20xx
OIU,

https://msdn.microsoft.com/en-us....4).aspx

Может Вам поможет, у экселя есть средства по созданию меню.


в интернете опять кто-то не прав
 
Ответить
СообщениеOIU,

https://msdn.microsoft.com/en-us....4).aspx

Может Вам поможет, у экселя есть средства по созданию меню.

Автор - Матраскин
Дата добавления - 06.06.2016 в 18:25
OIU Дата: Вторник, 07.06.2016, 14:48 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 3 ±
Замечаний: 0% ±

Excel 2013
Матраскин, благодарю)


С уважением Евгений Ковель
 
Ответить
СообщениеМатраскин, благодарю)

Автор - OIU
Дата добавления - 07.06.2016 в 14:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ComboBox отслеживание события DropDown (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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