Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB / 5 сообщений из 5, страница 1 из 1
08.11.2005, 17:53:52
    #33367371
dmitrim
dmitrim
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB
И ещё подскажите пожалуйста, как прописать строчку после
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:58:40
    #33367386
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB
Код: plaintext
1.
If Not IsNumeric(a) then msgbox ("в данные введены буквы")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2005, 13:00:53
    #33370976
Mix
Mix
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB
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:09:07
    #33371009
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB
dmitrimкак прописать строчку , чтобы вводились только цифры
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2005, 17:08:15
    #33371888
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VB
Mix
В этом случае не отработается ситуация, к примеру, a = "123N456"

Странно
? isnumeric("123N456")
False
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 617ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2166892]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 281ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 256ms
total:  617ms
x
x
Закрыть


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