[[20060516145016]]　『名札』（みかん）　ページの最後に飛ぶ

『名札』（みかん）

氏名とフリガナが載ったファイルがあります。
このデータを元にして、エクセルのシートに名札を作成したいのです。

問題は、1つのセルに氏名とフリガナを入れていきたいのですが、同時に一つのセルに
コピーすることができず、フリガナ機能を使ってみたのですが、間違ってついたフリガナは
いちいち手作業で直さなくてはなりません。

現在は、氏名をまずコピーしたあとに、図形描画をつかって名前の上にフリガナを手で
入力している状態です。

マクロ等を使用して、１つのセルに氏名とフリガナをコピーしてくることはできるでしょうか
教えてください。　お願い致します。

 できますよ。
氏名の隣に振り仮名が設定されているのであれば、
氏名を選択して、下記のコードを実行でできると思います。
'----
Sub みかん()
Dim C As Range
For Each C In Selection
C.Phonetic.Text = C.Offset(,1).Text
C.Phonetic.Visible = True
Next
End Sub
'(ROUGE)

ありがとうございました！！！
バッチリできました。これで名札が簡単に作成できます。
本当に感謝です。
（みかん）

もう1つ追加で質問があります。
名札自動で作成したのですが、フォントが小さいと思ったので、氏名を36フォントにしたところ
フリガナは、小さいフォントのままになってしまうのですが、これを36フォントに見合った
フリガナサイズにしたいのですが、どのようにしたらよいでしょうか。フリガナサイズは12フォントにするとちょうど良いようなのですが、マクロの式のなかに組み込まないとだめですよね。
（みかん）

 C.Phonetic.Visible = True
のあとに、
C.Font.Size = 36
C.Phonetic.Font.Size = 12
C.Phonetic.Alignment = xlPhoneticAlignDistributed
を入れてみてはいかがでしょうか？
(ROUGE)

できました！　大感動です。。。。　
ありがとうございました　（みかん）

コメント返信：

[ 一覧(最新更新順) ]

[[20060516145016]] 『名札』（みかん） ページの最後に飛ぶ

[[20060516145016]]　『名札』（みかん）　ページの最後に飛ぶ