スピンボタンを使う
SpinButtonで数量を1～10の範囲で増減し、ラベルに数量を表示します。
実行前に確認
- SpinButton自体には数値表示欄がありません。LabelなどへValueを表示する処理を組み合わせます。
- コードと公式仕様を照合した学習用の例です。Excel実機での実行確認は行っていません。
1サンプルコード
'【貼付先：UserForm1 のコードモジュール】
Option Explicit
Private Sub UserForm_Initialize()
Me.Width = 360
Me.Label1.AutoSize = True
With Me.SpinButton1
.Min = 1
.Max = 10
.SmallChange = 1
.Value = 1
End With
ShowQuantity
End Sub
Private Sub SpinButton1_Change()
ShowQuantity
End Sub
Private Sub ShowQuantity()
Me.Label1.Caption = "数量：" & Me.SpinButton1.Value
End Sub図で見る数量を増減する
イメージ図SpinButtonで数量を1～10の範囲で増減し、ラベルに数量を表示します。
制限
1～10、1刻みに設定
操作
上下矢印でValueが変わる
反映
Label1へ現在の数量
各操作は、このガイドに指定されたフォームのコードで行います。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する5つの手順で、コードの使い方を確認できます
- 1
Windows版デスクトップExcelの練習用ブックを.xlsmで保存し、Alt＋F11→［挿入］→［ユーザーフォーム］で、名前がUserForm1の空のフォームを用意します。各例は別々に試します。
- 2
ツールボックスからSpinButton1を縦長に1個、Label1を1個を置き、各コントロールの［(Name)］が記載どおりか確認します。
- 3
UserForm1を右クリック→［コードの表示］を開き、掲載コード全体をフォームのコードモジュールへ貼り付けます。標準モジュールには貼り付けません。
- 4
VBEでUserForm1を選び、F5でフォームを表示します。 上矢印を2回、下矢印を1回クリックします。
- 5
数量は1→3→2に変化します。範囲外の0や11には進みません。