F013 郵便番号の書式を修正する関数

　全角・半角・－なし等で入力された郵便番号を半角”000-0000″の書式に変換するする関数です。

VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法

登録されたら、シート上からユーザー関数「 ZipFix」が使用できます。
使い方は　
ワークシート上で　= ZipFix (文字列)の関数として使用できます。
【例】
　ZipFix (“１６０－０００５”) → 160-0005
　ZipFix (1600005) → 160-0005

Function ZipFix(S)
’ 全角・半角・－なし等で入力された郵便番号を半角”000-0000″の書式に変換する
On Error GoTo EXITFUN

If S = “” Then
　 ZipFix = “”
　GoTo EXITFUN
ElseIf IsNumeric(S) = True Then
　ZipFix = Format(Val(S), “000-0000”)
Else
　ZipFix = StrConv(S, vbNarrow)
End If

EXITFUN:
End Function

ここで紹介したコード使用による損害に対しては一切責任は負えません。