エクセル2000で、漢数字から算用数字へ変換する関数

算用数字から漢数字へ変換する関数はあるようですが、その逆の漢数字を算用数字に変換する関数ってありますか？
住所録ですが、
○○四丁目
××三丁目
□□２丁目
の表示を、算用数字を用いて統一させたいのですが…、よろしくお願いします。

No.5 ベストアンサー 回答者： meron_ 回答日時： 2005/12/13 10:00

> 地名に数字を含む場合はとりあえず置いておいて

番地と地名を分けては考えられません。
関数を使うと文字列に含まれる全ての文字を置き換え対象とするので、「三重県」は「３重県」になります。

SUBSTITUTE関数を使用した場合の例・・・

A1に"三重県松阪市五十鈴町九四ー七"　と入力します。
B1の数式
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"一","1"),"二","2"),"三","3"),"四","4"),"五","5")
C1の数式
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B1,"六","6"),"七","7"),"八","8"),"九","9"),"〇","0"),"ー","-")

関数のネスト（重ね合わせ）には限界があるので、２つに分けています。

結果は、「3重県松阪市5十鈴町94-7」　となってしまいます。

番地のみを変換することができれば問題は解決します。

この回答へのお礼

重ねての回答どうもありがとうございます！！
そういえば、市町村、丁目、地番はそれぞれ別々のセルに取り出すことは出来ていたんです。なので、教えていただいた式をコピーして解決しました！どうもありがとうございました。

お礼日時：2005/12/13 16:51

No.6 回答者： meron_ 回答日時： 2005/12/13 12:13

＃１、＃５です。

漢数字は、「九百二十一」などの場合もありますか？

この回答へのお礼

引き続き考えていただきどうもありがとうございました！おかげさまで前の回答で解決しました。

お礼日時：2005/12/13 16:52

No.4 回答者： Wendy02 回答日時： 2005/12/12 21:12

#2 のWendy02です。

まあ、関数のほうは、どなたか考えるかと思いますので、それはパスさせていただきます。
ネストで10個も変換は出来ないでしょうね。そうすると補助列とか使うとか、いずれにしても大掛かりです。

#3のimogasiさん

＞三重県、一宮市、三日市市、四街道市、それに一番町など町名にいたるまで漢数字が出現するので、

昨日、どうも自分の中で何か、釈然としないなって思ったら、そのことでした。
この質問は、別の掲示板で既にやってみたことがあるのですが、その内容を忘れていました。たぶん、正規表現を使ったりして、丁目の後をアラビック数字に置き換えるなどというのは、VBAで可能だと思いますが、今回は、VBAは不可という条件のようですので、そのままにしておきます。改めて考えるときが来ると思います。

この回答へのお礼

重ねての回答どうもありがとうございます！！
おっしゃるとおり、関数を使うといくつかのセルに分けての式になるので本当大掛かりなのですけど…、ＶＢＡについてはおいおい勉強して行けたらと思っています。その際はまたご指導をよろしくお願いします。
どうもありがとうございました！

お礼日時：2005/12/13 16:46

No.3 回答者： imogasi 回答日時： 2005/12/12 19:42

ネストしない１個の関数ではないと思います。

＃１で言われている、ＳＵＢＳＴＩＴＵＴＥ（ＳＵＢＳＴＩＴＵＴＥ（・・））というようなネストをすると漢数字は数字に変換しますが、三重県、一宮市、三日市市、四街道市、それに一番町など町名にいたるまで漢数字が出現するので、住所全体を一律に変換すると、常識と違う結果になります。
ですから県、市区町村、町名は避けて、それ以外の丁目、番地、号
マンション棟室番号などの漢数字に限って数字に変換しないとなりません。
これは至難の業と思います。
ＶＢＡではロジックを決めれば、その範囲ではうまくいくのですが、
ロジックを上げろといわれても難しく、全国レベルでは例外が出現するかも知れな恐れはあります。ＶＢＡでも、やや完全を求めれば、町字と丁目以後を分けるには、郵便番号辞書のようなものを、参照しないとできないし、郵便番号辞書も、丁目で分かれて、別郵便番号になるところが結構あるので、一筋縄では行かない点があると思います。

この回答へのお礼

ご指導どうもありがとうございます！！
ＶＢＡについてはいずれ勉強していきたいと思います。その際にまた参考にさせていただきたいと思います。どうもありがとうございました！！

お礼日時：2005/12/13 16:42

No.2 回答者： Wendy02 回答日時： 2005/12/12 17:48

こんばんは。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1832474
算用数字（半角）から漢数字への変換（エクセル2000）

こちらに、私のマクロがあります。

アラビック数字から漢数字
漢数字からアラビック数字

両方を用意しています。

この回答への補足

回答どうもありがとうございます！
そのページは既に拝見しました。マクロが分かれば便利そうですね！ですが、マクロはどうも取っ付きにくくて…。マクロ抜きの関数で教えていただければ嬉しいのですが…。

補足日時：2005/12/12 18:08

No.1 回答者： meron_ 回答日時： 2005/12/12 17:44

ちょっとやっかいです。

SUBSTITUTE関数を１０個重ねた数式で可能ですが、
「四日市」など、地名に数字を含む場合も変換されてしまいます。

この回答への補足

回答どうもありがとうございます！
では、地名に数字を含む場合はとりあえず置いておいて、SUBSTITUTE関数を１０個重ねた数式について詳しく教えていただけると嬉しいです。

補足日時：2005/12/12 18:06