読者です 読者をやめる 読者になる 読者になる

由夢【ゆめ】の備忘録

○コンピュータに関するもの○その他○ゲーム○など

ユーザーフォームの色をクリックするごとに変更

VBA

Private Sub UserForm_Click()

 Randomize
 Dim R As Integer
 Dim B As Integer
 Dim G As Integer
 R = Rnd() * 255
 G = Rnd() * 255
 B = Rnd() * 255

 BackColor = RGB(R, G, B) '※2 背景色を変える
 BorderColor = RGB(255, 0, 0) '※2 境界線色を変える

End Sub