Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7211 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【40566】住所からある条件に変更を atsuko 06/7/18(火) 11:07 質問[未読]
【40570】Re:住所からある条件に変更を Statis 06/7/18(火) 12:25 発言[未読]
【40572】Re:住所からある条件に変更を atsuko 06/7/18(火) 13:01 発言[未読]
【40573】Re:住所からある条件に変更を Statis 06/7/18(火) 13:22 発言[未読]
【40595】Re:住所からある条件に変更を inoue 06/7/18(火) 16:45 発言[未読]
【40597】Re:住所からある条件に変更を ｍ2ｍ10 06/7/18(火) 17:06 発言[未読]
【40598】Re:住所からある条件に変更を Jaka 06/7/18(火) 17:21 発言[未読]
【40606】Re:住所からある条件に変更を atsuko 06/7/18(火) 19:01 お礼[未読]
【40566】住所からある条件に変更を
質問  atsuko  - 06/7/18(火) 11:07 -
引用なし
パスワード
   教えてください。
エクセルのシートにある住所が
A県B市C町やD県E郡F町という並びであるとします。

その表から市がある場合は市のみを
市がない場合は郡から町までを表示するものを作成したいのですが

例
静岡県浜松市高林三丁目　　→　　浜松市
愛知県西加茂郡三好町大字１２３４　　→　　西加茂郡三好町

へ変換したいのですが・・
簡単な方法と勉強としてそのVBA等の実施していることを教えていただけると
ありがたいです。
【40570】Re:住所からある条件に変更を
発言  Statis  - 06/7/18(火) 12:25 -
引用なし
パスワード
   こんにちは

記載の例のような感じなら良いのですが

下記の場合の区分が付きませんね（途中で市や町がある場合）

千葉県市川市八幡４丁目２番１号
福島県西白河郡矢吹町田町74

そのへんは如何お考えですか？
【40572】Re:住所からある条件に変更を
発言  atsuko  - 06/7/18(火) 13:01 -
引用なし
パスワード
   ▼Statis さん：
>こんにちは
>
>記載の例のような感じなら良いのですが
>
>下記の場合の区分が付きませんね（途中で市や町がある場合）
>
>千葉県市川市八幡４丁目２番１号
>福島県西白河郡矢吹町田町74
>
>そのへんは如何お考えですか？

上記の場合は　市川市
　　　　　　　西白河郡矢吹町　という感じで出したいです
【40573】Re:住所からある条件に変更を
発言  Statis  - 06/7/18(火) 13:22 -
引用なし
パスワード
   ▼atsuko さん：
こんにちは

>>記載の例のような感じなら良いのですが
>>
>>下記の場合の区分が付きませんね（途中で市や町がある場合）
>>
>>千葉県市川市八幡４丁目２番１号
>>福島県西白河郡矢吹町田町74
>>
>>そのへんは如何お考えですか？
>
>上記の場合は　市川市
>　　　　　　　西白河郡矢吹町　という感じで出したいです

出したいと言う事は解かるのですが、
何処までが市の名前なのかＶＢＡでは判断が付きません。
大変難しいと思います。（私には）
>西白河郡矢吹町　という感じで出したいです
西白河郡矢吹町田町　かも？

他の方の回答をお待ちください。
【40595】Re:住所からある条件に変更を
発言  inoue E-MAILWEB  - 06/7/18(火) 16:45 -
引用なし
パスワード
   > 上記の場合は　市川市
>　　西白河郡矢吹町　という感じで出したいです
市の重複などを郵便HPのCSVデータから抽出してみましたが、
そのようなワンパターンの例外だけではありません。
あまりに多いので町村の判定は除きましたが、
それでも何百も出てきます。

下記はその一部。

[市が重複]
北海道余市郡余市町朝日町
青森県八戸市十日市
茨城県かすみがうら市市川
栃木県日光市今市
千葉県市川市市川南
千葉県市原市市場
新潟県十日町市市之越
新潟県十日町市水沢市之沢

[市・郡混在]
青森県上北郡七戸町市ノ渡
岩手県岩手郡岩手町五日市
福島県郡山市田村町大供
栃木県芳賀郡市貝町羽仏
神奈川県足柄上郡山北町山市場
長野県下伊那郡高森町下市田
岐阜県郡上市白鳥町阿多岐
愛知県蒲郡市蒲郡町
富山県中新川郡上市町黒川
石川県石川郡野々市町上林
山梨県西八代郡市川三郷町岩下
福井県吉田郡永平寺町市荒川
兵庫県神崎郡市川町小室
奈良県高市郡明日香村畑
奈良県吉野郡下市町平原
【40597】Re:住所からある条件に変更を
発言  ｍ2ｍ10  - 06/7/18(火) 17:06 -
引用なし
パスワード
   こんちは

　http://www.post.japanpost.jp/zipcode/dl/oogaki.html

　郵便番号のＣＳＶを利用が、
　
　いいと思います。
【40598】Re:住所からある条件に変更を
発言  Jaka  - 06/7/18(火) 17:21 -
引用なし
パスワード
   http://www2.odn.ne.jp/excel/waza/function.html#SEC26
爺爺岳さんが作ったものをさらに手を加えたらしい、これを利用させてもらったらどうでしょうか？
これをどう利用したら良いのか今のところ案が無いけど....。

前から似たようなものをマクロで作ろうかと思ってはいるんですが、いまいち手法が思いつかない。
また、どんなパターンの住所があるのかの整理の途中で嫌になっておっぽり出して現在にいたる。
ここを手本にしてみようかと思ったことはあるんですが、解析が面倒でよく解らんとこれもおっぽり出しました。（何年前の話で、未だ手付かず）

角田さんの方にもありました。
http://www.h3.dion.ne.jp/~sakatsu/index.htm
【40606】Re:住所からある条件に変更を
お礼  atsuko  - 06/7/18(火) 19:01 -
引用なし
パスワード
   皆さん、いろいろアドバイスありがとうございます。
頂いた情報を元にやってみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7211 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free