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

Вход

Регистрация

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

 

= Мир MS Excel/Как закрыть выпадающий список в ComboBox? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как закрыть выпадающий список в ComboBox? (Макросы/Sub)
Как закрыть выпадающий список в ComboBox?
Volhv Дата: Воскресенье, 17.03.2019, 13:07 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
По выбору определенного имени в списке открывается окно для ввода данных но список при этом остается открытым. Только когда ткнешь мышкой в открывшееся окно тогда закрывается список. ComboBox встроен на лист а на форму.
Как закрыть список до открытия окна?

Код

Private Sub ComboBox1_Change()
    If ComboBox1.Text = Worksheets(2).Range("ADM") Then FormPas.Show

End Sub
К сообщению приложен файл: 9985498.jpg (38.4 Kb)


Сообщение отредактировал Volhv - Воскресенье, 17.03.2019, 14:32
 
Ответить
СообщениеПо выбору определенного имени в списке открывается окно для ввода данных но список при этом остается открытым. Только когда ткнешь мышкой в открывшееся окно тогда закрывается список. ComboBox встроен на лист а на форму.
Как закрыть список до открытия окна?

Код

Private Sub ComboBox1_Change()
    If ComboBox1.Text = Worksheets(2).Range("ADM") Then FormPas.Show

End Sub

Автор - Volhv
Дата добавления - 17.03.2019 в 13:07
Pelena Дата: Воскресенье, 17.03.2019, 14:07 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19160
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Файл с примером помог бы в понимании проблемы


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеФайл с примером помог бы в понимании проблемы

Автор - Pelena
Дата добавления - 17.03.2019 в 14:07
Volhv Дата: Воскресенье, 17.03.2019, 14:33 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Вот скриншот
К сообщению приложен файл: 5395891.jpg (38.4 Kb)
 
Ответить
СообщениеВот скриншот

Автор - Volhv
Дата добавления - 17.03.2019 в 14:33
krosav4ig Дата: Воскресенье, 17.03.2019, 14:53 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
    if ComboBox1.Text = Worksheets(2).Range("ADM") Then
        application.sendKeys "{esc}", 1
        doEvents
        UserForm1.Show
    endif
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
    if ComboBox1.Text = Worksheets(2).Range("ADM") Then
        application.sendKeys "{esc}", 1
        doEvents
        UserForm1.Show
    endif
[/vba]

Автор - krosav4ig
Дата добавления - 17.03.2019 в 14:53
Volhv Дата: Воскресенье, 17.03.2019, 19:12 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо!!!
 
Ответить
СообщениеСпасибо!!!

Автор - Volhv
Дата добавления - 17.03.2019 в 19:12
Volhv Дата: Понедельник, 18.03.2019, 06:45 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
application.sendKeys "{esc}", 1
doEvents


Спасибо! Все сработало. Только не могли бы вы объяснить эти две строчки что они делают. Если правильно понял первая строка эмитация нажатия кнопки ESC а вторая что занчит?
И еще заметил что выключается кнопка "NUM LOCK" на цифровой клавиатуре. Можно это как то избежать?
 
Ответить
Сообщение
application.sendKeys "{esc}", 1
doEvents


Спасибо! Все сработало. Только не могли бы вы объяснить эти две строчки что они делают. Если правильно понял первая строка эмитация нажатия кнопки ESC а вторая что занчит?
И еще заметил что выключается кнопка "NUM LOCK" на цифровой клавиатуре. Можно это как то избежать?

Автор - Volhv
Дата добавления - 18.03.2019 в 06:45
bmv98rus Дата: Понедельник, 18.03.2019, 14:50 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4098
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
"NUM LOCK" на цифровой клавиатуре. Можно это как то избежать?

вопрос конечно не по теме, но так как это следствие то просто сперва гасим или зажигаем

[vba]
Код
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Const VK_NUMLOCK = &H90
Private Const KEYEVENTF_KEYUP = &H2
Declare Function GetKeyState Lib "user32.dll" ( _
ByVal nVirtKey As Long) As Integer



Sub NUM_TOGGLE()
'Toggle NUM-Lock key state
keybd_event VK_NUMLOCK, 1, 0, 0
keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
End Sub

Sub NUM_On() 'Turn NUM-Lock on
If Not (GetKeyState(vbKeyNumlock) = 1) Then
keybd_event VK_NUMLOCK, 1, 0, 0
keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
End If
End Sub

Sub NUM_Off() 'Turn NUM-Lock off
If (GetKeyState(vbKeyNumlock) = 1) Then
keybd_event VK_NUMLOCK, 1, 0, 0
keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
End If
End Sub
[/vba]


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
"NUM LOCK" на цифровой клавиатуре. Можно это как то избежать?

вопрос конечно не по теме, но так как это следствие то просто сперва гасим или зажигаем

[vba]
Код
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Const VK_NUMLOCK = &H90
Private Const KEYEVENTF_KEYUP = &H2
Declare Function GetKeyState Lib "user32.dll" ( _
ByVal nVirtKey As Long) As Integer



Sub NUM_TOGGLE()
'Toggle NUM-Lock key state
keybd_event VK_NUMLOCK, 1, 0, 0
keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
End Sub

Sub NUM_On() 'Turn NUM-Lock on
If Not (GetKeyState(vbKeyNumlock) = 1) Then
keybd_event VK_NUMLOCK, 1, 0, 0
keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
End If
End Sub

Sub NUM_Off() 'Turn NUM-Lock off
If (GetKeyState(vbKeyNumlock) = 1) Then
keybd_event VK_NUMLOCK, 1, 0, 0
keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
End If
End Sub
[/vba]

Автор - bmv98rus
Дата добавления - 18.03.2019 в 14:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как закрыть выпадающий список в ComboBox? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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