ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB
5 сообщений из 5, страница 1 из 1
VB
    #33367371
dmitrim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dmitrim
Гость
И ещё подскажите пожалуйста, как прописать строчку после
a = InputBox("Тип двигателя"), чтобы вводились только цифры, а при введение букв в InputBox выскакивало окно msgbox ("в данные введены буквы")

Private Sub CommandButton1_Click()
Dim a As Variant
Dim b As Variant
a = InputBox("Тип двигателя")
??????????????????????????????
Cells(7, 7) = a
b = InputBox("Номер двигателя")
Cells(7, 7) = b
End Sub
...
Рейтинг: 0 / 0
08.11.2005, 17:53:52
| Ответить | Цитировать | Написать  
VB
    #33367386
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Код: plaintext
1.
If Not IsNumeric(a) then msgbox ("в данные введены буквы")
...
Рейтинг: 0 / 0
08.11.2005, 17:58:40
| Ответить | Цитировать | Написать  
VB
    #33370976
Фотография Mix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mix
Участник
Melkiades
Код: plaintext
1.
If Not IsNumeric(a) then msgbox ("в данные введены буквы")


В этом случае не отработается ситуация, к примеру, a = "123N456"
Тогда нужно сделать так:
for i = 1 to len(a)
b = mid(a,i,1)
If Not IsNumeric(b) then msgbox ("в данные введены буквы")
goto Ex
next
Ex:

Ну или конструкцией Do While....
Короче, идея, думаю, понятна:))
...
Рейтинг: 0 / 0
10.11.2005, 13:00:53
| Ответить | Цитировать | Написать  
VB
    #33371009
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
dmitrimкак прописать строчку , чтобы вводились только цифры
...
Рейтинг: 0 / 0
10.11.2005, 13:09:07
| Ответить | Цитировать | Написать  
VB
    #33371888
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Mix
В этом случае не отработается ситуация, к примеру, a = "123N456"

Странно
? isnumeric("123N456")
False
...
Рейтинг: 0 / 0
10.11.2005, 17:08:15
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33367371&tid=2166892]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 164ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 201ms
total:  460ms
созд. / загр.: 460ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]