Input Box - UPPERCASE lowercase

[Guest]

Is it possible to have a InputBox ignore the case?

CHAIR = chair = Chair = ChAiR = etc......

 

[Norman Jones]

Hi Alex,

Dim sStr

sStr = LCase(Application.InputBox("Type something"))
MsgBox sStr

 

[John Green]

If you are talking about a logical test such as

If "Chair" = "chair" Then

you can place the following statement at the top of your module

Option Compare Text

This makes text comparisons non case sensitive.

Alternatively, you can use the following

If Upper(X) = Upper(Y) Then

 

[Tom Ogilvy]

res = InputBox("Enter word")
res = lcase(res)
' or res = Ucase(res)

or if you are testing

if lcase(res) = "chair" then

 

[Guest]

Actually I just want the Inputbox to ignore whatever case is entered and just
take it for what it is.

So I don't have to have every possible combination listed in a IF statement...

 

[Guest]

I tried this... but it just exited out....

Hi Alex,

Dim sStr

sStr = LCase(Application.InputBox("Type something"))
MsgBox sStr

 

[Guest]

I'm messing around to get a better understanding of InputBoxes and IF
statements and thier it's limits...

Here's what I put together....

Dim tea As String

More:

tea = LCase(Application.InputBox("Please enter a tea beverage", "Tea Guide"))
If tea = "" Then
Exit Sub
ElseIf tea = "Chai" Then
MsgBox ("Good Tea, try something else")
GoTo More
ElseIf tea = "Green" Then
MsgBox ("Great Tea, try something else")
GoTo More
ElseIf tea = "Black" Then
MsgBox ("Better Tea, try something else")
GoTo More
ElseIf tea = "Herbal" Then
MsgBox ("BEST TEA!!!")
Else: tea = vbCancel
Exit Sub
End If

 

[Tom Ogilvy]

You forgot to say none of those work unless you did

Option Compare Text

at the top of the module

If you convert tea to lower case, then it can't match a string that contains
upper case.

You should change your hard coded values to all lower case, such as Chai to
chai, Black to black, etc

 

[John Green]

As you have converted your input to lower case, you must use lower case in
all your comparisons. For example

ElseIf tea="chai" Then