Office関連

住所から郵便番号を取得するVBAマクロ

住所から郵便番号 VBA」といったキーワード検索でのアクセスがあったので、簡単な処理を考えてみました。

住所と郵便番号の変換で、真っ先に思いつくのが「郵便番号変換ウィザード」です。

・住所から郵便番号、または郵便番号から住所を入力する(~ Excel 2003)
http://office.microsoft.com/ja-jp/HP001057416.aspx
・住所から郵便番号、または郵便番号から住所を入力する(Excel 2007 ~)
http://office.microsoft.com/ja-jp/HP010077514.aspx

セル範囲を指定して一括で郵便番号←→住所の変換が出来るのは便利なのですが、マクロから呼び出すのにいちいちウィザードを立ち上げるのは効率がよくありません。

住所から郵便番号の変換さえ行えれば良いので、CodePlexにある郵便番号変換ウィザードのソースコードから必要な部分だけを取り出してみました。

Option Explicit

Private Declare Function AdvZipOpen Lib "MSYUBIN7" () As Integer
Private Declare Function MSYubin7SetKey Lib "MSYUBIN7" (ByVal KEYWORD As Long) As Integer
Private Declare Function SetHyphenMode Lib "MSYUBIN7" (ByVal iHyphenMode As Long) As Integer
Private Declare Function Yubin57 Lib "MSYUBIN7" Alias "yubin57" (ByVal szAddress As String, _
                                                                 ByVal szZip5Code As String, _
                                                                 ByVal szZip7Code As String, _
                                                                 ByVal szBarCode As String) As Integer

Private Const cKEYWORD = 776219008

Public Sub Sample()
  Debug.Print GetZipCode7("沖縄県那覇市首里金城町1-2")
End Sub

Public Function GetZipCode7(ByVal Addr As String) As String
  Dim szZip7 As String * 8
  Dim szRet As String
  Dim iRet As Integer
  Dim i As Long
  
  '初期化
  szRet = ""
  MSYubin7SetKey cKEYWORD ' set the password to use MSYUBIN7.DLL
  AdvZipOpen  'open ZIP dictionary
  SetHyphenMode 1 'ハイフン有
  
  iRet = Yubin57(Addr, vbNullString, szZip7, vbNullString)
  If (iRet And 1) <> 0 Then
    i = InStr(szZip7, Chr(0))
    If i > 0 Then
      szRet = Trim(Left(szZip7, i - 1))
    Else
      szRet = Trim(szZip7)
    End If
  End If
  GetZipCode7 = szRet
End Function

MSYUBIN7_01

上記の通り、非常に簡単なコードで住所から郵便番号を取得することができます。

気になるのはYubin7のライセンスですが、YU-TANGさんのHPによると、Officeの正規ユーザーであれば利用しても問題無い様子。
(何年も前の情報なので、今はどうか未確認ですが・・・)

まあ、とりあえず、上記コードで住所から郵便番号の変換ができますので、興味がある方は一度お試しください。

ただし、上記コードはMsyubin7.dllの機能を呼び出しているので、郵便番号変換ウィザードのインストールが必須であることと、住所・郵便番号の情報は郵便番号変換ウィザードに依存しているため、最新の情報では無い場合がある点には注意してください。

Officeの新製品発売記念イベントに参加してきました。前のページ

2014年10月の人気記事次のページ

関連記事

  1. Office関連

    メモ帳だけでOutlook用アドインを作ってみる。

    「SharpDevelopでExcel用COMアドインを作成する方法」…

  2. アイコン一覧

    Office 2013 アイコン一覧(K,L)

    ・Office 2013 アイコン一覧 NUM…

  3. Office関連

    関数一覧(Excel 2013)

    関数の挿入ダイアログから抽出したExcel 2013の関数情報を表にし…

  4. Office関連

    「最速攻略 Wordマクロ/VBA徹底入門」レビュー

    いつもお世話になっているExcel MVPの伊藤さんに9月20日発売予…

  5. Office関連

    埋め込んだブックへのユーザー入力を活用する

    「Excel Web Appのブック埋め込みを試してみました。」でEx…

コメント

    • 山田
    • 2016年 11月 25日 4:01pm

    はじめまして。
    こちらの記事を参考に、住所→郵便番号に変換を試みているのですが
    szZip7が空欄のままで、何も出力されません。
    何か他に設定があるのでしょうか。
    郵便番号変換ウィザーどはインストールし、シート上で手動で出力はできます。
    ご教授いただけると幸いです。どうぞ宜しくお願いします。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP