Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Окно ввода появляется два раза
 
#1
26.12.2019 17:27:51
Подскажите пожалуйста. Мне нужно последовательно вводить данные в ячейке с помощью Application.InputBox. Почему-то окно ввода появляется два раза. Как этот момент исправить?
 
 
 
#2
26.12.2019 17:33:39
Когда оно появляется первый раз? Разрешите поискать или сами расскажете?
 
 
 
#3
26.12.2019 18:51:57

При открытии книги срабатывает событие открытия в котором выбирается ячейка после чего появляется userform для ввода фио, выбрали фио нажали энтер, фио попало в ячейку, далее из кода userform вызывается Application.InputBox вот это –то окошечко и появляется после отработки второй раз почему-то
 
 
 
#4
26.12.2019 19:01:51
При закрытии формы процедура вызывается второй раз. Переставьте местами закрытие формы и вызов макроса:
Код
   Call dorog
   Unload Me
End Sub
 
 
 
#5
26.12.2019 19:25:00
Переставил. Изменений 0
 
 
 
#6
27.12.2019 14:02:11
Не понял почему, но вот так вроде второй раз не выскакивает:
Код
Private Sub CommandButton1_Click()
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
   ActiveCell = ComboBox1.Value
   Call dorog
End Sub

Sub dorog()
UserForm1.Hide
d = Application.InputBox _
(Prompt:="Сутки на дорогу")
If d = 0 Then [p15] = ""
[p15] = d
End Sub
 
 
 
#7
27.12.2019 20:08:51
Спасибо Вам и этому форуму и всем его участникам. И с Новым годом! Всех. Пусть в новом году будет все только хорошее, позитивное. И в несколько раз больше в сравнении с предыдущим.
 
 
 
Страницы: 1
Наверх