|
▼ブルー さん:
>Hirofumiさん、ponponさんお返事ありがとうございます。
>説明不足だったのですが、今テキストボックス(TextBox1)に入力した内容をCommandButton3を押す事によって英数・文字を全角・大文字に変更したいと思ってます。
>教えてもらったを見ながら以下のように変更してみましたがだめでした。
>
>CommandButton3 = StrConv(TextBox1.Value, vbUpperCase + vbWide)
>
>
>再度アドバイスお願い出来ないでしょうか?
UserFormのTextBox、CommandButtonなら
Private Sub CommandButton3_Click()
With Me.TextBox1
.Text = StrConv(.Text, vbUpperCase + vbWide)
End With
End Sub
ただ、通常は、TextBoxのAfterUpdateイヴェント等を使って
Private Sub TextBox1_AfterUpdate()
With Me.TextBox1
.Text = StrConv(.Text, vbUpperCase + vbWide)
End With
End Sub
|
|