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

Формулировка задачи:

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

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

Решение задачи: «Как сделать так чтобы в textbox можно было вписать только буквы?»

textual
                            Листинг программы 
                        

                            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
                        

Оцени полезность:

14 голосов , оценка 4.286 из 5

Похожие ответы