UserForm上で

日付を入れるためのテキストボックスと、その横にスピンボタンを配置します。

そしたら、どこか標準モジュールにフォームを開くコードを書いておきます。使うときはこのプロシージャを実行します。

で、さっきの UserForm のコード画面で、

スピンボタンに対するイベント、スピンダウンとスピンアップを使ってこのように。日付の計算は同じなので、引数持たせて共通プロシージャを Call する形にしてみました。

コピペ用コードはこちら。

シート上で

これだけだと寂しいので、UserForm 使わないで直接シート上のセルの値を使う方法も。

A1セルに日付があるとして、ActiveX コントロールのスピンボタンを挿入します。

デザインモードにすると、コントロール名が確認できます。このコントロール名をコードで使います。

スポンボタンを設置したシートモジュールを開くと、スピンボタンが選択肢に現れてるはずなので、ここから同じようにイベントプロシージャを書くことができます。

コピペ用コードはこちら。

以上です! かんたんなわりに使い勝手は良さそうでいいですね。

  • このエントリーをはてなブックマークに追加
  • follow us in feedly 651
  • RSSを登録

公開日:2017/10/03


コメントを残す




*印は必須項目です。コメントは承認制ですので、反映までしばらくお待ち下さい。(稀にですがスパムの誤判定にて届かないこともあるようですので、必要な際はお問い合わせからお願い致します。)


back to top