TOP > カテゴリ > Excel >

マルチページの使い方 [ExcelのVBA]

マルチページ

「マルチページ」はページ毎に異なる項目を使用するコントロールです。同一の項目を複数のページで共有する場合は「タブストリップ」を使用します。※ここでの項目とはコントロールの事です。

正式名称MultiPage

設計時の操作

マルチページは設計時に「ページ」をクリックすると「実行時に選択されるページ」を設定可能です。また、「ページ」をクリックした後に右クリックを押すと「任意のページの追加・削除・名称変更」が可能です。

マルチページはページ毎にコントロールを配置する事が可能です。

[1ページ目]

[2ページ目]

プロパティの操作

マルチページはページ毎にプロパティを持っています。ページ毎のプロパティは設計時に「ページ」をクリックすると「プロパティ」が表示されます。マルチページ本体のプロパティは「プロパティ」ウインドウのコンボボックスから選択する必要があります。

コード例

次のコードは「各ページの名称変更」「ページの追加」「選択されたページの値を出力」しています。

Private Sub CommandButton1_Click()

  ' マルチページに新しいページを追加する
  MultiPage1.Pages.Add ("追加されたページ")
  
End Sub

Private Sub MultiPage1_Change()

   ' 選択されたページ名をイミディエイトへ出力する
   Debug.Print MultiPage1.SelectedItem.Caption & _
               "(番号:" & MultiPage1.SelectedItem.Index & ")" & _
               "が選択されました。"
               
End Sub

' フォームのロード時
Private Sub UserForm_Initialize()
 
  ' 各ページの名称を変更
  MultiPage1.Pages.Item(0).Caption = "長野県"
  MultiPage1.Pages.Item(1).Caption = "山梨県"
  
  ' ページを選択する
  MultiPage1.SelectedItem.Index = 0
  
End Sub

[結果]

プロパティの一覧

マルチページ

プロパティ内容
BackColorコントロールの背景色
ControlTipTextコントロールのチップテキスト(ヒント)の設定
Enabledコントロールの使用設定(True/False)
Font文字列のフォントの設定
ForeColor文字列の表示色の設定
Heightコントロールの縦幅
HelpContextIDヘルプのコンテキストIDの設定
Leftコントロールの表示位置(画面の左幅)
MultiRowタブが一行で表示できない場合の表示設定(オン/オフ)
Styleスタイルを設定
TabFixedHeightタブの高さの設定。0がデフォルト値。
TabFixedWidthタブの横幅の設定。0がデフォルト値。
TabIndexタブインデックス。タブキーを押した時の順番を設定する
TabOrientationタブの表示位置設定
TabStopタブキーを押した時に止まるかの設定
Tag任意の文字列を設定(String型)
Topコントロールの表示位置(画面の上幅)
Valueコントロールの値の設定
Visibleコントロールの表示設定(True/False)
Widthコントロールの横幅

各ページ

プロパティ内容
Acceleratorコントロールのアクセラレータ(ショートカットキー)を設定する。英数字1文字を設定可能。実行時はAlt+設定したキーで実行できます。
Captionコントロールの表示名
ControlTipTextコントロールのチップテキスト(ヒント)の設定
Cycleフォーカスのサイクルの設定 ※主にマルチページで使用する。マルチページのページでfmCycleCurrentFormを設定するとのマルチページ内のみフォーカスが循環する。
Enabledコントロールの使用設定(True/False)
Indexマルチページのページ番号。Page1が0、Page2は1となる。
KeepScrollBarVisibleスクロールバーが必要が無い時も表示するかどうか
Pictureコントロールの画像設定
PictureAlignment画像の表示位置
PictureSizeMode画像の拡大縮小
PictureTiling画像をタイル形式にする
ScrollBarsスクロールバーの表示設定
ScrollHeightスクロールバーの縦幅
ScrollLeftスクロールバーの位置(左)
ScrollTopスクロールバーの位置(上)
ScrollWidthスクロールバーの横幅
Tag任意の文字列を設定(String型)
TransitionEffect視覚効果を設定
TransitionPeriod持続時間を設定
Visibleコントロールの表示設定(True/False)
Zoomズーム設定(デフォルトは100%)

※プロパティの基本的な使い方は「プロパティの使い方」をご覧ください。

イベントの一覧

イベント内容
AddControlコントロールが追加された。
BeforeDragOverコントロールへファイルをドラッグ中。
BeforeDropOrPasteコントロールへファイルをドロップした。
Changeコントロールの値が変更された。
Clickコントロールをクリックした。
DblClickコントロールをダブルクリックした。
Enterコントロールにフォーカスが移る時。
Errorコントロールでエラーが発生した。
Exitコントロールのフォーカスが別のコントロールに移る時。
KeyDownコントロール上でなんらかのキーを押した。
KeyPressコントロール上で英数字記号キーを押した。
KeyUpコントロール上でなんらかのキーを離した。
layoutレイアウトが変更された。
MouseDownコントロール上でマウスのボタンを押した。
MouseMoveコントロール上でマウスが移動した。
MouseUpコントロール上でマウスのボタンを離した。
RemoveControlコントロールが削除された。
Scrollスクロールバーの値が変動した。
Zoomズームが変更された。

※イベントの基本的な使い方は「イベントの使い方」をご覧ください。

Visual Basicのコントロール

共通操作
 プロパティの使い方 イベントの使い方

ラベル
テキストボックス
コンボボックス
リストボックス
チェックボックス
オプションボタン
トグルボタン
フレーム
コマンドボタン
タブストリップ
マルチページ
スクロールバー
スピンボタン
イメージ
ユーザーフォーム

エクセル講座のクイックリンク

ホーム 新機能 基本(初級) 基本(中級) 基本(上級) 関数 マクロ VBA TIPS





関連記事



公開日:2015年07月01日 最終更新日:2015年07月06日
記事NO:01093