[[20141022212331]] 『宛先をバラして表示させる方法』(さやか) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『宛先をバラして表示させる方法』(さやか)

 よろしくお願いします。

 B1データ
 郵便番号 111-11111 宛先 東京都○○○○○○○5-2 △ビル 5階502号室  宛名 ×× ××  受付番号12345678

 これをA1:A4に
 〒111-1111
 東京都○○○○○○○5-2 
 △ビル 5階502号室
 ×× ×× 様
           12345678

 以上のように分けて表示させるには? 封筒に宛先シールで使用します。

 郵便番号は〒に
 宛名は様をつけて
 「受付番号」の文字は不要で番号だけを宛名の右下あたりに
 宛先はどこでもいいのですが、スペースから改行してほしいです。
 なので上の例だと
 東京都○○○○○○○5-2 △ビル
 5階502号室
 ...でもOKです。
 スペースが無ければ改行無しでもOKです。

 毎回毎回必要な文字をコピーして貼り付けての繰り返しなので
 いっぺんに出来たらいいなと思っています。
 よろしくお願いします。

 ----追記----
 B1の正確な表示を勤務先にて確認しますのでそれからよろしく
 お願いします。

< 使用 Excel:Excel2007、使用 OS:WindowsXP >


 >B1の正確な表示を勤務先にて確認しますのでそれからよろしく
 >お願いします。
 確認していただきたいことは、順番はすべてこの通りなのか
 「郵便番号」「宛先」「宛名」の文字列は必ず入っているか

 5-2_△ビル_5階502号室(_はスペース)の改行ルールは文字制限か?
 最後の質問は、スペースを改行に変更すると
 5-2
 ビル
 5階
 てな感じになってしまうので、10行以上ならスペースで改行などルールがあると
 よいと思います。

(稲葉) 2014/10/23(木) 06:36


 >B1データ
 >郵便番号 111-11111 宛先 東京都○○○○○○○5-2 △ビル 5階502号室  宛名 ×× ××  受付番号12345678

 Sub test()
    With CreateObject("VBScript.RegExp")
        .Pattern = "郵便番号 (\d{3}\-\d{4}) 宛先 (\S+) *(.*) *宛名 *(.*\S) *受付番号(\d+)"
        If .test([b1]) Then
            [a1:a5] = Application.Trim(Application.Transpose(Split(.Replace([b1], "〒$1^$2^$3^$4^$5"), "^")))
        End If
    End With
End Sub
(seiya) 2014/10/23(木) 07:41
 注:郵便番号は 3桁-4桁で想定

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.