Excel VBAでのヘッダー設定について

ユーザーフォームのコンボボックスで1～12の数字の選択し、決定ボタン(CommandButton)を押すとページ設定のセンターヘッダーに*月度帳票（*はコンボボックスで選択した数字）が入力されるようなコードを書きたいのですが、VBA初心者でわからないのでご教授願います。

No.2 ベストアンサー 回答者： mygoonickname 回答日時： 2021/11/19 11:41

No.1の者ですユーザー

コンボボックス
http://excelvba.pc-users.net/fol10/10_2.html

上記に追加で、コマンドボタンを配置し、そのボタンをダブルクリック

Private Sub CommandButton1_Click()

'処理の記入例
MsgBox CmbMonth.Value ＆ "月度帳票"

Unload Me
End Sub

CmbMonth.Valueで、値が取れますので、記入例を元に、ヘッダーの設定をすれば良いかと。

この回答へのお礼

Private Sub CommandButton1_Click()
Dim 変数 As String
変数 = ComboBox1.Value

With ActiveSheet.PageSetup
.CenterHeader = "&""ＭＳ Ｐゴシック,太字""&14 " & 変数 & "月度帳票"

End With

Unload Me

End Sub

上記で設定する事ができ、解決しました。（上では書式指定もしている）
ありがとうございました。

お礼日時：2021/11/19 16:26

No.1 回答者： mygoonickname 回答日時： 2021/11/19 09:44

おはようございます。

マクロの記録で、センターヘッダーに*月度帳票　を設定したコードと、
下記の様な、リンク先を参照して、先ずはトライされてはと思います。

エクセルVBAで印刷時のヘッダー・フッターの設定をする方法と書式コード・VBAコード一覧
https://tonari-it.com/excel-vba-header-footer/

この回答へのお礼

VBAでヘッダーを設定する方法はわかります。
ヘッダーの文字列に変数を入れて、かつコンボボックスから指定した文字を代入する方法がわかりません

お礼日時：2021/11/19 11:05