Force users to enter TEXT ONLY using inputbox method "NEEDED"

[love_guy_1977]

Hi dears,
I need your help to force users to enter TEXT ONLY (From A to Z only) using inputbox method.
Meaning " / % $ & # is not allowed"

Note that I i don't want the user leave the inputbox until he/she enter TEXT even if he/she press No then return bigging of the inputbox.

Thanks in advance

 

[AlanAnderson]

Hi,

Here is a simple routine to test for text characters. Hope it will help you.

Regards,

Alan

Sub AscTest()
vText = InputBox("Enter Text")
    If Asc(vText) > 64 And Asc(vText) < 91 Then
        MsgBox "This is a proper Upper case text character"
    ElseIf Asc(vText) > 96 And Asc(vText) < 123 Then
        MsgBox "This is a proper Lower case text character"
    Else
        MsgBox "Invalid entry"
    End If
End Sub

 

[Scott Huish]

This will not allow the user to exit the inputbox until valid characters are entered and will remove any invalid characters that are typed into the box after OK is hit.

Public Done As Boolean
Sub test()
Dim x, y As String
Do
SendKeys x
y = InputBox("Enter Text")
x = AlphaOnly(y)
Loop Until Done And y <> ""
End Sub

Function AlphaOnly(r As String) As String
With CreateObject("vbscript.regexp")
    .Pattern = "[^A-Z]"
    .Ignorecase = True
    .Global = True
    Done = Not (.test(r))
    AlphaOnly = .Replace(r, "")
End With
End Function

 

[love_guy_1977]

This will not allow the user to exit the inputbox until valid characters are entered and will remove any invalid characters that are typed into the box after OK is hit.

Public Done As Boolean
Sub test()
Dim x, y As String
Do
SendKeys x
y = InputBox("Enter Text")
x = AlphaOnly(y)
Loop Until Done And y <> ""
End Sub

Function AlphaOnly(r As String) As String
With CreateObject("vbscript.regexp")
    .Pattern = "[^A-Z]"
    .Ignorecase = True
    .Global = True
    Done = Not (.test(r))
    AlphaOnly = .Replace(r, "")
End With
End Function

Thank you very much