Определить, что строка содержит буквы

[motorway]

Как определить, что строка содержит буквы (рус. или англ.)? Также, как опр., что строка состоит только из цифр, запятых и точек и [] ?

[doober]

Вот код для чтения текста по символам,а дальше составите условие -
если цифра то сделать то
если буква то сделать то
и т.д. по своему желанию

Dim n As Integer
Dim sl, bukva As String


n = Len(sl)

For n = 1 To Len(sl)

bukva  = Mid(sl, n, 1)


Next

Либо по кодам ASCII и MS-DOS

Dim n ,m As Integer
Dim sl  As String


n = Len(sl)

For n = 1 To Len(sl)

m =   Asc(Mid(sl, n, 1))


Next

Если m в диапазоне 48-57 то цифра
если 65-90 и 97 -122 английские буквы
если 128-175 и 224-247 русские или украинские

[EducatedFool]

Option Compare Text

Sub test()
    txt = "13242342134[].,"

    If txt Like "*[A-Z]*" Then MsgBox "Строка содержит английские буквы"
    If txt Like "*[А-Я]*" Then MsgBox "Строка содержит русские буквы"
    If txt Like "*[A-Z]*" Or txt Like "*[А-Я]*" Then MsgBox "Строка содержит русские или английские буквы"
    If txt Like "*[A-Z]*" And txt Like "*[А-Я]*" Then MsgBox "Строка содержит русские и английские буквы"
    If Not IsNumeric(txt) Then MsgBox "Строка не является числом"
    If txt Like String(Len(txt), "#") Then MsgBox "Строка состоит только из цифр"

    ДопустимыеСимволы = "0123456789.,[]"
    Dim ТолькоНужныеСимволы As Boolean: ТолькоНужныеСимволы = True
    For i = 1 To Len(txt)
        ТолькоНужныеСимволы = ТолькоНужныеСимволы And InStr(1, ДопустимыеСимволы, Mid(txt, i, 1))
    Next
    If ТолькоНужныеСимволы Then MsgBox "Строка содержит только символы из набора " & ДопустимыеСимволы
End Sub

[IgorGO]

Function ОтброситьПравильные(s0 As String, gc As String) As String
  s = ""
  For c = 1 To Len(s0)
    If InStr(gc, Mid(s0, c, 1)) = 0 Then s = s & Mid(s0, c, 1)
  Next
  ОтброситьПравильные = s
End Function

для функции надо два параметра:
1 - строка, которую проверяем
2 - строка, содержащая "правильные символы"
если функция вернула "" - все символы правильные.

[SAS888]

Где-то автор темы потерялся.
А вот я, например, под словом "строка" понимаю строку, а не ячейку..!?

[motorway]

Спасибо за код, пока не тестировал. Ну я тоже под словом строка понимаю строку