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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
エクセルで、ヘッダーに特定セル内容を指定して印刷したい
Excel(エクセル)
-
VBAでExcelのヘッダーに文字列+セルの値を入れたい
Visual Basic(VBA)
-
-
4
エクセルで、ヘッダーに他のシートのセルの内容を表示させたいのですが。
Excel(エクセル)
-
5
Excelのヘッダー表示を変数で指定する場合
Excel(エクセル)
-
6
ヘッダー
Excel(エクセル)
-
7
Excelエクセル ヘッダの文字サイズが変わらない
Windows Vista・XP
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
10
「ヘッダーフッター」のヘッダーの文字のサイズ
Excel(エクセル)
-
11
Excelのフッター(ページ番号)のフォントが変わらない
Excel(エクセル)
-
12
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
13
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
14
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
15
マクロ実行時 ウィンドウで実行するか確認する
Excel(エクセル)
-
16
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
17
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
18
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
19
VBA 連続行データを5行ずつ隣の列に貼り付ける
Excel(エクセル)
-
20
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
【Excel VBA】指定行以降をクリ...
-
EXCELで変数をペーストしたい
-
Excel VBA マクロ ある列の最終...
-
特定のセルが空白だったら、そ...
-
【Excel】指定したセルの名前で...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
Excel VBAで比較して数値があっ...
-
範囲内で最大値を見つけ、その...
-
エクセル マクロで セルの範...
-
3桁または4桁の数値を時刻に...
-
テキストボックスの値を該当セ...
-
連続する複数のセル値がすべて0...
-
セル色なしの行一括削除
-
Word版VBで表の任意の箇所を...
-
Excelのプルダウンで2列分の情...
-
VBA初心者です。結合セルを保持...
-
【VBA】指定したセルと同じ値で...
-
指定した条件で行セルを非表示...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
VBAの計算で@が出てしまう件
-
Excelのプルダウンで2列分の情...
-
EXCELで変数をペーストしたい
-
VBA ユーザーフォーム ボタンク...
-
VBAでセルをクリックする回...
-
Excel VBA、 別ブックの最終行...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
-
VBAを使用した時間管理
-
”戻り値”が変化したときに、マ...
-
Sub 要具ライフ() ActiveSheet....
おすすめ情報