[[20131109063300]]　『住所を入力して郵便番号に変換』（くまざん）　ページの最後に飛ぶ

『住所を入力して郵便番号に変換』（くまざん）
住所を入力して郵便番号に変換するために、関数を=ASC(LEFT(PHONETIC(F4),8))と記述するのですがカタカナ（フリガナ）の住所が表示されます。郵便番号を表示させるには？？
excel2010、windows8　IME辞書の郵便番号辞書にはチェックを入れています。

 IME のツールで「追加辞書サービス」⇒「辞書の設定」
 で郵便辞書 の「一般」にチェックし、

 EXCEL のマクロの標準モジュールに下記のマクロを置いて、
 =getZIPCode(A1)
 として、コピー後に値を貼り付けでどうでしょうか。
 （辞書のチェックを外すと空白になってしまうので）

 Function getZIPCode(address)
    getZIPCode = ""
    Dim phonetic
    phonetic = Application.GetPhonetic(address)

    Do While phonetic <> ""
        If IsNumeric(Left(StrConv(phonetic, vbNarrow), 3)) = True Then
            getZIPCode = Left(phonetic, 8)
            Exit Function
        End If
        phonetic = Application.GetPhonetic()
    Loop
 End Function

 あとは VB の Q＆Aですが、ご参考までに。
http://okwave.jp/qa/q1206916.html
（Mook） 2013/11/09(土) 12:33

コメント返信：

[ 一覧(最新更新順) ]

[[20131109063300]] 『住所を入力して郵便番号に変換』（くまざん） ページの最後に飛ぶ

[[20131109063300]]　『住所を入力して郵便番号に変換』（くまざん）　ページの最後に飛ぶ