点滅するコードに改変(エクセル2010)
下記のコードで赤色の部分を点滅にするにはどのようなコードになりますでしょうか?
お手数かけますが、ご教授くださいませ。
Private Sub TextBox2_Change()
Select Case Me.TextBox2
Case "あああ", "いいい", "ううう"
Me.CommandButton56.BackColor = RGB(255, 0, 0)
Me.CommandButton48.BackColor = RGB(240, 240, 240)
Me.CommandButton49.BackColor = RGB(240, 240, 240)
Me.CommandButton62.BackColor = RGB(240, 240, 240)
Case "えええ", "おおお"
Me.CommandButton56.BackColor = RGB(240, 240, 240)
Me.CommandButton48.BackColor = RGB(250, 0, 0)
Me.CommandButton49.BackColor = RGB(250, 0, 0)
Me.CommandButton62.BackColor = RGB(250, 0, 0)
Case Else
Me.CommandButton56.BackColor = RGB(240, 240, 240)
Me.CommandButton48.BackColor = RGB(240, 240, 240)
Me.CommandButton49.BackColor = RGB(240, 240, 240)
Me.CommandButton62.BackColor = RGB(240, 240, 240)
End Select
End Sub
お礼
なるほど、 全てのコントロールだからBackColorがない場合もあるから出てこないのですね、。 スッキリしました。 有難うございます。