EXCEL 特定の文字+英数文字を全て半角に自動で変換したい

質問

お世話になります。
特定の文字+英数文字を全て半角に自動で変換される様にしたいです。

１つのセルに以下の様な改行を含んだ文字が登録されたとします。

<登録文字>
赤：１
青：２

この文字を以下のように"："+"数字"の部分を自動で半角に変換したいです。
変換の対象はセル番号B1:H31の範囲となります。

<変換後文字>
赤:1
青:2

申し訳ございませんがご教授の程よろしくお願いします。

回答No.2

mu2011 · ベストアンサー

ＶＢＡの一例です。
（１）シートタブ上で右クリック→コード表示
（３）以下のソースを右枠に貼り付け→alt＋F4キー押下
　Private Sub Worksheet_Change(ByVal Target As Range)
　Dim myWK As String
　On Error GoTo error
　If Intersect(Target, Range("B1:H31")) Is Nothing Then Exit Sub
　　myWK = Target.Value
　 Application.EnableEvents = False
Target.Value = StrConv(myWK, 8)
Application.EnableEvents = True
　error:
　End Sub

お礼

希望の通りとなりました。ありがとうございます。

回答No.1

hallo-2007

関数でよければ
A1に赤：１　　B1に=ASC(A1)
ではいかがでしょうか。