指定されたセルに文字を入力したら自動で大文字ＶＢＡ

質問

エクセルＶＢＡの質問です。
セルＤ１０とＤ２５に小文字の英数字を入力したら自動で大文字の英数字にするＶＢＡはどの様にすれば宜しいでしょうか？
（例）　ｈｈｃ－３４５→ＨＨＣ－３４５
　　　　ｋＵｘＲ－６７８→ＫＵＸＲ－６７８

回答No.2

watabe007 · ベストアンサー

シートモジュールに以下を貼付けお試しください。
Private Sub Worksheet_Change(ByVal Target As Range)
　　If Intersect(Target, Range("D10,D25")) Is Nothing Then Exit Sub
　　On Error GoTo ErrorHandler
　　Application.EnableEvents = False
　　Target.Value = UCase(Target.Value)

ErrorHandler:
　　Application.EnableEvents = True
End Sub

お礼

ありがとうございました。
無事に解決出来ました。

回答No.1

skp026

以下は文字変換するVBAサンプルです。
http://www.moug.net/tech/exvba/0140027.html

以下はVBAではなく式で行う方法です。
https://dekiru.net/article/12567/

入力規則を使って入力できないようにするのも方法のひとつです。
http://www.excel-jiten.net/data_validation/two_byte_char_only.html

お礼

ありがとうございました。
勉強にまりました。