[[20070528133642]]　『名札の作成のしかた』（ありんこ）　ページの最後に飛ぶ

『名札の作成のしかた』（ありんこ）

いつもお世話になっております。

また１つ是非良い方法があればと思い、ご相談させていただきます。

Sheet1に名前とﾌﾘｶﾞﾅがあります。
今はマクロで名前とﾌﾘｶﾞﾅを合体するところまで作成したのですが、
これをSheet2の名札サイズに作成したフォーマットへ入力できるように
したいのですが、問題がいくつかあります。

・Sheet1の値をSheet2に値貼り付けするとフリガナの部分が消えてしまう
・すべてを貼り付けにするとフリガナも貼り付けられるが全体のフォントが小さくなってしまう

今やっている方法はとても原始的なのですが、

・Sheet1のセルの内容をSheet2にすべてを貼り付け
・36フォント・太字・の中央揃えにする
・入力されているセルをすべて選択して書式→フリガナ→フォント→16フォントに揃える
・フリガナの位置を１つずつ揃える

という方法で作成しています。
これを単純化させたいのですが、どなたか良い方法をご存知の方教えてください。
よろしくお願い致します。

 振り仮名を後で追加しているだけなんだけどね。（例え）
 BJ
 Range("C1").Value = Range("A1").Value
 Range("C1").Phonetic.Text = Range("A1").Phonetic.Text

例えさん

ちょっと勉強して上記のマクロを作ってみます。
どうもありがとうございました　　　（ありんこ）

コメント返信：