VBAのChangeイベントを用いてセルの全角数字を半角数字にする処理を実装したい

Question

VBAのChangeイベントを用いてセルに全角数字を入力した際にすべて半角数字にする処理を実装したいのです。
しかし、下記のコードではセルに全角数字を含む値を入力してエンターを押しても空白セルになってしまいます。
どうするれば解決できるでしょうか。よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)

'セルの値が変更されたときに全角数字をすべて半角数字に変更する。

Dim i As Long
Dim ansData As Variant

ansData = ""
For i = 1 To Len(Target.Value)

    If Mid(Target.Value, i, 1) Like "[０-９]" Then
        ansData = ansData & StrConv(Mid(Target.Value, i, 1), vbNarrow)
    Else
        ansData = ansData & Mid(Target.Value, i, 1)
    End If
    
    
Next i

Debug.Print ansData
Debug.Print Target.Address

If ansData <> Target.Value Then
    Application.EnableEvents = False
    Target.Value = andData
    Application.EnableEvents = True
End If
        

End Sub

Answer 1

Target.Value = andData
は
Target.Value = ansData
の間違いですね。

先頭に
Option Explicit
をつけるとこのような間違いを見つけやすくなります。
Option Explicitをつけてから、コーディングするようにしましょう。
（VBE）のオプションで「変数の宣言を強制する」にチェックをいれると、
開始時に自動的に、Option Explicitが付加されます。

Comments

[Poi_Poi]

ミスを防ぐ方法まで提示していただきありがとうございます。

Answer 2

タイポですね。

If ansData <> Target.Value Then
    Application.EnableEvents = False
    Target.Value = ansData 'andData  を ansData に修正
    Application.EnableEvents = True
End If

モジュールの先頭に Option Explicit を記述しておいて変数宣言の強制をしておくと簡単にミスが見つかります。

Office TANAKA - 今さら聞けないVBA[Option Explicitって何？]

Comments

[Poi_Poi]

ミスを防ぐ方法まで提示していただきありがとうございます。

Answer 3

最後がansDataでなくandDataになっちゃってますね

Comments

[Poi_Poi]

早速のご回答ありがとうございます。
お恥ずかしい限りです。