RGB値の値に応じた色を調べるユーザーフォームを作成【ExcelVBA】

使い道は特に思いつかないですが、ユーザーフォームの練習がてらいかがでしょうか

ScrollBarの値をMaxが255、Minが０で0~255の値にし、その値に応じてUserFormのBackColorプロパティを設定し

色を可視化するだけ

ScrollBarを変更した時に起動されるScrollBarのChangeプロシージャと

TextBoxを変更した時に起動されるTextBoxのChangeプロシージャとを合わせて使用

ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ

実際に使用したサンプルコード

Option Explicit
Private Sub ScrollBar1_Change()
'スクロールバーの値をテキストボックスに入れる
TextBox1.Value = ScrollBar1.Value
Call バックカラー変更用
End Sub
Private Sub ScrollBar2_Change()
'スクロールバーの値をテキストボックスに入れる
TextBox2.Value = ScrollBar2.Value
Call バックカラー変更用
End Sub
Private Sub ScrollBar3_Change()
'スクロールバーの値をテキストボックスに入れる
TextBox3.Value = ScrollBar3.Value
Call バックカラー変更用
End Sub
Private Sub バックカラー変更用()
UserForm1.BackColor = RGB(ScrollBar1.Value, ScrollBar2.Value, ScrollBar3.Value)
End Sub
Private Sub TextBox1_Change()
ScrollBar1.Value = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
ScrollBar2.Value = TextBox2.Value
End Sub
Private Sub TextBox3_Change()
ScrollBar3.Value = TextBox3.Value
End Sub