由夢【ゆめ】の備忘録

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

VBA

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

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…