Userform buton

[muratgunay48]

Arkadaşlar, userformda tek tıkla buton renk değiştirmek nasıl yapılır.
Şimdiden teşekkür ederim. Saygılarımla.

 

[Korhan Ayhan]

Arama yapınca birşeyler çıkıyor.

Sorgu için arama sonuçları: Commandbutton+backcolor

www.excel.web.tr

 

[muratgunay48]

Arama yapınca birşeyler çıkıyor.

Sorgu için arama sonuçları: Commandbutton+backcolor

www.excel.web.tr

Hocam ilginize teşekkür ederim.
Hocam, şöyle bir kod buldum ama. Tıkladıkça değişen diyor (denemedim)

Private Sub CommandButton1_Click()
Static RenkNo As Byte
RenkNo = RenkNo + 1
If RenkNo > 4 Then RenkNo = 1
Select Case RenkNo
Case 1
CommandButton2.BackColor = vbRed
Case 2
CommandButton2.BackColor = vbGreen
Case 3
CommandButton2.BackColor = vbYellow
Case 4
CommandButton2.BackColor = vbBlue
End Select
End Sub

Bunu sadece bir defaya mahsus değişene nasıl çevirebiliriz.

 

[muratgunay48]

@Korhan Ayhan hocam, yukardaki kodun 3 satırını sildim, sadece kırmızı oluyor.

Private Sub CommandButton1_Click()
Static RenkNo As Byte
RenkNo = RenkNo + 1
If RenkNo > 4 Then RenkNo = 1
Select Case RenkNo
Case 1
CommandButton2.BackColor = vbRed
End Select
End Sub

Oldu gibi, iş görür.
Teşekkürler.