2016-01-20 ユーザーフォームの色をクリックするごとに変更 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
