Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Формы в VBA. Фокус в текстбоксе.
 
#1
22.01.2012 05:35:31
Простенькая форма - текстбокс и кнопка "ОК".  
Как сделать, что бы после нажатия "ОК" курсор возвращался в текстбокс.  
И второе - как сделать, что бы по ентер выполнялся "ОК".  
 
..имхо, пример здесь не нужен...
 
 
 
#2
22.01.2012 05:48:37
Михаил, зря думаете, что файл не нужен, очень даже нужен.    
Я все коды, которые выкладываю на форум стараюсь обязательно протестировать в макросе. Т.к. мало кто сразу из головы пишет код, обычно его тестируют и потом уже выкладывают  
 
Т.е. для того, чтобы ответить вам мне пришлось самому создать файл (xls), а у меня стоит Excel 2010 пришлось пересохранять файл (в Excel 2010 формат файла xlsx), создать форму, кинуть на неё TextBox и кнопку, переименовать кнопку, написать код, потестировать его и вам выложить файл с макросом (((  
Если бы был ваш пример, мне было бы удобнее    
 
 
Павел
 
 
 
#3
22.01.2012 05:54:02
Там еще бонус - нажатие Esc :)  
 
Ластик сегодня открыл школу VBA :)
 
 
 
#4
22.01.2012 05:56:00
И не говори, Вить. Хотел пораньше сегодня лечь... ещё не лёг... 5:55 утра )))
 
 
 
#5
22.01.2012 06:02:11
Спасибо, конечно. Я думал, что для тех, кто пишет макросы постоянно, эти строчки уже на автомате. Мне бы тоже хватило строчек кода без примера, но раз сделали - извините и спасибо!  
 
зы я тоже еще не ложился, уже, наверно и не лягу...
 
 
 
#6
23.01.2012 01:56:25
Возникли некоторые проблемы...  
По нажатию на энтер фокус уходит из тестбокса, приходится его либо мышкой, либо 10 раз на ТАБ.  
После выборя флажка ни ЭНТЕР ни ЭСК не работают.  
И еще одна проблема - как сделать проверку текстбокса на ввод данных? должны быть числа.
 
 
 
#7
23.01.2012 02:10:13
Может так?
 
 
 
#8
23.01.2012 02:17:30
ZVI помогал. Проверка и форматирование полей (число с разделителями разрядов).  
 
   If Me.tBox.Text <> "" Then  
       If IsNumeric(Me.tBox) Then  
           Me.tBox = Format(Me.tBox, "#,##0.00")  
       Else  
           MsgBox "Попытка ввода нечисловых данных! Введите число"  
           Me.tBox.SelStart = 0  
           Me.tBox.SelLength = Len(Me.tBox)  
           Cancel = True  
       End If  
   End If
 
 
 
#9
23.01.2012 02:21:35
И для всех чекбоксов  
Private Sub Dozir_Click()  
Cart_№.SetFocus  
End Sub  
Private Sub Fotoval_Click()  
Cart_№.SetFocus  
End Sub  
Private Sub Magnit_Click()  
Cart_№.SetFocus  
End Sub  
Private Sub Rakel_Click()  
Cart_№.SetFocus  
End Sub  
Private Sub Zaprav_Click()  
Cart_№.SetFocus  
End Sub  
Private Sub Zaryad_Click()  
Cart_№.SetFocus  
End Sub
 
 
 
#10
23.01.2012 02:33:55
Спасибо, буду пробовать.
 
 
 
#11
23.01.2012 02:44:14
Можно еще добавить  
Private Sub ОК_Enter()  
ОК_Click  
End Sub
 
 
 
#12
23.01.2012 02:55:52
Андрей, спасибо, с энтером разобрались.
 
 
 
#13
24.01.2012 00:19:26
Вот два одинаковых файла, один .xls, другой - .xlsm. .xls - работает как надо; .xlsm - не работает...  
офис 2010.    
Может только у меня?
 
 
 
#14
24.01.2012 00:24:57
Я вчера в xls у всех контролов, окромя текстбокса и кнопки ОК, tabstop = false поставил.
 
 
 
#15
24.01.2012 00:26:03
у меню оба работают, офис 2010.
 
 
 
#16
24.01.2012 00:31:06
{quote}{login=RAN}{date=24.01.2012 12:24}{thema=}{post}Я вчера в xls у всех контролов, окромя текстбокса и кнопки ОК, tabstop = false поставил.{/post}{/quote}Я это не проверял... счас проверил - тогда по Тав не работает... прочем, я Тав редко пользуюсь..  
 
Димон, что, по ентер добавляется строка и курсор в текстбоксе? в .xlsm?
 
 
 
#17
24.01.2012 01:04:53
Притомился искать.  
ошибку дает строка  
'    If KeyCode = vbKeyReturn Then Cart_№.SetFocus: Me.ОК = True  
в xls она отключена, в xlsm - нет
 
 
 
#18
24.01.2012 01:36:06
У меня одинаково работает, что с этой строкой, что без нее... :)
 
 
 
#19
24.01.2012 01:56:37
Виктор хороший код показал, только забыл написать, что этот код для события Exit, а не Change.  
Бинарное отрицание вещь хорошая, но при №="" --№ дает ошибку, а Val(№) - 0.    
И в Public № никакой нужды нет.
 
 
 
#20
24.01.2012 14:09:10
{quote}{login=RAN}{date=24.01.2012 01:56}{thema=}{post}Виктор хороший код показал, только забыл написать, что этот код для события Exit, а не Change.  
Бинарное отрицание вещь хорошая, но при №="" --№ дает ошибку, а Val(№) - 0.    
И в Public № никакой нужды нет.{/post}{/quote}  
Спасибо, правда я еще не решил, какой вариант использовать - Виктора или ваш.  
А № в Public остался от первоначального варианта - я хотел все это делать в модуле.  
 
И все же, как заставить работать Enter не отключая Тав.... или это версия офиса такая?
 
 
 
#21
25.01.2012 12:53:49
Решил проблему.
 
 
 
#22
25.01.2012 13:09:04
Интересный вариант. Осталась мелочь - решить, что делать с чекбоксом после перехода в него по таб.
 
 
 
#23
25.01.2012 13:16:23
Что хочешь, то и делай. А обработка чекбоксов в теле Private Sub CommandButton1_Click(). Я просто не стал этого писать - проблема была не в этом.  
чекбокс, как обычно, по нажатию пробел меняет свое значение.
 
 
 
#24
25.01.2012 13:21:38
Хочу True на False сменить. Как? Мышом? Или специальной кныпочкой? Или??? :)
 
 
 
#25
25.01.2012 13:25:06
Клавишей "пробел"
 
 
 
Страницы: 1
Читают тему
Наверх