全角の数式のみ半角にする関数です。エクセルの関数で半角に変換するとカタカナまで半角に変換されてしまいます、この関数を使うことで数字のみ半角に変換できます。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「NumFullHalf」が使用できます。
使い方は
ワークシート上で = NumFullHalf (文字列)の関数として使用できます。
【例】
NumFullHalf (“１丁目５番５号”) → 1丁目5番5号
NumFullHalf (“平成２５年１月１日”) → 平成25年1月1日
Function NumFullHalf(S)
’全角数字を半角数字にする関数
On Error GoTo EXITFUN
Dim NumFull As Variant
NumFull = Split(“０,１,２,３,４,５,６,７,８,９”, “,”)
For Num = 0 To 9
S = Replace(S, NumFull(Num), Num)
NumFullHalf = S
Next
EXITFUN:
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。