VBAで利用する機会の多いUserFormですが、特定の範囲を増減させるインターフェースとしてスピンボタンがあります。クリック操作で値を増減させることが出来るので何かと使用する機会も多いのではないでしょうか。今回はそのスピンボタンの値設定や取得、増減幅設定やボタンを押した際のイベント...
Private Sub ListBox1_Change() If ListBox1.ListIndex > -1 Then i = ListBox1.ListIndex ListBox1.ListIndex = -1 End If End Sub Private Sub UserForm_Initialize() ListBox1.MultiSelect = fmMultiSelectMulti ListBox1.RowSource = "a1:d30" End Sub なお、ブレークポイントを設定し一...