Добрый вечер всем !
Вопрос такой:
Почему при активном курсоре в TextBox формы не работают Application.SendKeys ?
При этом с физических клавиш клавиатуры все нормально работает, а при использовании Application.SendKeys не работает.
Попробовал обходной путь:
Сначала назначить клавишу на выполнение действия и потом применить Application.SendKeys
Допустим назначаем клавишу ENTER на выполнение действия
Все работает по ENTER физической клавишей в TextBox1
Потом применяем Application.SendKeys
Не заработал Application.SendKeys в UserForm - почему так ?
Вопрос такой:
Почему при активном курсоре в TextBox формы не работают Application.SendKeys ?
| Код |
|---|
Private Sub CommandButton1_Click()
'https://vremya-ne-zhdet.ru/vba-excel/operator-sendkeys/
Application.SendKeys "^a" 'выделить содержимое TextBox по Ctrl+A
Application.SendKeys "{DELETE}" 'удалить выделенное клавишей DELETE
End Sub
|
Попробовал обходной путь:
Сначала назначить клавишу на выполнение действия и потом применить Application.SendKeys
Допустим назначаем клавишу ENTER на выполнение действия
| Код |
|---|
'https://excelvba.ru/articles/KeyCode 'Keycode for "Enter" is 13 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then TextBox1.Text = "rrrrrrrrrrryyy" End If End Sub |
Потом применяем Application.SendKeys
| Код |
|---|
Private Sub CommandButton1_Click()
Application.SendKeys "{ENTER}"
End Sub
|
