Не работает код ограничения диапазона в textbox

[konstantin1990]

Всем доброго времени суток. У меня был код который я писал когда то под visual basic 5. Я перенес его в VBA (exel 2010) немного видоизменил, но он не работает. Суть кода в том что если txt1 пуст или диапазон значений выходит за пределы 670 и 780 мм, выдается сообщение об ошибке. как его исправить не знаю. Заранее спасибо.
вот и код,вложение ниже:

Private Sub Txt1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
txt1.MaxLength = 4
Select Case KeyAscii
Case 48 To 57
Case 13
txt1_Validation False
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub txt1_Validation(Cancel As Boolean)
Select Case txt1.Value
Case 670 To 780
txt2.SetFocus
Case 0 To 669
Case 781 To 9999
Case Else: Cancel = True
End Select
If Trim(txt1.Text) = "" Then
txt1.SetFocus
Dim Answer
Dim Message
Dim ButtonsAndIcon
Dim Title
Message = "Введите значение давления!"
ButtonsAndIcon = vbInformation
Title = "Ошибка!"
Answer = MsgBox(Message, ButtonsAndIcon, Title)
ElseIf (CLng(txt1.Text) < 670) Or (CLng(txt1.Text) > 780) Then
txt1.SetFocus
Dim Answer1
Dim Message1
Dim ButtonsAndIcon1
Dim Title1
Message1 = "Диапазон давления от 670 до 780 мм.рт.ст.!"
ButtonsAndIcon1 = vbInformation
Title1 = "Ошибка!"
Answer1 = MsgBox(Message1, ButtonsAndIcon1, Title1)
Cancel = True
End If
Exit Sub
End Sub

[kuklp]

А событие txt1_Validation Вы сами выдумали? Используйте событие txt1_Exit для проверки содержимого.

[konstantin1990]

Сообщение от kuklp

А событие txt1_Validation Вы сами выдумали? Используйте событие txt1_Exit для проверки содержимого.

нет я его не придумывал. В VB 5.0 было что то подобное там событие называлось validate вроде. при использовании процедуры exit возникает ошибка компиляции. название процедуры не соответствует описанию, кстати, если из кода удалить строку case 13 немного оживает код, но работает глупо.

[doober]

Ошибки нет

Private Sub txt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Select Case txt1.Value
    Case 670 To 780
        txt2.SetFocus
    Case 0 To 669
    Case 781 To 9999
    Case Else: Cancel = True
    End Select
    If Trim(txt1.Text) = "" Then
        txt1.SetFocus
        Dim Answer
        Dim Message
        Dim ButtonsAndIcon
        Dim Title
        Message = "Введите значение давления!"
        ButtonsAndIcon = vbInformation
        Title = "Ошибка!"
        Answer = MsgBox(Message, ButtonsAndIcon, Title)
    ElseIf (CLng(txt1.Text) < 670) Or (CLng(txt1.Text) > 780) Then
        txt1.SetFocus
        Dim Answer1
        Dim Message1
        Dim ButtonsAndIcon1
        Dim Title1
        Message1 = "Диапазон давления от 670 до 780 мм.рт.ст.!"
        ButtonsAndIcon1 = vbInformation
        Title1 = "Ошибка!"
        Answer1 = MsgBox(Message1, ButtonsAndIcon1, Title1)
        Cancel = True
    End If
    Exit Sub
End Sub

[konstantin1990]

Да теперь все работает, для ограничения диапазона немного доделал теперь буду использовать как шаблон:

Private Sub Txt1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
txt1.MaxLength = 4
    Select Case KeyAscii
        Case 48 To 57
        Case 13
        Case Else
           KeyAscii = 0
    End Select
End Sub
Private Sub txt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Select Case txt1.Value
       Case 670 To 780
           txt2.SetFocus
Case 0 To 669
Case 781 To 9999
Case Else: Cancel = True
End Select
If Trim(txt1.Text) = "" Then
txt1.SetFocus
txt1.Value = ""
Dim Answer
Dim Message
Dim ButtonsAndIcon
Dim Title
Message = "Введите значение давления!!"
ButtonsAndIcon = vbInformation
Title = "ошибка!"
Answer = MsgBox(Message, ButtonsAndIcon, Title)
ElseIf (CLng(txt1.Text) < 670) Or (CLng(txt1.Text) > 780) Then
txt1.SetFocus
txt1.Value = ""
Dim Answer1
Dim Message1
Dim ButtonsAndIcon1
Dim Title1
Message1 = "Диапазон давления от 670 до 780 мм.рт.ст.!"
ButtonsAndIcon1 = vbInformation
Title1 = "ошибка!"
Answer1 = MsgBox(Message1, ButtonsAndIcon1, Title1)
Cancel = True
End If
Exit Sub
End Sub

[konstantin1990]

а нет другой процедуры помимо txt1_exit? При закрытии формы возникает сообщение введите давление. Здесь вариант с exit не подходит. файл ниже

[kuklp]

Вы можете посмотреть сами какие есть события у текстбокса раскрыв вып. список в редакторе. Выбирайте, что Вам больше подойдет.

[konstantin1990]

а есть возможность сделать ограничение по вводу диапазона через процедуру change?

[kuklp]

Делайте, кто не дает. Только change будет возникать после введения каждого символа. Оно Вам надо? Проще сделать проверку по нажатии кнопки выход(или что там у Вас) и не морочить себе голову.

[konstantin1990]

Сообщение от kuklp

и не морочить себе голову.

Пожалуй вы правы. Сделал на comandbutton, единственная проблема не работает установка фокуса. не знаю почему вроде пишу

Private Sub calc_Click()
' îãðàíè÷åíèå äàâëåíèÿ
Select Case presstxt.Value
Case 0 To 898
Case 1014 To 9999
Case Else: Cancel = True
End Select
If Trim(presstxt.Text) = "" Then
presstxt.SetFocus
Dim Answer
Dim Message
Dim ButtonsAndIcon
Dim Title
Message = "Ââåäèòå çíà÷åíèå äàâëåíèÿ!"
ButtonsAndIcon = vbInformation
Title = "Îøèáêà!"
Answer = MsgBox(Message, ButtonsAndIcon, Title)
ElseIf (CLng(presstxt.Text) < 899) Or (CLng(presstxt.Text) > 1013) Then
presstxt.Value = ""
presstxt.SetFocus
Dim Answer1
Dim Message1
Dim ButtonsAndIcon1
Dim Title1
Message1 = "Äèàïàçîí äàâëåíèÿ îò 899 äî 1013 ìèëëèáàð!"
ButtonsAndIcon1 = vbInformation
Title1 = "Îøèáêà!"
Answer1 = MsgBox(Message1, ButtonsAndIcon1, Title1)
Cancel = True
End If

End Sub

но не работает