Sub Test()
MsgBox ВсеСимволыРазрешенные("11322", "0123456789")
End Sub
Function ВсеСимволыРазрешенные(Проверяемая As String, Образец As String) As Boolean
Dim i As Long
ВсеСимволыРазрешенные = True
i = 1
While ВсеСимволыРазрешенные And Len(Проверяемая) >= i
If InStr(1, Образец, Mid(Проверяемая, i, 1)) = 0 Then ВсеСимволыРазрешенные = False
i = i + 1
Wend
End Function
VBA: Проверка значений текстового поля
1) в ехселе на форме надо сделать проверку значений в текстовом поле
те. имеем 3 полей тхт *txtbox* , надо проверить
1 -должно содержать 10 значений типа целое число
*др словами 10 цифр*
2 -то же но 12 значений типа целое число
3 - только буквы кол-во значения не имеет
потом надо сделать проверку на то что бы все поля были заполненны...
передается усе это cmd1_click()
2) передача из txtbox сделана в таблицу ехселя cmd2_click() в конкретные ячейки a1,a2,a3
должна считать обратно значения переданные в конкретную ячейку
ну вот в принципе и все задачи очень легкие и выполнимые... просто запарился не успеваю..(( сессия...(( P(
только с кодом помогите...пожалуйста...)) спасиб за внимание...
те. имеем 3 полей тхт *txtbox* , надо проверить
1 -должно содержать 10 значений типа целое число
*др словами 10 цифр*
2 -то же но 12 значений типа целое число
3 - только буквы кол-во значения не имеет
потом надо сделать проверку на то что бы все поля были заполненны...
передается усе это cmd1_click()
2) передача из txtbox сделана в таблицу ехселя cmd2_click() в конкретные ячейки a1,a2,a3
должна считать обратно значения переданные в конкретную ячейку
ну вот в принципе и все задачи очень легкие и выполнимые... просто запарился не успеваю..(( сессия...(( P(
только с кодом помогите...пожалуйста...)) спасиб за внимание...
Делаешь вот такую функцию:
Так сможешь проверить свои текстбоксы:
If ВсеСимволыРазрешенные(mytext, "0123456789") And Len(mytext)=10 Then ...все в порядке
и два других текстбокса такими же If-ами.
Код:
Так сможешь проверить свои текстбоксы:
If ВсеСимволыРазрешенные(mytext, "0123456789") And Len(mytext)=10 Then ...все в порядке
и два других текстбокса такими же If-ами.
Цитата:
Originally posted by Cutty Sark
Делаешь вот такую функцию:
Так сможешь проверить свои текстбоксы:
If ВсеСимволыРазрешенные(mytext, "0123456789") And Len(mytext)=10 Then ...все в порядке
и два других текстбокса такими же If-ами.
Делаешь вот такую функцию:
Код:
Sub Test()
MsgBox ВсеСимволыРазрешенные("11322", "0123456789")
End Sub
Function ВсеСимволыРазрешенные(Проверяемая As String, Образец As String) As Boolean
Dim i As Long
ВсеСимволыРазрешенные = True
i = 1
While ВсеСимволыРазрешенные And Len(Проверяемая) >= i
If InStr(1, Образец, Mid(Проверяемая, i, 1)) = 0 Then ВсеСимволыРазрешенные = False
i = i + 1
Wend
End Function
MsgBox ВсеСимволыРазрешенные("11322", "0123456789")
End Sub
Function ВсеСимволыРазрешенные(Проверяемая As String, Образец As String) As Boolean
Dim i As Long
ВсеСимволыРазрешенные = True
i = 1
While ВсеСимволыРазрешенные And Len(Проверяемая) >= i
If InStr(1, Образец, Mid(Проверяемая, i, 1)) = 0 Then ВсеСимволыРазрешенные = False
i = i + 1
Wend
End Function
Так сможешь проверить свои текстбоксы:
If ВсеСимволыРазрешенные(mytext, "0123456789") And Len(mytext)=10 Then ...все в порядке
и два других текстбокса такими же If-ами.
СПАСИБО....прикольно получилось...))