![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
VBA初心者です。
VBAで、ページ設定のヘッダーにシートのセル値を読み込み、ヘッダー内の位置を右寄せにして、かつ フォントサイズを大きくするコードはどう表記すればいいのでしょうか。
例えば、ネットで調べて、左ヘッダーへ A1セル値を読み込むコードは、下記だとわかり、読み込むことがきました。
With ActiveSheet.PageSetup
.LeftHeader = Range("A1").Value
End with
また、右寄せの書式設定は → "&R"
フォントサイズ(ポイント16)は → ”&16” を付けることだとわかりました。
ただし、上記の 読み込んだセル値を、「サイズを16」にして、「位置を右寄せ」にする書き方がわかりません。
シートのセル値の書式は「標準」または「文字列」です。
ActiveSheet.PageSetup
.LeftHeader = "&R" Range("A1").Value
と書いてマクロを実行しても、セル値自体が読み込まれませんでした。
また、
ActiveSheet.PageSetup
.LeftHeader = Range("A1").Value
.LeftHeader = "&R"
と書いても、セル値は読み込まれませんでした。
その他、表記順を変えてみたり、「&」を追加してみたり、「” ”」を入れてみたりと、いろいろ試したのですが、どうしても思うようにできません。
どのように表記すればいいのか、ご教示をお願いします。
No.5ベストアンサー
- 回答日時:
こんにちは、
私の環境Windows10 Excel 2016 32bit バージョン2102クリック
とExcel2013では再現されませんでした。(実行出来ました)
With ThisWorkbook.Sheets(1)
.PageSetup.LeftHeader = "&R&16" & .Range("A1").Text
End With
従って、Excelはプリンタドライバを読み込んでいますので
Officeの不具合やプリンター側に原因がありそうですね。
プリンタドライバなどを確認してみてはいかがでしょう。
また、アクティブプリンタをMicrosoft Print to PDFなどに変更して検証することも出来るかと思います。
>他の方法を考えたいと思います。
お力になれず、残念です。。
ありがとうございます。
>プリンタドライバなどを確認してみてはいかがでしょう。
アクティブプリンタをMicrosoft Print to PDFや他のプリンタに変更してやってみましたが、変化はありませんでした。
ヘッダーの左右を換えてみましたが、これも変化がありません。(読み込めず)
また、書式を センター(”&C”)にしても同じです。
ただし、フォントサイズの ”&16” をいれたコードの時に、印刷プレビューで確認すると非常に大きいフォント(150~200?)がヘッダー部分でなく、シート面に現れています。それも意図したセル値の文字列でなく一部分が欠けたようなバグった感じです。
ヘッダーへの読み込み時に、何らかの設定が違っているのかもしれません。
ということで、おっしゃるように Officeの不具合かもしれませんので、やはり諦めるしかなさそうです。
お手間をお掛けして申し訳ありません。
ご丁寧にありがとうございました。
No.4
- 回答日時:
#2です
>下記のようにもやってみても、読み込めませんでした。
>.LeftHeader = "&R" & Range("A1").Value、、、
手数をかけますが、今一度下記のコード単体で確認してみてください。
もし、うまくいかない様であれば、Excelのバージョンなどを追記して頂いた方が良いと思います。
Sheets(1)は、インデックス指定なので対象のシートをインデックス又は名前で明示してください。
標準モジュールへ
Sub test()
With ThisWorkbook.Sheets(1)
.PageSetup.LeftHeader = "&R/&16" & .Range("A1").Text
End With
End Sub
クリアー
Sub Sample()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
End With
End Sub
Qchan1962さん、ありがとうございます。
>標準モジュールへ
Sub test()
With ThisWorkbook.Sheets(1)
.PageSetup.LeftHeader = "&R/&16" & Range("A1").Text
End With
End Sub
ご指示の単体で試しましたが、やはりA1セル値は読み込めませんでした。
「"&R/&16" &」の部分を除いて試すと、セル値は読み込めます。
どうやら書式コードを付加すると 読み込めないようです。
ちなみに、Excel は 「Microsoft 365」ですが、「Office 2016」で試しても同じ状態でした。
今回一覧表を作成する際にヘッダー部分を見易くするようにしたかったのですが、諦めて他の方法を考えたいと思います。
大変ご尽力をいただき、ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- その他(プログラミング・Web制作) Pythonを勉強しています。 5 2023/08/25 09:51
- Excel(エクセル) エクセルシートをVBAでpdfで保存したい 2 2022/06/27 10:17
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) 条件付き書式でフォント色を赤に設定しましたが、 2 2023/07/29 14:17
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) Excleマクロ セル値の代入と文字列の結合について 3 2022/10/05 16:47
このQ&Aを見た人はこんなQ&Aも見ています
-
これまでで一番「情けなかったとき」はいつですか?
これまでの人生で一番「情けない」と感じていたときはいつですか? そこからどう変化していきましたか?
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
もし10億円当たったら何に使いますか?
みなさんの10億円プランが知りたいです!
-
洋服何着持ってますか?
洋服を減らそうと思っているのですが、何着くらいが相場なのかわかりません。
-
今から楽しみな予定はありますか?
いよいよ2025年が始まりました。皆さんには、今から楽しみにしている予定はありますか?
-
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
エクセルで、ヘッダーに特定セル内容を指定して印刷したい
Excel(エクセル)
-
VBAでExcelのヘッダーに文字列+セルの値を入れたい
Visual Basic(VBA)
-
-
4
エクセルで、ヘッダーに他のシートのセルの内容を表示させたいのですが。
Excel(エクセル)
-
5
Excelのヘッダー表示を変数で指定する場合
Excel(エクセル)
-
6
ヘッダー
Excel(エクセル)
-
7
エクセルでページごとにヘッダー・フッターを設定できますか?
Excel(エクセル)
-
8
Excelエクセル ヘッダの文字サイズが変わらない
Windows Vista・XP
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
EXCELでワークシートを開いたらマクロを自動実行したい
Excel(エクセル)
-
11
エクセルのヘッダーを変数で指定したい
Excel(エクセル)
-
12
エクセルでのヘッダーをページごとにかえられますか?
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
15
エクセルVBA 複数列のリストボックス内を検索して値を複数列表示したい
Excel(エクセル)
-
16
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
17
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
18
vba クリップボードクリアについて教えてください
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
【Excel VBA】指定行以降をクリ...
-
【Excel】指定したセルの名前で...
-
VBA実行後に元のセルに戻りたい
-
特定のセルが空白だったら、そ...
-
Excel VBA マクロ ある列の最終...
-
vba 隣のセルに値がある行だけ...
-
VBA コピーして次の値まで貼り...
-
VBA初心者です。結合セルを保持...
-
VBAでセルをクリックする回...
-
VBSでエクセル内の行数を取得す...
-
i=cells(Rows.Count, 1)とi=cel...
-
”戻り値”が変化したときに、マ...
-
特定の文字を条件に行挿入とそ...
-
ExcelのVBAで数字と文字列をマ...
-
3桁または4桁の数値を時刻に...
-
Excelのプルダウンで2列分の情...
-
クリックされたセルの位置を取...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
VBA実行後に元のセルに戻りたい
-
特定のセルが空白だったら、そ...
-
【Excel】指定したセルの名前で...
-
”戻り値”が変化したときに、マ...
-
【EXCEL VBA】Range("A:A").Fi...
-
エクセルvbaで、別シートの最下...
-
連続する複数のセル値がすべて0...
-
セル色なしの行一括削除
-
Excel VBA マクロ ある列の最終...
-
VBAでセルをクリックする回...
-
特定の文字を条件に行挿入とそ...
-
Excel vbaで特定の文字以外が入...
-
Excelのプルダウンで2列分の情...
-
VBからEXCELのセルの値を取得す...
-
EXCELで変数をペーストしたい
-
vba 隣のセルに値がある行だけ...
おすすめ情報