|
ご回答ありがとうございます!
早速,試してみたのですが,エラーが起きてしまいました・・・
できれば,使用させていただきたいと思っておりますので,
もし,原因がわかりましたら,ご連絡いただけないでしょうか?
以上,よろしくお願い致します。
▼ichinose さん:
>こんばんは。
>
>スクロールバーのChangeイベントで
>
>'============================================
>Private Sub ScrollBar1_Change()
> Dim scl As Variant
> scl = Array(0, 10, 30, 80, 100)
> With ScrollBar1
> wk = Application.Match(.Value, scl, 1)
> If .Value = scl(wk - 1) Then
> ElseIf Range("a1").Value < .Value Then
> .Value = IIf(UBound(scl) < wk, scl(UBound(scl)), scl(wk))
> Else
> .Value = scl(wk - 1)
> End If
> If .Value = 0 Then .Value = 10
> Range("a1").Value = .Value
> End With
>End Sub
>
>
>とすれば、何とかできそうですが・・・、
>まっ、入力規則やオプションボタンのほうが楽ですよね!!
|
|