Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Форма Inputbox - как определить какую кнопку нажал пользователь
 
#1
09.11.2012 01:00:36
Всем привет.  
Такая проблема - есть форма Inputbox с кнопками Оk и Cancel.  
Пользователь вводит значение в текстовое поле.  
Далее мне надо знать какую кнопку он нажимает - если Ок, то пойдет поиск значения и заполнение ФИО пользователя и даты ввода. Если Cancel - не пойдет соответственно.  
Пробовал через VbOK и VbCancel - не работает.  
Сделал свой UserForm, попробовал - там работает через событие нажатия кнопки Ok или Cancel, но тогда не получается сразу поставить курсор на текстовое поле. Пользователь будет искать подряд много значений, а каждый раз тыкать мышкой в текстовое поле (или табом двигать) - не совсем удобно.  
Вот пример через UserForm  
 
Private Sub ОК_Click()  
i = TextBox1.Value  
TextBox1.Value = Empty  
ChoiseResult2 = 0  
ChoiseNum.Hide  
End Sub  
 
Если добавить фокус на текстовое поле - все равно ничего не получается (скорее всего из-за запуска формы событием Ок_клик)  
Как сделать - не принципиально: или через userform, или inputbox.  
Хелп, плиз...  
 
з.ы. форум читал, неделю искал и пытался - не получается. Первый раз что-то сел писать на VBA, сам разбирался, честно :)
 
 
 
#2
09.11.2012 01:05:37
{quote}{login=Desert-Eagle55}{date=09.11.2012 01:00}{thema=Форма Inputbox - как определить какую кнопку нажал пользователь}{post}з.ы. форум читал, неделю искал и пытался - не получается{/post}{/quote}  
в справку по inputbox по пути не заглядывали?  
 
If the user clicks OK or presses ENTER , the InputBox function returns whatever is in the text box. If the user clicks Cancel, the function returns a zero-length string ("").
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#3
09.11.2012 01:06:05
Давайте пример в файле - сделайте небольшой, без лишних данных.  
А то непонятно, что там у Вас уже сделано.
 
 
 
#4
09.11.2012 01:06:26
на cancel получите  значение false, его и анализируйте
 
 
 
#5
09.11.2012 01:06:29
{quote}{login=Desert-Eagle55}{date=09.11.2012 01:00}{thema=Форма Inputbox - как определить какую кнопку нажал пользователь}{post}  
 
Private Sub ОК_Click()  
i = TextBox1.Value  
TextBox1.Value = Empty  
ChoiseResult2 = 0  
ChoiseNum.Hide  
End Sub  
{/post}{/quote}  
 
А, поясню же :)  
Сначала получаю значение в переменную, потом чищу текстовое поле, чтобы следующее значение можно было вводить.  
Дальше ChoiseResult2 получает 0 - по этому значению узнаю, что нажата кнопка ОК (для Cancel = 1), прячу форму. Далее идет повторный запуск для поиска следуюшего значения.
 
 
 
#6
09.11.2012 01:12:24
{quote}{login=ikki}{date=09.11.2012 01:05}{thema=Re: Форма Inputbox - как определить какую кнопку нажал пользователь}{post}{quote}{login=Desert-Eagle55}{date=09.11.2012 01:00}{thema=Форма Inputbox - как определить какую кнопку нажал пользователь}{post}з.ы. форум читал, неделю искал и пытался - не получается{/post}{/quote}  
в справку по inputbox по пути не заглядывали?  
 
If the user clicks OK or presses ENTER , the InputBox function returns whatever is in the text box. If the user clicks Cancel, the function returns a zero-length string ("").{/post}{/quote}  
 
В справку смотрел. Тут уперся в то, что если пользователь не введет значение и нажмет Ок, то будет найдена первая пустая ячейка и от нее заполнены другие данные. А мне надо заполнить только по тем, где непустые ячейки.
 
 
 
#7
09.11.2012 01:14:50
Обрабатывайте пустую строку, как ошибку - можно вывести сообщение, можно принудительный выход из процедуры...
 
 
 
#8
09.11.2012 01:18:40
Юрий, так в том-то и засада - нельзя определить, то ли "Отмену" нажали, то ли "ОК", но поле было пустым.  
 
впрочем,.. я разницы для обработки не вижу.  
как только получили из инпутбокса пустую строку - конец работе, и все дела :)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#9
09.11.2012 01:19:55
И я об этом :-)
 
 
 
#10
09.11.2012 01:23:33
{quote}{login=Юрий М}{date=09.11.2012 01:14}{thema=}{post}Обрабатывайте пустую строку, как ошибку - можно вывести сообщение, можно принудительный выход из процедуры...{/post}{/quote}  
 
ага...  
ну да, так получилось  
я что-то в значения этих кнопок Ок и Cancel уперся  
все оказалось проще  
 
Спасибо за помощь! Сэкономили мне неделю размышлений :)
 
 
 
#11
09.11.2012 01:27:43
Нашёл:    
Sub qqq()  
Dim strInput As String  
strInput = InputBox("")  
   If StrPtr(strInput) = 0 Then  
       MsgBox "Вы нажали Cancel!"  
   End If  
End Sub
 
 
 
#12
09.11.2012 01:32:00
а где нашёл?  
не в справке же?  
 
я помню, читал где-то мельком, что есть "нестандартный" способ различить, но какой - не стал запоминать. ибо не пользую я инпутбокс. религия такая. :)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#13
09.11.2012 01:36:14
Оказывается, есть такая недокументированная функция :-)  http://vba-help.ru/vbahelp/all/InputBox/
 
 
 
#14
09.11.2012 01:46:21
ясно, спасибо. еще по этой же и аналогичным функциям:  http://vb.mvps.org/tips/varptr.asp
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#15
09.11.2012 02:04:28
пасиба за толковые ссылки, буду пользоваться :)
 
 
 
Страницы: 1
Читают тему
Наверх