| |
▼しろうと さん：
こんばんは。
>ご回答ありがとうございます！
>
>早速，試してみたのですが，エラーが起きてしまいました･･･
どのような操作を行ったときに
どのようなエラーが発生したかを記述してください。
>
>できれば，使用させていただきたいと思っておりますので，
>もし，原因がわかりましたら，ご連絡いただけないでしょうか？
>
>以上，よろしくお願い致します。
>
新規ブックで試してください。
・ Sheet1というシートにコマンドバー「コントロールツールボックス」
にあるスクロールバーコントロール適当な大きさに配置します（ScrollBar1）。
・ このスクロールバーコントロールのプロパティは、事前に以下のように
設定してください。
min=0
max=100 （しろうと さんの記述にあったので書きませんでしたが）
これ以外は、規定値
で当該シートのモジュールに
>>スクロールバーの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
>>
このコードです。
スクロールコントロールを動かしてみてください。
Excel2002でのテストでは正常に動作しています。
|
|
ichinose
- 05/9/22(木) 19:07 -
