Ｖ　ExcelのVBA　(3)　〜コントロール

ｂｙ　ｆｊｋ

　マクロの実行は前述(abc777)のように行えるが、シート上などにボタンを配置し、そのボタンをクリックすることでマクロを実行させる方法がある。ボタンのようなコントロールには「フォームコントロール」（以下「フォームCtl」)と「ActivXコントロール」(以下「ActivX-Ctl」）があり、セルの値を変更する用途、簡単なマクロの呼び出しに使う場合はフォームCtlが、マクロのコードからの参照やコントロールの変化(イベント)でマクロを実行したい場合はActiveX-Ctlの利用が適している。特にプロパティの変更を行いたい場合は、ActivX-Ctlを選ぶ必要がある。この違いをまとめると、

コントロール	フォームCtl	ActivX-Ctl
利用方法	マクロの呼び出し、セル値の反映	マクロの呼び出し、マクロからの参照
配置方法	どちらも［開発］［挿入］でコンポーネントをクリック、ドラッグ
配置直後	ボタンは［マクロの登録］が起動	コンポーネントの配置のみ
外　観	どちらも同じ（ただしキャプション文字列が異なる）
選択方法	ホーム][編集][オブジェクトの選択]後 　クリックまたは範囲をドラッグ	[開発][デザインモード]をクリック後 　コントロールをクリック
プロパティ	非表示（シートのプロパティ）	コントロールのプロパティ表示
自由度	カスタマイズしにくい	カスタマイズが容易

１．コントロールの貼り付けと動作指示

�@［開発］タブで［挿入」をクリック。

�A「フォームCtl」または「AxtivX-Ctl」のボタンを選び、シート上にマウスで大きさを指定して貼り付ける。
　　フォームCtlは「ボタン1」、ActivX-Ctlは「Command1」と表示される。

�B［デザインモード］をクリックし（トグルになっている）、貼り付けたコントロールをクリックするとボタンの動作を指示することが出来る

�C フォームCtlのボタンでは「マクロの選択」画面が開くので、実行したいマクロを選択する。

�D ActiveX-CtlおよびフォームCtlのボタン以外では、Visual Basicボタンを押すと、VBE編集画面が開き、コマンドを入力できる。

�E デザインモードをクリックし通常モードに変更後、コントロールのボタンをクリックすると指定した動作が実行される。

�F ボタンのキャプションはActivX-Ctlでは右クリック後の「プロパティ」で。フォームCtlでは右クリック後「テキストの編集」で変更できる。

コントロールの種類	コントロールのプロパティ

２．メッセージボックスの利用

　間違ってボタンを押した時に、動作の実行をキャンセルしたいことがある。このような時にはVBAに準備されている「メッセージボックス」（MsgBox）を利用するのが便利である。
コマンドボタンが押されると、メッセージボックスを表示し、実行が「Yes」なら、実際に動作を実行し、でなければ実行がキャンセルされる。
なお、メッセージボックスで、戻り値が必要な場合はファンクション形式のMsgBox(）で指定し、戻り値が不要の場合は文形式で記述する。

‐−−−−−−−−−−−−−−−−−−−−−−−−−
Private Sub CommandButton1_Click()
  Dim ans As Integer
  ans = MsgBox("乱数を配置しますか？", vbYesNo + vbQuestion + vbDefaultButton2, "実行確認")
  If ans = vbYes Then
    test2
  Else
    MsgBox "操作をキャンセルしました", vbOKOnly, "乱数配置"
  End If
  Unload Me
End Sub
−−−−−−−−−−−−−−−−−−−−−−−−−−

ボタンが押された場合の動作指示	実行してみると・・

【メッセージボックスの書式】
　MsgBox(Prompt, [buttons], [Title], [Helpfile], [Context])

Prompt ：メッセージの内容

Button：表示するボタンやアイコン（＋で連記）

Title：タイトルバーの表示内容

Helpfile：ヘルプファイル

Cotext：コンテキスト番号（Help表示時）

設定値	標準ボタン
vbDefaultButton1	第１ボタンを指定
vbDefaultButton2	第２ボタンを指定
vbDefaultButton3	第３ボタンを指定

設定値	標準アイコン
vbCritical	「警告」
vbQuestion	「問い合わせ」
vbExclamation	「注意」
vbInformation	「情報」

設定値	表示ボタンの内容
vbOkOnly	＜OK＞だけ
vbOkCancel	＜OK＞と＜キャンセル＞
vbAbortRetryIgnore	＜中止＞＜再試行＞＜無視＞
vbYesNoCancel	＜はい＞＜いいえ＞＜キャンセル＞
vbYesNo	＜はい＞＜いいえ＞
vbRetryCancel	＜再試行＞＜キャンセル＞

---

パワーシェルとその後 ソーラーチャージャー ExcelのVBA(3)　〜コントロール

---