цифра или буква

[roborrr]

помогите решить такую задачу:
В Textbox1 вводим информацию и вставим ее в заранее виделенной ячейке. Надо сделать так что:

1) Если виделенная ячейка находится в первом столбце то разрешить в эту ячейку всавит текст которий содержит только цифри.

2) Если виделенная ячейка находится во втором столбце то разрешить в эту ячейку всавит текст которий содержит хотья бы одну букву.

3) Если виделенная ячейка находится в третем столбце то разрешить в эту ячейку всавит текст которий содержит только цифри и может быть
одну точку.

[doober]

Как вариант

Private Sub CommandButton1_Click()
Dim SSl As String, Fl1 As Boolean, Fl2 As Boolean
Dim Col As Integer, Rt, T_count  As Integer
Col = ActiveCell.Column
SSl = TextBox1.Text
Rt = Split(SSl, ".", -1)
T_count = UBound(Rt)
If SSl Like "*[А-яё]*" Or SSl Like "*[A-z]*" Or SSl Like "*,*" Then Fl1 = True
If IsNumeric(SSl) = True And Fl1 = False Then Fl2 = True
Select Case Col
Case 1
If Fl2 = True Then ActiveCell = SSl
Case 2
If Fl1 = True Then ActiveCell = SSl
Case 3
If T_count < 2 And IsNumeric(Replace(SSl, ".", "")) = True And Fl1 = False Then ActiveCell = SSl
End Select
End Sub

[roborrr]

спасибо! Вы назвали код "как вариант". Я добавил бы слово "Элегантный".

[doober]

Себе бы я делал на регулярных выражениях.

[nilem]

Сергей, а если с регулярными

Private Sub CommandButton1_Click()
Dim ssl As String, Col As Integer
Col = ActiveCell.Column: ssl = Me.TextBox1.Text
With CreateObject("VBScript.RegExp")
    .Global = True
    Select Case Col
        Case 1: .Pattern = "^[0-9]*$"
        Case 2: .Pattern = "[а-яА-Я]"
        Case 3: .Pattern = "^[0-9.]*$"
    End Select
    If .test(ssl) Then ActiveCell = ssl
End With
End Sub

Так правильно? (может, как-то по другому?)

[doober]

Да Николай,все правильно,только надо проверять 1 точку.
У тебя срабатываеn на цифры+точки
233.0.0=True

[doober]

Private Sub CommandButton1_Click()

Dim ssl As String, Col As Integer, Fl As Integer
Col = ActiveCell.Column: ssl = Me.TextBox1.Text
 Set RegExp = CreateObject("VBScript.RegExp")
With RegExp
    .Global = True
    Select Case Col
        Case 1
        .Pattern = "^[0-9]*$"
        Case 2: .Pattern =  "[а-яА-Я]"
        Case 3: .Pattern = "\."
          Set objMatches = .Execute(ssl)
          Fl = objMatches.Count
          .Pattern = "^[0-9.]*$"
    End Select
    If .test(ssl) And Fl < 2 Then ActiveCell = ssl
End With
End Sub

[nilem]

Понял. Оказывается, не просто. Сергей, спасибо за пример.

[nilem]

... а если так?

Case 3: .Pattern = "^[0-9]*\.?[0-9]*$"

ну, чтобы обойтись без objMatches .

[doober]

+5 .....