入力を完了したら大文字に変換するようにしたい

A1～A3、B1～B3セルに文字（英数字など全て）を入力していきます。その過程で、例えばA1セルに半角全角を混じって入力したとしても、そのA１セルの入力が終わったら（EnterあるいはTab等で次のセルにいく）と、自動で全角にしてくれるようなマクロを組むことは可能でしょうか・・？もしそれが不可能であれば、入力が終わった後に、ボタンを押したらA1～A3、B1～B3セルの文字が全角に変換するマクロでも結構です；ご教授お願いいたします；

No.1 ベストアンサー 回答者： tom04 回答日時： 2015/07/31 09:40

こんにちは！

一例です。

シートモジュールにしてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
Dim str As String
If Intersect(Target, Range("A1:A3,B1:B3")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Value <> "" Then
str = .Value
.Value = StrConv(str, vbWide)
End If
End With
End Sub 'この行まで//

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

tom04さんありがとうございます！！
バッチリ動きました！　
お早いご回答に感謝いたします(T_T)

お礼日時：2015/07/31 19:22