Проверка типов данных (числовых и текстовых) (Visual Basic for Applications)


Рубрика: Учебные материалы
Метки: |
Проверка типов данных (числовых и текстовых) (Visual Basic for Applications)

Иногда появляются ошибки при вводе данных. Наиболее неприятные это случайный ввод букв вместо цыфр, портятся все вычисления, если они есть для данной ячейки. Поэтому считаю актуальным делать для некоторых полей вот такие две проверки:

 

1. Программа для проверки «Вводятся ли положительные числовые данные?»

 

Private Sub TextBox1_Change()

If TextBox1.Value < 0 Then

MsgBox "Числа не должны быть отрицательными!", vbOKOnly + vbInformation, "Error"

TextBox1.SetFocus

End If

If Not IsNumeric(TextBox1.Text) And Len(TextBox1) <> 0 Then

MsgBox "Вводить необходимо числовые данные", vbOKOnly + vbInformation, "Error"

TextBox1.Value = ""

TextBox1.SetFocus

End If

End Sub

 

2. Программа для проверки «Вводятся ли текстовые данные?»

Private Sub TextBox3_Change()

If IsNumeric(TextBox3.Text) And Len(TextBox3) <> 0 Then

MsgBox "Вводить надо текстовые данные!", vbOKOnly + vbInformation, "Error@"

TextBox3.Value = " "

TextBox3.SetFocus

End If

End Sub

 

Пояснения:

SetFocus – устанавливает фокус на вызвавшем этот метод элементе управления (в данном примере на TextBox). Часто применяется в программах обработки ошибок

IsNumeric – функция проверки типов – является ли переменная числовым значением

Len – возвращает число символов строки

Оставьте комментарий!

grin LOL cheese smile wink smirk rolleyes confused surprised big surprise tongue laugh tongue rolleye tongue wink raspberry blank stare long face ohh grrr gulp oh oh downer red face sick shut eye hmmm mad angry zipper kiss shock cool smile cool smirk cool grin cool hmm cool mad cool cheese vampire snake excaim question

Комментарий будет опубликован после проверки

Вы можете войти под своим логином или зарегистрироваться на сайте.

(обязательно)