Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10831 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19720】ヘッダーのフォントを変更する コウ 04/11/16(火) 10:43 質問[未読]
【19725】Re:ヘッダーのフォントを変更する つん 04/11/16(火) 11:06 回答[未読]
【19730】Re:ヘッダーのフォントを変更する コウ 04/11/16(火) 11:28 お礼[未読]
【19726】Re:ヘッダーのフォントを変更する IROC 04/11/16(火) 11:06 回答[未読]
【19720】ヘッダーのフォントを変更する
質問  コウ  - 04/11/16(火) 10:43 -
引用なし
パスワード
   こんにちは。よろしくお願いします。
ヘッダーのフォントで出力する文字を太字にして、下線を付けたいのですが何か方法はありますでしょうか?ちなみに以下のコードでフォントを設定しています。

strTitleName = "タイトル名"
strDateName = "平成１６年１１月１６日"
With obNippou1Sheet.PageSetup
　　.CenterHeader = "&""ＭＳ ゴシック""&16" & strTitleName
　　.RightHeader = strDateName
End With
【19725】Re:ヘッダーのフォントを変更する
回答  つん E-MAIL  - 04/11/16(火) 11:06 -
引用なし
パスワード
   こんにちは＾＾

>こんにちは。よろしくお願いします。
>ヘッダーのフォントで出力する文字を太字にして、下線を付けたいのですが何か方法はありますでしょうか?ちなみに以下のコードでフォントを設定しています。
>
>strTitleName = "タイトル名"
>strDateName = "平成１６年１１月１６日"
>With obNippou1Sheet.PageSetup
>　　.CenterHeader = "&""ＭＳ ゴシック""&16" & strTitleName
>　　.RightHeader = strDateName
>End With

ええと、手元にある参考書では、

太字は　＆Ｂ
下付線は　＆Ｕ

みたいです。
【19726】Re:ヘッダーのフォントを変更する
回答  IROC  - 04/11/16(火) 11:06 -
引用なし
パスワード
   マクロの記録で出来ませんか？
【19730】Re:ヘッダーのフォントを変更する
お礼  コウ  - 04/11/16(火) 11:28 -
引用なし
パスワード
   すいません。こちらの参考書にものっていました。
ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10831 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free