Ｐａｇｅ 660 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼スクロールバーについて [名前なし] 03/2/1(土) 20:32 ┗Re:スクロールバーについて よろずや 03/2/1(土) 21:34 ┗Re:スクロールバーについて [名前なし] 03/2/1(土) 21:50 ┗Re:スクロールバーについて ポンタ 03/2/3(月) 10:58 ─────────────────────────────────────── ■題名 ： スクロールバーについて ■名前 ： [名前なし] ■日付 ： 03/2/1(土) 20:32 -------------------------------------------------------------------------
| 2箇所以上のスクロールバーにより数値を変換させその数値によりイベントを発生させる方法を教えてください． |
| ▼[名前なし] さん： >2箇所以上のスクロールバーにより数値を変換させその数値によりイベントを発生させる方法を教えてください． もチョット具体的に書かないと、有用な回答は得られませんよ。 |
| ▼よろずや さん： すみません。３つのスクロールバーで数値を変換させながら、セルの色を少しずつ変化させたかったのです。よろしくお願いします。 |
| これでどうでしょう？ ScrollBar1,2,3のMaxは255にしておいてください。 Private Sub ScrollBar1_Change() Range("A1").Interior.Color = RGB(Int(ScrollBar1.Value) _ , Int(ScrollBar2.Value), Int(ScrollBar3.Value)) End Sub Private Sub ScrollBar2_Change() Range("A1").Interior.Color = RGB(Int(ScrollBar1.Value) _ , Int(ScrollBar2.Value), Int(ScrollBar3.Value)) End Sub Private Sub ScrollBar3_Change() Range("A1").Interior.Color = RGB(Int(ScrollBar1.Value) _ , Int(ScrollBar2.Value), Int(ScrollBar3.Value)) End Sub |