Excelを使用しているとセルに全角が入力された場合、
数字が入力された場合などで分岐をさせたいと思います。

完成イメージ
セルに数字が入力された場合

セルに全角がある場合

それ以外の場合

以下ソース

Private Sub Worksheet_Change(ByVal Target As Range)

　　’A1セルに入力があった場合を判定します。
　　If Intersect(Target, Range(“$A$1”)) Is Nothing Or IsEmpty(Range(“$A$1”).Value) Then
　　　　’A1セル以外の入力、A1セルが空白の場合の処理
　　Else
　　　　’IsNumericは数字かどうかを判定します。
　　　　If IsNumeric(StrConv(Target.Value, vbNarrow)) Or 　WorksheetFunction.IsNumber(Target.Value) Then
　　　　　　’数値の場合の処理
　　　　　　MsgBox “数値です！”
　　　　ElseIf Len(Target.Value) <> LenB(StrConv(Target.Value, vbFromUnicode)) Then
　　　　　　’全角がある場合の処理
　　　　　　MsgBox “全角です！”
　　　　Else
　　　　　　’それ以外の処理
　　　　　　MsgBox “上記以外です”
　　　　End If
　　End If
End Sub