VBAでスクロールバーを動かしても値が変わらない
図のようなスクロールバーを動かして、それぞれの値と、A4のセルの色が変わるものを作りたいのです。
プログラムは、
Sub スクロール1_Change()
R = Range("C2").Value
G = Range("D2").Value
B = Range("E2").Value
Range("A4").Interior.Color = RGB(R, G, B)
End Sub
Sub スクロール2_Change()
R = Range("C2").Value
G = Range("D2").Value
B = Range("E2").Value
Range("A4").Interior.Color = RGB(R, G, B)
End Sub
Sub スクロール3_Change()
R = Range("C2").Value
G = Range("D2").Value
B = Range("E2").Value
Range("A4").Interior.Color = RGB(R, G, B)
End Sub
ですが、スクロールバーに関連付けられていないようです。基本ですみませんが、関連付けるにはどうすればいいのでしょうか。
お礼
ありがとうございます。 回答いただいた方法ですと、スクロールバーを設置した位置に関係なくスクロール範囲が決定されてしまいます。 画像のスクロールバーは私が新たに付け加えたものです。 そのスクロールバーに合わせてスクロールさせたいのです。