UpperCase in InputBOX

[kayza]

Hello everyone.

is there any idea how to make input value in inputBox become UpperCase
here is my several codes, and it's not working.
In = Ucase(Inputbox("my message"))
---
In2 = InputBox("my message"))
In2 = StrConv(In2, vbUpperCase)

Any and all help is greatly appreciated. Thank you!

 

[Rick Rothstein]

Hello everyone.

is there any idea how to make input value in inputBox become UpperCase
here is my several codes, and it's not working.
In = Ucase(Inputbox("my message"))
---
In2 = InputBox("my message"))
In2 = StrConv(In2, vbUpperCase)

Any and all help is greatly appreciated. Thank you!

If you mean, can you make the text the user types upper case as they type it, no, you cannot force an InputBox to do that.

 

[My Aswer Is This]

Maybe this is what you want:

Sub My_Script()
Dim ans As String
Dim anss As String
ans = InputBox("Enter Value")
anss = UCase(ans)
MsgBox anss
End Sub

 

[Rick Rothstein]

Maybe this is what you want:

Sub My_Script()
Dim ans As String
Dim anss As String
ans = InputBox("Enter Value")
anss = UCase(ans)
MsgBox anss
End Sub

Except that you used an extra line of code, that is equivalent to the first attempt the OP posted, namely this...

In = Ucase(Inputbox("my message"))

which he said did not do what he wanted. Because that did not do what he wanted is why I assumed he was wanting to upper case the text the user typed in as it was being typed.

 

[kayza]

Except that you used an extra line of code, that is equivalent to the first attempt the OP posted, namely this...

In = Ucase(Inputbox("my message"))

which he said did not do what he wanted. Because that did not do what he wanted is why I assumed he was wanting to upper case the text the user typed in as it was being typed.

Thank you for all your help.
Yes indeed, I want the value in the input box to automatically be capitalized, no matter the user write with lowercase or other.
Thank you all

 

[My Aswer Is This]

You could use something like this:
Using a Activex Textbox:

Private Sub TextBox1_Change()
TextBox1.Text = UCase(TextBox1.Text)
End Sub
Private Sub TextBox1_LostFocus()
Cells(1, 1).Value = Me.TextBox1.Value
End Sub