- ベストアンサー
エクセルで住所の半角数字を漢数字に一括変換するには?
エクセル87で住所録を作って「1-2-34」等と入力していますが、それをワード98のはがき宛名印刷で印字すると「1-2-34」が横になります。 エクセルで住所の列だけ「1-2-34」を「一-二-三四」などのように一括で漢数字に変換したいのですが、簡単な方法はあるでしょうか? よろしくお願いします。
- kankororin
- お礼率78% (67/85)
- オフィス系ソフト
- 回答数3
- ありがとう数11
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
表示形式=TEXT(C1,"[DBNum1]G/標準")などはC1セルが半角数字で無いと上手く行かないようです。住所を数字部分と漢字部分に部分に別セルに分けられれば使えるかもしれない。 住所漢字部分と丁目番地が1セルに混在しているときのために、数字を漢数字に変える、ユーザー定義の関数を作ってみました。 ツール-マクロ-BVEでVBEの画面になる。 そこで挿入-標準モジュールで出てくる画面に下記を コピペする。 Function kansuj(a) tb = Array("〇", "一", "ニ", "三", _ "四", "五", "六", "七", "八", "九") For i = 1 To Len(a) s = Mid(a, i, 1) '---ハイフン If s = "-" Then st = st & "-" GoTo p01 End If '----数字 全角、半角 If IsNumeric(s) Then If s >= "0" And s <= "9" Then p = Application.WorksheetFunction.Asc(s) st = st & tb(p) GoTo p01 Else st = st & tb(Val(s)) GoTo p01 End If End If '----その他全角文字 st = st & s p01: Next i kansuj = st End Function 使い方はA列に住所があるとして、B1に =kansuj(A1)といれてB2以下に式を複写する。 (結果) 大田区目黒123-1 大田区目黒一ニ三-一 関東1-23 関東一-ニ三 三七,六五三 三七六五三 一 一 三八,〇四八 三八〇四八 あ1-2-3 あ一-ニ-三 三七,六五三 三七六五三 2no3 ニno三 三 三 1-2-3 一-ニ-三 二三四 ニ三四 1-2 一-ニ 大阪市中央区道修町2-34 大阪市中央区道修町ニ-三四 ASC234 ASCニ三四 0 〇
その他の回答 (2)
- KenKen_SP
- ベストアンサー率62% (785/1258)
よこから失礼します。 ご希望の結果は得る方法は#2の方が示されています。 補足というか、、出すぎたお節介なのですが、住所の場合は、アパート名などに全角半角のカタカナが混在する場合も考えられますので、それを考慮したマクロをご参考までに示します。 セル選択範囲内の数字のみを漢数字化し、カタカナや記号等は全角半角を保持したままになります。 '選択したセル範囲の、数字だけを漢数字に置きかえ Sub 数字の漢数字化() On Error Resume Next Application.ScreenUpdating = False Dim num1, num2, num3 Dim i As Integer Dim Rng As Range num1 = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0") num2 = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0") num3 = Array("一", "二", "三", "四", "五", "六", "七", "八", "九", "〇") For Each Rng In Selection '数字のみ半角に統一 For i = 0 To 9 Rng.Value = Replace(Rng.Value, num1(i), num2(i)) Next i '漢数字化 For i = 0 To 9 Rng.Value = Replace(Rng.Value, num2(i), num3(i)) Next i Next Rng Application.ScreenUpdating = True End Sub
お礼
体調が悪く、遅くなりましたが、ご教示たいへんありがとうございました。
- e30653
- ベストアンサー率28% (32/114)
こんにちは。 住所の列を選択して、 「1」→「一」 「2」→「二」 ... 「9」→「九」 「0」→「〇」 と十回置換するのが一番簡単で早いと思います。 いかがでしょうか。
お礼
ありがとうございます。ただ、2回目以降も同じことをやるのがすこしつらくて…
関連するQ&A
- エクセルで2-3-15を二丁目三の十五に…
エクセルで住所録を作った際に「2-3-15」と入力されています。 それをワードのはがき宛名印刷で印字すると「2-3-15」が横になってしまいます。 そこでエクセルで「2-3-15」を「二丁目三の十五」などのように漢数字に変換したいのですが、簡単に変換する方法ありますか? もしくはエクセルは「2-3-15」のままで、ワードのはがき印刷の際に うまく印刷されるような方法がありましたら、教えてください。
- ベストアンサー
- オフィス系ソフト
- 算用数字(半角)から漢数字への変換(エクセル2000)
ワード2000で差し込み印刷をしたいと思っています。 しかし、2000ではエクセルから住所録を読み込む場合、 算用数字を読み込むと横で表示されてしまいます。 そこでエクセル2000で算用数字を漢数字に変換しなければなりません。 算用数字を漢数字に変換するのに簡単な方法はないですか? 私が考えている方法は、1~9の数字を検索して 漢数字に変換していく方法です。 住所の列だけを対象に一括で変換することはできないのでしょうか? 全ての範囲を対象とすると一括変換できるのですが、 郵便番号は算用数字のままでいいので、 変換する必要がないのです。 質問が分かりにくいかもしれないですが、 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- 宛名住所内の数字を漢数字に変換できない
ワード2003で年賀状の宛名書きをしています。「宛名住所録の数字を漢数字に変換する」にチエックを入れても変換されません。どなたかご存じの方宜しくお願いします。データはエクセルで作っています。
- ベストアンサー
- その他(データベース)
- 【エクセル】半角数字→全角数字
エクセルですでに半角で入力されている数字を全角数字に一括変換する方法はありますか? (1)住所録で半角入力されている番地等の数字のみをを全角に変換する方法 (2)電話番号など、全て数字で入力しているセルを一括で全角に変換する方法
- ベストアンサー
- オフィス系ソフト
- ワード2000で、はがき宛名印刷
ワード2000で、はがき宛名印刷 住所録はエクセル2000で作成して、ワード2000でハガキ宛名印刷を行うとき”宛名印刷ウイザード”の 【既存の住所データファイルを差し込む】でエクセル住所を選択して表示ができますが番地が漢数字 になっていません。ワード2007では漢数字にする項目がありますがワード2000ではその項目が有りません住所入力のときに番地を漢数字で入力するしか方法がないのでしょうかお教え下さい。 宜しくお願い致します。
- ベストアンサー
- その他([技術者向] コンピューター)
- ハガキの住所のアルファベット
エクセルの住所録を作成してそこからワードの宛名ウイザードで年賀状の住所を印刷する時、住所の番地で例えば1-5-Bとかアルファベットが入る場合その英文字が横になってどうしても縦に入力できません。ワードの宛名ウイザードのハガキの表の住所の所に例えばBと入力しても印刷プレビューで見ると元に戻って横になっています。どうすればいいのでしょうか。
- 締切済み
- オフィス系ソフト
- ハガキ宛名の住所の数字を漢数字に直すには?
年賀状の宛名を印刷しようとしています。 exelで作った名簿の住所の番地はアラビア数字です。印刷の時に住所を縦書きにして、漢数字に変換したいのですが、うまく行きません。ハガキ印刷のウィザードで、「宛先、差出人の住所を縦書きにする時は、数字を漢数字に変換する」というところにチェックを入れると、差出人のところは上手く変換できるのですが、宛先のところだけが上手く変換されず、アラビア数字のままで縦書きになります。 住所録を全部漢数字に書き直すのは、とても大変です。 どなたか、助けてください。お願いします。
- ベストアンサー
- その他MS Office製品
- ◎エクセルに作った住所録がワードで呼び出せません??
◎エクセルに作った住所録がワードで呼び出せません?? XPを使っているのですが、エクセルで住所録を作りましたが、ワードの はがき宛名印刷ウイザードで呼び出そうとすると「何とかは有りません」 と表示されてしまいました。 どうしたら呼び出せるかどうぞお教えいた だきたく思います。
- ベストアンサー
- その他MS Office製品
お礼
ありがとうございます。ちょっと風邪をひいて頭痛がしているので、収まってから実験させていただきます。
補足
体調が悪く遅くなりましたがお礼です。 これで所期の結果がえられました。ありがとうございました。