こんにちは、ユーキです。
今回はExcel VBAでボタンを追加して、処理を実行するプログラムを作ってましょう。
ボタンを追加する
まず、ボタンを追加します。ボタンの追加には、[開発]タブから[挿入]ボタンを選択します。そうすると、追加する部品(コントロール)の候補が表示されますので、今回は[ActiveX コントロール]の一番左上のアイコンを選択します。
![ボタン追加(リボン)](https://yuuqy-blog.com/wp-content/uploads/2022/05/7e37c72a3d299f7bf712a652c70e8507.png)
選択すると、カーソルが「+」マークになりますので、ボタンを追加したい位置でマウスをクリック&ドラッグします。ボタンの位置や、大きさは後で変更は可能ですので、適当で構いません。操作が完了すると、ボタンが追加されます。
ボタンを追加すると、自動的に「デザインモード」に変更となります。
![ボタン追加](https://yuuqy-blog.com/wp-content/uploads/2022/05/d018e156e58970a32892874a68f56a45.png)
「デザインモード」とは、ボタンなどの部品を配置したり、設定を変更したりするモードです。「デザインモード」ボタンをクリックすると、解除されます。再度、「デザインモード」にしたい場合は、「デザインモード」ボタンをクリックすれば、変更可能です。
![デザインモード解除/変更](https://yuuqy-blog.com/wp-content/uploads/2022/05/f096213f258ad8fbb91c4ff504ed5eda.png)
ボタンに処理を設定する
では、次にボタンに処理を追加しましょう。
「デザインモード」になっていることを確認して、ボタンをダブルクリックします。すると、VBAが起動して、次のようなコードが挿入されます。
![ボタンイベントの挿入コード](https://yuuqy-blog.com/wp-content/uploads/2022/05/f916289825ae77549883f1f965cf62c9.png)
今回は、ボタンを押下すると、現在の日時を表示するメッセージを表示する処理を追加してみましょう。
メッセージの表示はMsgBox関数を、現在の日時の取得はNow関数を使用します。
コードは以下のようになります。
Private Sub CommandButton1_Click()
MsgBox Now
End Sub
記述するコードはこれだけになります。
Excel画面に戻り、「デザインモード」を解除して、ボタンを押下してみましょう。
以下のように表示されたら成功です。
![実行結果](https://yuuqy-blog.com/wp-content/uploads/2022/05/60bd49c8438e413339af1e861543c41a.png)
お疲れ様でした。今回はこれで終了となります。