ユーザーフォーム上にボタン
Excel2016,2013 マクロ 29回
コントロールからボタンを配置する
フォームにボタンを配置するには、コントロールツールボックスに並んでいるコントロールのアイコン群の中からボタンをクリックし、配置したいフォームでドラッグします。
サンプルファイルは、こちらから
マクロ29回サンプルデータ)
ユーザーフォームにボタンを作成
コントロールツールボックスからコマンドボタンアイコンをクリックします。
![ユーザーフォーム上にボタン1](macro/macro28_14.png)
![ユーザーフォーム上にボタン1](macro/macro28_14.png)
フォーム上で、マウスをドラッグして、大体の位置を決めたらマウスボタンを離します。
![ユーザーフォーム上にボタン2](macro/macro28_08.png)
その位置にドラッグしたサイズでボタンが作成されます。
![ユーザーフォーム上にボタン2](macro/macro28_08.png)
その位置にドラッグしたサイズでボタンが作成されます。
ユーザーフォームボタンのフォントとサイズを変更する
フォームに配置したボタンは選択状態となってます。選択されているときに、その周りでドラッグするとボタンサイズを変更できます。
プロパティウィンドウで、Fontの入力欄からフォントの種類とサイズを変更できます。
![ユーザーフォーム上にボタン3](macro/macro28_20.png)
プロパティウィンドウで、Fontの入力欄からフォントの種類とサイズを変更できます。
![ユーザーフォーム上にボタン3](macro/macro28_20.png)
ユーザーフォームボタンの文字列を変更する
ボタン上に表示される名称は、プロパティウィンドウで、Captionの入力欄から変更できます。
サンプルでは、デフォルトのCommandButton1から「Formを隠す」に変更しました。
![ユーザーフォーム上にボタン4](macro/macro28_09.png)
サンプルでは、デフォルトのCommandButton1から「Formを隠す」に変更しました。
![ユーザーフォーム上にボタン4](macro/macro28_09.png)
ユーザーフォームボタンの色を変更する
ボタンの背景色を変更するには、プロパティウィンドウで、BackColorの入力欄にある▼をクリックして、表示されるパレットとシステムの色から変更できます。
![ユーザーフォーム上にボタン5](macro/macro28_10.png)
![ユーザーフォーム上にボタン5](macro/macro28_10.png)
コマンドボタンにコードを作成
コマンドボタン上でダブルクリックするか、右クリックのコードの表示をクリックします。
![ユーザーフォーム上にボタン5](macro/macro28_11.png)
![ユーザーフォーム上にボタン5](macro/macro28_11.png)
すると、自動的にデフォルトのClickイベントプロシージャが入力された状態でコードが表示されます。
![ユーザーフォーム上にボタン6](macro/macro28_12.png)
![ユーザーフォーム上にボタン6](macro/macro28_12.png)
ここにFormを隠すHideメソッドを記入します。
![ユーザーフォーム上にボタン7](macro/macro28_13.png)
Private Sub CommandButton1_Click() UserForm1.Hide End Sub
![ユーザーフォーム上にボタン7](macro/macro28_13.png)
コード画面からフォーム画面に戻る
コードはこれだけです。次にメニューの表示タブからオブジェクトを選択してFormに戻ります。
![ユーザーフォーム上にボタン8](macro/macro28_17.png)
![ユーザーフォーム上にボタン8](macro/macro28_17.png)
ユーザーフォームの実行
緑色の▼ボタンをクリックしてユーザーフォームの実行を行って動作を見てみましょう。
![ユーザーフォーム上にボタン9](macro/macro28_18.png)
![ユーザーフォーム上にボタン9](macro/macro28_18.png)
ユーザーフォームが表示されました。ボタンを押すとFormが隠れます。
![ユーザーフォーム上にボタン10](macro/macro28_19.png)
![ユーザーフォーム上にボタン10](macro/macro28_19.png)
補足:このブックの標準モジュールには、フォームを表示するマクロとフォームを閉じるマクロも入力されています。
フォームを表示するには、Showメソッドを使い、フォームを閉じるには、VBAのUnloadステートメントを使っています。
![ユーザーフォーム上にボタン11](macro/macro28_21.png)
フォームを表示するには、Showメソッドを使い、フォームを閉じるには、VBAのUnloadステートメントを使っています。
![ユーザーフォーム上にボタン11](macro/macro28_21.png)