【VBA】スピンボタンの使い方【日付取得＋日付変更＋セル入力が使える】

目次から見たい項目へ移動すると便利ですよ。

Excel VBAでスピンボタンを使う方法を説明します。

スピンボタンとはこのようなものです。

アップとダウンの動作をすることができます。

ツールボックスから挿入することができます。

今回はユーザーフォームのテキストボックスと組み合わせて使ってみます。

スピンボタンのアップが押された際にテキストボックスの数字を1つ増やすVBAコードです。

『ユーザーフォームの中のコード』に記載します。

アップがクリックされた場合に実行するコードは『Private Sub SpinButton1_SpinUp()』です。

この中にテキストボックスの数字を1つ増やすコードを記載しています。

テキストボックスの中に数字『0』を入力しておきます。

スピンボタンのアップを実行してみます。

テキストボックスの中の数字が『1』になりました。

スピンボタンのダウンがクリックされた場合にテキストボックスの数字を1つ減らすVBAコードを作成してみます。

『ユーザーフォームの中のコード』に記載します。

スピンボタンのダウンが押された際に実行するコードは、『Private Sub SpinButton1_SpinDown()』になります。

このコードの中に数字を1つ減らすコードを記載しています。

テキストボックスの中に『0』を入力しておきます。

スピンボタンのダウンをクリックしてみます。

テキストボックスの中の数字が『-1』になりました。

スピンボタンの基本的な使い方はアップもしくはダウンがクリックした際にVBAコードを実行する。という感じです。

スピンボタンで日付を操作するVBAコードを紹介します。

まずは日付の『日』を操作するVBAコードを紹介します。

日付の操作には『DateAdd』というコードを使います。これで日付を進ませたり戻したりができます。

日付の『日』を操作するVBAコードです。『ユーザーフォームの中のコード』に記載します。

日付を1日だけ進めるのは、『DateAdd("d", 1, "2020/1/1")』でできます。

日付を1日だけ戻すのは、『DateAdd("d", -1, "2020/1/1")』でできます。

なのでスピンボタンのアップで1日進めたい場合はアップがクリックされた場合に実行するコード『Private Sub SpinButton1_SpinUp()』の中に記載します。

同じようにスピンボタンのダウンで1日戻したい場合は『Private Sub SpinButton1_SpinDown()』の中に1日戻すコードを記載します。

VBAコードを実行してみます。

最初にテキストボックスの中に日付『2020/1/1』を入力しておきました。

スピンボンタンのアップをクリックしてみます。

日付が1日進みました。

スピンボタンのダウンをクリックしてみます。

日付が1日戻りました。

日付を1か月進める方法と戻す方法について説明します。

同じように『DateAdd』を使います。引数が『"m"』となる点が違います。

日付の『月』を操作するVBAコードです。『ユーザーフォームの中のコード』に記載します。

日付の『月』を進める場合は、『DateAdd("m", 1, "2020/1/1")』とします。

日付の『月』を戻す場合は、『DateAdd("m", -1, "2020/1/1")』とします。

スピンボタンのアップとダウンの中に上記のコードを入力するという感じです。

VBAコードを実行した結果を見てみます。

最初はテキストボックスの中に日付『2020/1/1』を記載しておきました。

スピンボタンのアップをクリックしてみます。

日付が1か月進みました。

スピンボタンのダウンをクリックしてみます。

日付が1か月戻りました。

続いて日付を1年進める方法と戻す方法について説明します。

同じように『DateAdd』を使います。引数が『"yyyy"』となる点が違います。

日付の『年』を操作するVBAコードです。『ユーザーフォームの中のコード』に記載します。

日付の『年』を進める場合は、『DateAdd("yyyy", 1, "2020/1/1")』とします。

日付の『年』を戻す場合は、『DateAdd("yyyy", -1, "2020/1/1")』とします。

あとはスピンボタンのアップとダウンの中に上記のコードを入力するという感じです。

VBAコードを実行した結果を見てみます。

最初はテキストボックスの中に日付『2020/1/1』を記載しておきました。

スピンボタンのアップをクリックしてみます。

日付が1年進みました。

スピンボタンのダウンをクリックしてみます。

日付が1年戻りました。

これでスピンボタンで日付の操作ができます。

少し応用でセルから日付を取得して年月日を変更してセルに入力する。というVBAコードを作ってみました。

ユーザーフォームでスピンボタンを使ったあと最終的にはセルへ入力などをしたい。といった場合があるかと思いますので参考になるかと思います。

まずは結果から説明します。

ユーザーフォームを開いてみます。

初期値設定でセルからテキストボックスに日付が入力されています。

年月日を変更してみます。

1年1か月と1日進めてみました。

変更した日付をセルへ入力します。

セルA1へ日付が入力されました。

おそらくスピンボタンで日付を操作する場合はボタンのクリックで入力する場合が多いかと思います。

VBAコードはこちらです。『ユーザーフォームの中のコード』に記載します。

最初に初期設定『Private Sub UserForm_Initialize()』でセルから日付を取得しています。

スピルボタンで年月日の変更するVBAコードを記載しています。

ボタン『Private Sub CommandButton1_Click()』にテキストボックスの日付をセルへ入力するVBAコードを記載しています。

この記事ではユーザーフォームのスピンボタンの使い方と日付を操作する方法をご紹介しました。

私がスピンボタンで日付を操作する際はセルから値を取得して年月日を修正した後にセルへ入力する。といった使い方をしたりします。

スピンボタンのアップ・ダウンをクリックするだけで日付が変更できるので便利かと思います。

ご参考になればと思います。最後までご覧くださいましてありがとうございました。