Sample Macro  コントロール・マルチページ Previous Next

11-1) マルチページの色を設定する このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
 ◆ユーザーフォームのコード◆
'---------------------------------------------------------------------------------
Private Sub UserForm_Initialize()               '※1
    MultiPage1.BackColor = RGB(255, 0, 0)       '※2 背景色を設定する
    MultiPage1.ForeColor = RGB(255, 0, 0)       '※2 前景(フォント)色を設定する
End Sub
'=================================================================================
<コメント>
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する
※2 BackColorプロパティ、ForeColorプロパティの値を設定して色を変える


11-2) 各ページのキャプションを設定する このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
 ◆ユーザーフォームのコード◆
'---------------------------------------------------------------------------------
Private Sub UserForm_Initialize()               '※1
    MultiPage1.Pages(0).Caption = "文化"        'ページ 0 のキャプションを設定
    MultiPage1.Pages(1).Caption = "歴史"        'ページ 1 の   〃
    MultiPage1.Font.Name = "MS ゴシック"      'フォント名
    MultiPage1.Font.Size = 12                   'フォントサイズ
    MultiPage1.Font.Bold = True                 '太字フォント
    MultiPage1.Font.Italic = True               '斜体フォント
End Sub
'=================================================================================
<コメント>
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する


11-3) アクティブページを設定する このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
 ◆ユーザーフォームのコード◆
'---------------------------------------------------------------------------------
Private Sub UserForm_Initialize()               '※1
    MultiPage1.Value = 0                        '※2 アクティブページを設定する
End Sub
'=================================================================================
<コメント>
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する
※2 0 は1ページ目、最大値はページ数の合計から1を引いた数

Excel VBA Macro