|
▼豆 さん:
>そこで、Sub SpinButton1_SpinUp() とSub SpinButton1_SpinDown()
>をモジュール1に書き込んだのですが
>シート上のスピンボタンにはマクロが1つしか登録できません。
SpinButton1_SpinUp() や SpinButton1_SpinDown() は
イベントプロシージャといって、ボタンに登録しなくても
たとえば、スピンボタンが▲をクリックすれば
SpinButton1_SpinUp() イベントが起きるので、そこにしたいことを
書いておけばいいです。
スピンボタンを▼したときにしたいことは
Sub SpinButton1_SpinDown()
に書いておけばいいです。
'------------------------- シートモジュール
Private Sub SpinButton1_SpinDown()
UpDown -1
End Sub
Private Sub SpinButton1_SpinUp()
UpDown 1
End Sub
Private Sub UpDown(num&)
Select Case [A1].Value
Case "リンゴ"
[B1].Value = [B1].Value + num
Case "みかん"
[B2].Value = [B2].Value + num
Case "バナナ"
[B3].Value = [B3].Value + num
End Select
End Sub
|
|