[[20070527184508]]　『住所内算用数字を印刷時漢数字にしたい。』（ひろぴょん）　ページの最後に飛ぶ

『住所内算用数字を印刷時漢数字にしたい。』（ひろぴょん）

　住所録を作成したのですが、入力時は住所の番地等算用数字（１、２、３・・）で入力しているのですが、はがき印刷する時に自動で漢数字（一、二、三・・・）に変換され印刷されるようにならないのでしょうか。もしあればその方法を教えて下さい。
Excel2003、WindowsXPです。

 こんなのはダメでしょうかね～
　
Sub すうじ()
Dim i As Integer
    For i = 0 To 9
        Cells.Replace What:=i, Replacement:=Choose(i + 1, "〇", "一", "二", "三", "四", "五", "六", "七", "八", "九"), LookAt:=xlPart, MatchByte:=False
    Next i
End Sub
Sub 漢字()
Dim i As Integer
    For i = 0 To 9
        Cells.Replace What:=Choose(i + 1, "〇", "一", "二", "三", "四", "五", "六", "七", "八", "九"), Replacement:=i, LookAt:=xlPart, MatchByte:=False
    Next i
End Sub
　
 印刷する前に「漢字」を実行
 印刷終了時に「すうじ」を実行。
　
 ※「すうじ」で、戻すと全て半角数字になってしまいますが。。。
 （キリキ）（〃⌒o⌒)b

すみません。私ずぶの素人なので何の事なのかさっぱり分かりません。ご迷惑おかけしますが素人に分かるように教示出来る内容なのでしょうか。（ひろぴょん）

 上記は、マクロになります。
　
１）Alt + 【F11】を押して、Microsoft Visual Basic を立ち上げる
２）挿入 → 標準モジュール
３）でてきた白い画面に上のコードをコピペ
４）印刷をする前に、Alt + 【F8】を押して「漢字」を選択して実行
５）印刷をした後に、Alt + 【F8】を押して「すうじ」を選択して実行
　
 もしわからない場合は、「置換」で10回変える方法をお勧めします。
　
 （キリキ）（〃⌒o⌒)b

ありがとうございます。
実は、私が考えているシステムは、名簿を作成してその時の住所の数字は算用数字ですが、印刷する時は葉書や封筒に住所を縦書きに印刷したいため、印刷前に別シートに前もって作った葉書の書式に漢数字に変換された住所が表示され、そのプレビュー通り印刷されるようにしたいのです。専門用語を知らないので説明が下手ですが分かりますか？

 >専門用語を知らないので説明が下手ですが分かりますか？
 わかりませんｗｗｗ
　
 であれば、その名簿そのものを変更すればいいのではないでしょうか？
 どのようなシート構成の名簿かわかりませんので、具体的には言えませんが、、、
 「住所」と「番地」の入力先を別々にするのもいい手かもしれませんね～
 「番地」だけが別にあれば加工するのもしやすいでしょうからねｂ
　
 まぁ、言葉だけでは今回の事例は限界がありそうですね。。。
 どのようなシート構成で、どのように入力しているかもわかりませんし、
 それを別シートに持っていくとのことですが、そのシートの構成もわかりません。
　
 σ(^o^;)には、ひろぴょんさんのPCの画面は見えませんからね～
 さて、どうしたものでしょう・・・
　
 （キリキ）（〃⌒o⌒)b

 下からお尋ねいたしますが
 >印刷前に別シートに前もって作った葉書の書式に漢数字に変換された住所が
 >表示され、そのプレビュー通り印刷されるようにしたいのです。
 この部分は出来ているのですか？

 つまり、
「漢数字に変換以外の事をするシステムは既に出来ているのか？」
 と言う事です。
 出来ているのなら、どのようなシステムになっているのか
 書いておくのがよいと思いますよ。

 システムがまだ出来ていないなら、
「ワード　宛名　差込　漢数字」
 あたりをキーにGoogle等で検索してみるのも良いかもしれません。

 (HANA)

 ワードも2003ですか？

 宛名、差出人の住所内の数字を算用数字/漢数字にする方法
http://www.x-media.co.jp/tyoufaq/faq29_3.shtml

 ご参考にしてみて下さい
 (Ohagi)

コメント返信：

[ 一覧(最新更新順) ]

[[20070527184508]] 『住所内算用数字を印刷時漢数字にしたい。』（ひろぴょん） ページの最後に飛ぶ

[[20070527184508]]　『住所内算用数字を印刷時漢数字にしたい。』（ひろぴょん）　ページの最後に飛ぶ