kod Andzia

Private Sub CommandButton1_Click()
With CommandButton1
        .BackColor = vbGreen
        .Caption = "Dobrze"
    End With
Worksheets("Arkusz2").Activate
ActiveCell.Interior.ColorIndex = 4
End Sub

Private Sub CommandButton2_Click()
With CommandButton2
        .BackColor = RGB(255, 102, 0)
        .Caption = "Średnio"
    End With
Worksheets("Arkusz2").Activate
ActiveCell.Interior.ColorIndex = 46
End Sub

Private Sub CommandButton3_Click()
With CommandButton3
        .BackColor = vbRed
        .Caption = "Źle"
    End With
Worksheets("Arkusz2").Activate
ActiveCell.Interior.ColorIndex = 3
End Sub