Как сделать так чтобы в textbox можно было вписать только буквы?

@Alexmsk27 · Регистрация: 07.04.2016

Студворк — интернет-сервис помощи студентам

Visual Basic

Private Sub Textbox1_Change()
Textbox1.Value = ChangeFirstLiter(Textbox1.Value)
If Textbox1 = "" Then
        Textbox1.BackColor = vbRed
    Else
        Textbox1.BackColor = vbWhite              
    End If
End Sub

Имею такой код на данный момент. Подскажите пожалуйста как его доработать можно.

@KoGG · 13.05.2016, 14:13

Только буквы и пробел

Visual Basic

Private Sub Textbox1_Change()
    ''TextBox1.Value = ChangeFirstLiter(TextBox1.Value)
    TextBox1.Value = Bukvy(TextBox1.Value)
End Sub
 
Function Bukvy(S) As String
    Dim i%, B$
    For i = 1 To Len(S)
        B = Mid(S, i, 1)
        Select Case B
            Case "A" To "Z", "a" To "z", "А" To "Я", "а" To "я", "Ё", "ё", " "
                Bukvy = Bukvy & B
        End Select
    Next i
End Function

@Alexmsk27 · 13.05.2016, 14:29 **[ТС]**

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

Только буквы и пробел

Visual Basic

Private Sub Textbox1_Change()
    ''TextBox1.Value = ChangeFirstLiter(TextBox1.Value)
    TextBox1.Value = Bukvy(TextBox1.Value)
End Sub
 
Function Bukvy(S) As String
    Dim i%, B$
    For i = 1 To Len(S)
        B = Mid(S, i, 1)
        Select Case B
            Case "A" To "Z", "a" To "z", "А" To "Я", "а" To "я", "Ё", "ё", " "
                Bukvy = Bukvy & B
        End Select
    Next i
End Function

Спасибо!!! Всё работает

@МВТ · 13.05.2016, 17:06

Вариант на регулярках

Visual Basic

Function Bukvy$(text As String)
    With CreateObject("VBScript.Regexp")
        .IgnoreCase = True
        .Global = True
        .Pattern = "[^a-zа-яё ]"
        Bukvy = .Replace(text, "")
    End With
End Function

@Alexmsk27 · 13.05.2016, 17:26 **[ТС]**

Сообщение от МВТ

Вариант на регулярках

Visual Basic

Function Bukvy$(text As String)
    With CreateObject("VBScript.Regexp")
        .IgnoreCase = True
        .Global = True
        .Pattern = "[^a-zа-яё ]"
        Bukvy = .Replace(text, "")
    End With
End Function

извините, а что такое регулярки?
и такой код первый раз вижу

@МВТ · 13.05.2016, 17:31

Регулярки - регулярные выражения. Поищите, информации по ним море

@Alexmsk27 · 17.05.2016, 12:33 **[ТС]**

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

Только буквы и пробел

Visual Basic

Private Sub Textbox1_Change()
    ''TextBox1.Value = ChangeFirstLiter(TextBox1.Value)
    TextBox1.Value = Bukvy(TextBox1.Value)
End Sub
 
Function Bukvy(S) As String
    Dim i%, B$
    For i = 1 To Len(S)
        B = Mid(S, i, 1)
        Select Case B
            Case "A" To "Z", "a" To "z", "А" To "Я", "а" To "я", "Ё", "ё", " "
                Bukvy = Bukvy & B
        End Select
    Next i
End Function

А как сделать чтоб и русские буквы тоже вписать можно было?

~~Shersh~~ · 17.05.2016, 13:56

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

как сделать чтоб и русские буквы тоже вписать можно было?

А

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

"я", "Ё"

- это не русские буквы?

Вариант проверки без цикла -

Visual Basic

1
2
3

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If LCase(ChrW(KeyAscii)) = UCase(ChrW(KeyAscii)) Then KeyAscii = 0
End Sub

@Alexmsk27 · 17.05.2016, 17:13 **[ТС]**

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

А - это не русские буквы?

Вариант проверки без цикла -

Visual Basic

1
2
3

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If LCase(ChrW(KeyAscii)) = UCase(ChrW(KeyAscii)) Then KeyAscii = 0
End Sub

Не увидел. уже сделал.
спасибо)

@МВТ 45 / 45 / 15 Регистрация: 14.04.2016 Сообщений: 128
	13.05.2016, 17:31	6
	Регулярки - регулярные выражения. Поищите, информации по ним море 0

Опции темы

Как сделать так чтобы в textbox можно было вписать только буквы?

Решение