• ベストアンサー

EXCELで漢数字を数字に変えるには?

EXCEL97を使用してます。 住所録の番地が漢数字になっているものを、数字に変えたいのですが、 ご解答の程、よろしくお願い致します。 一二三→123に変えたいのですが。

  • nene99
  • お礼率78% (152/194)

質問者が選んだベストアンサー

  • ベストアンサー
  • tksoft
  • ベストアンサー率36% (99/273)
回答No.2

私はVBAで以下のような関数を作成し使用しています。 Function CnvKan2Num(str As String) As String Dim i As Integer Dim s As String Dim Ans As String If IsNull(str) Then Else For i = 1 To Len(str) s = Mid(str, i, 1) If s = "一" Then Ans = Ans & 1 ElseIf s = "二" Then Ans = Ans & 2 ElseIf s = "三" Then Ans = Ans & 3 ElseIf s = "四" Then Ans = Ans & 4 ElseIf s = "五" Then Ans = Ans & 5 ElseIf s = "六" Then Ans = Ans & 6 ElseIf s = "七" Then Ans = Ans & 7 ElseIf s = "八" Then Ans = Ans & 8 ElseIf s = "九" Then Ans = Ans & 9 Else Ans = Ans & Mid(str, i, 1) End If Next End If CnvKan2Num = Ans End Function

nene99
質問者

お礼

完璧に仕上がりました。 深謝致します。 どうもありがとうございました。

その他の回答 (1)

  • mttkshi
  • ベストアンサー率57% (393/689)
回答No.1

漢数字を英数字に置き換える関数はわかりませんが、 ツールバーの、編集→置換えで置き換えることはできませんか?

nene99
質問者

補足

早速のご解答ありがとうございます。 データ量がかなりあるので、関数で変えることができないものかと、質問させていただきました。 よろしくお願い致します。

関連するQ&A

  • エクセルで住所の数字を漢数字に換えたい

    初めまして。 エクセルで住所録があるのですがそれを封筒に縦印刷しようとしたのですが 住所の数字の部分が22とかだと縦に2が二つでてきて非常に見にくいので横並びの22にするか漢数字の22にするかしかないと思うのですが漢数字にする関数を使おうとしたところ文字が入ってるとダメみたいでうまく生きません。 どうすればイイでしょうか? 良い方法があれば教えてください。

  • 差込印刷の時番地の数字が

    Word2003ですExcelの住所禄をはがきに差込印刷の時、番地の数字が漢数字に成りません(縦書き)1枚1枚変更より方法有りませんか、又指名の連名は如何すれば良いですかお願いします。

  • エクセル住所録でワードのハガキ作成?

    エクセル2000ですが、住所録を作ってワードでハガキ作成。住所録作成時に番地を半角数字で入れてますが、漢数字は、最初から入れてないとダメでしょうか?ひょっとして数字が漢数字に変更なんては、無理でしょうか?

  • ワード2000で、はがき宛名印刷

    ワード2000で、はがき宛名印刷 住所録はエクセル2000で作成して、ワード2000でハガキ宛名印刷を行うとき”宛名印刷ウイザード”の 【既存の住所データファイルを差し込む】でエクセル住所を選択して表示ができますが番地が漢数字 になっていません。ワード2007では漢数字にする項目がありますがワード2000ではその項目が有りません住所入力のときに番地を漢数字で入力するしか方法がないのでしょうかお教え下さい。 宜しくお願い致します。

  • 【エクセル】半角数字→全角数字

    エクセルですでに半角で入力されている数字を全角数字に一括変換する方法はありますか? (1)住所録で半角入力されている番地等の数字のみをを全角に変換する方法 (2)電話番号など、全て数字で入力しているセルを一括で全角に変換する方法

  • エクセルで、アラビア数字で入力、漢数字で表示するには?

     エクセルで、日にち、住所をアラビア数字で横書き入力すると、漢数字で縦書き表示するにはどうすればいいでしょうか?  入力セルと、漢数字変換後表示セルは別です。    平成20年3月15日→ 平成二十年三月十五日(縦書)   山田町5丁目4番地35号→山田町五丁目四番地三十五号(縦書)   教えて下さい。よろしくお願いします。

  • エクセルで住所録の数字だけを取り出したいのですが・・・

    他人からもらったエクセルのデータを次のようにしたいと思っています。 まず、A列には住所が入っています。  A1には ○○5条2丁目123番地××マンション1001号  A2には ●●●8条9丁目45番地コーポ△△201号  A3には ◎◎67番地3号  …  となっています。  ちなみに○○、●●●、◎◎には~町とは書かれておらず、山川、山川北、山川中央というような町名です。    これをバラバラに他の列にうつしたいのです。つまり、  B列に 町名(○○、●●●、◎◎…)  C列に 条(5,8,空欄,…)←ただし、数字のみ  D列に 丁(2,9,空欄,…)←これも、数字のみ  E列に 番地(123,45,67,…)←これも、数字のみ  f列に その他(アパート名、マンション名など)   この書き方でわかってもらえるでしょうか? このサイトで他の方の質問も調べたのですが、応用が利かせることができなく、うまく分けることができません。 どなたかわかりやすく教えていただける方はいらっしゃいませんか?お願いします。

  • ワードの年賀状作成で番地を漢数字に出来ません

    毎年年賀状作成は手書きでしたが、来年こそパソコンで作りたいです。 宛名書きで番地が漢数字にどうしてま出来ません。教えてください。 使用しているパソコンはウィンドウ10です。

  • Excelで、数字・英数字・-のみを全角→半角にする & 3000番地2を3000-2表示にしたい

    マクロ初心者です。 どなたか教えてください。 宜しくお願い致します。 Excelで入力されている住所を整理したいと思いましたが、書いた人によって全角でかいてあったり、~番地2などと書いてあったりとまちまちだったため、マクロを使って整えようと思いました。 http://okwave.jp/qa355804.html を参考に、数字・英数字を半角にするマクロを作りました。 ですが、「-」を半角にするマクロをどう組み込めばいいのかわかりません。 また、~番地を「-」に変換するには、Excelのアドイン機能を使ってできるようなリンク(http://sml.jp/html/program01.html)があったので、ダウンロードして使っていたのですが、上記マクロに一緒に組み込めればと思っています。 どなたか教えてください。 宜しくお願い致します。

  • Excelで全角の数字が半角になってしまう

    Excelで住所録をつくっているのですが、住所2の項目に番地を全角の数字で入れたいのですが、全角で入れても、半角になって、右揃えになってしまったり、2003/1/5のような表記や、Jan-15のような表記になってしまったりします。全部がそうなるわけではないのですが、ところどころそのようになってしまいます。どうしてなのでしょうか?また、どのようにしたら、ちゃんと入力できるのでしょうか?教えてください。住所録はOSがWindows MeのパソコンでExcel2000で作ったものを、XPのパソコンでExcel2003で読み込んで編集しようとしてるのですが、それが原因でしょうか?

専門家に質問してみよう