郵便番号から住所を自動的に表示する

本格的な住所変換の機能を実現するためには 郵便番号辞書などのツールを利用するなど 開発コストもかかりますが
Windows に標準インストールされる IME の機能を利用した簡易な方法もあります

利用するには 予め IME で郵便番号辞書が利用できるように設定しておく必要があります
設定状態によっては 正しく変換されないケースもあると思うので あくまで補助機能と位置づけておいたほうがよいでしょう

Private Sub Worksheet_Change(ByVal Target As Range)

    If (Target.Address = "$A$1") Then
        Cells(2, 1).Value = StrConv(Target.Value, vbWide)
        Cells(2, 1).Select
        SendKeys "{F2}", True
        SendKeys "+{HOME}", True
        SendKeys "{F13}", True
        SendKeys "{ENTER}", True
    End If

End Sub