Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5641 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49677】ヘッダーにフォントサイズを指定して数値を表示させるには head 07/6/15(金) 16:49 質問[未読]
【49683】Re:ヘッダーにフォントサイズを指定して数... ｂｙｋｉｎ 07/6/15(金) 22:22 回答[未読]
【49706】Re:ヘッダーにフォントサイズを指定して数... head 07/6/18(月) 8:47 お礼[未読]
【49677】ヘッダーにフォントサイズを指定して数値...
質問  head  - 07/6/15(金) 16:49 -
引用なし
パスワード
   皆さんこんにちわ。
ヘッダーにフォントサイズ（例：15）を指定して文字列の変数（例：テスト）を設定するには、
------------
head1 = "テスト"
fsize1 = 15
With ActiveSheet.PageSetup
　　 .RightHeader = "&""ＭＳ ゴシック,標準""&" & fsize1 & head1
End With
------------
とすればよいことは分かったのですが、
同様にして、ヘッダーに数値の変数（例：100）を設定しようとするとうまく設定できませんでした。
------------
head2 = 100
fsize2 = 15
With ActiveSheet.PageSetup
　　 .RightHeader = "&""ＭＳ ゴシック,標準""&" & fsize2 & head2
End With
------------
どこを修正すればよいのでしょうか？よろしくお願いします。
【49683】Re:ヘッダーにフォントサイズを指定して...
回答  ｂｙｋｉｎ  - 07/6/15(金) 22:22 -
引用なし
パスワード
   こんばんわ。

フォントサイズの指定数値と文字列としての数値がくっついてるからあかんのですわ。
こういうときはスペースかますんです。
手動で設定したら、数値の前に半角スペースが１個挿入されるのがわかると思うよ。
（フォントサイズを変更した場合のみ）

fsize2 & head2
　↓
fsize2 & " " & head2

数値の前の半角スペースを削除する方法は・・・ありまへん（＾＾；；

試してみてな。
ほな。
【49706】Re:ヘッダーにフォントサイズを指定して...
お礼  head  - 07/6/18(月) 8:47 -
引用なし
パスワード
   ｂｙｋｉｎさん
ご返信遅くなり申し訳ありませんでしたが、うまくできました！
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5641 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free