Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10820 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19747】町村合併した住所録を新町名に変更したい おがけん 04/11/16(火) 14:59 質問[未読]
【19751】Re:町村合併した住所録を新町名に変更したい IROC 04/11/16(火) 15:49 回答[未読]
【19771】Re:町村合併した住所録を新町名に変更したい 角田 04/11/16(火) 17:00 回答[未読]
【19841】Re:町村合併した住所録を新町名に変更したい おがけん 04/11/17(水) 18:56 お礼[未読]
【19747】町村合併した住所録を新町名に変更したい
質問  おがけん  - 04/11/16(火) 14:59 -
引用なし
パスワード
   SHEET1に住所録
1　　　　2　　　　3
氏名　　郵便番号　住所
（以下５０００行ほどあります）

SHEET2に新旧の市町村対比リストがあります
1　　　　　　2　　
旧町名　　　新町名
山田町　　　朝日市　
山田町東　　朝日市
河上町　　　川上町
（以下２０行ほどあります）
よろしくお願いします。
なお初心者ですので
SUB ()
END SUB
の間に入力したらよい方法でご説明ください。
【19751】Re:町村合併した住所録を新町名に変更し...
回答  IROC  - 04/11/16(火) 15:49 -
引用なし
パスワード
   一般機能の「置換」をお試し下さい。
それをマクロの記録すれば参考になると思います。
【19771】Re:町村合併した住所録を新町名に変更し...
回答  角田 WEB  - 04/11/16(火) 17:00 -
引用なし
パスワード
   こんにちは。
> 旧町名　　　新町名
> 山田町　　　朝日市　
> 山田町東　　朝日市
都道府県から定義しなければ正確に処理できないでしょう。
(町なら、その前に郡名が付いているでしょうし)

市町村名の次に来る"町域/丁目番地"が変更後も同じとは限らないですよ。
[町→市]に変わったのなら
　朝日市 山田xx丁目xx番xx号
　朝日市 山田東yy丁目yy番yy号　　（市町村名は"朝日市"まで）
というような変わり方をしているようにも思えますしね。

また、置換するなら文字数の多い方(山田町東→山田町)から処理しないと
おかしくなりますよ。
"〜山田町東‥‥‥" →山田町で置換→ "〜朝日市東‥‥‥"

σ(^_^)の[kt電話郵便アドイン]
http://www.h3.dion.ne.jp/~sakatsu/TelPost.htm
の一括変換機能で、[住所⇒〒]変換を[エラーメッセージ有り]で行なうと
市町村名が変わっている所では、新しい市町村名をエラーメッセージで
返します（変わってないところは郵便番号が出ます）。
それを見ながら、現住所の町域/丁目/番地をコピペして処理するのも
一案かな‥‥‥
【19841】Re:町村合併した住所録を新町名に変更し...
お礼  おがけん  - 04/11/17(水) 18:56 -
引用なし
パスワード
   レスをありがとうございます。
条件がいろいろあって難しいようですね。
置換えでがんばります。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10820 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free