buton rengi değiştirme

[Korhan Ayhan]

Selamlar,

Konuyla ilgili olarak aşağıdaki linkteki resimli anlatım sizi bu konuda aydınlatacaktır. İncelermisiniz.

http://www.excel.web.tr/f157/sayfada-commandbutton-olusturmak-ve-makro-atamak-resimli-anlat-t68065.html

 

[baydeniro]

Merhaba bu işlemi Makro butonu için de yapmak mümkün mü ?

 

[bunyamin07]

Dört tane buton var ve bunlardan birini tıklayınca öteki ücünün rengi ile o farklı olsun istiyorum. hangisine tıklanırsa onun rengi ötekilerden farklı olmalı...

 

[harpesiri]

ufak bir değişiklik ile tamamdır.

makro içeren bir dosyayı .xls uzantısı ile nasıl kaydettiğinizi paylaşır mısınız.

Teşekküler..

 

[tr1976tr]

Sn Demir merhaba,
Soruyu soran arkadaş sorusunu daha da geliştirir diye bekledim ama başka soru gelmedi. Verdiğiniz kodu denedim üzerinde değişiklik yaptım istediğimi yapamadım. Sormam gerekti.
Kullanınca rengi değişsin ama,
- Bir defa değişsin,
- Benim belirleyeceğim renk olsun.
Eminim bir cevabınız vardır.
Selamlar,

Bende bir togglebutton'da aynı problemi yaşamıştım. sonunda aşağıdaki makro ile çözüm buldum. ;

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.BackColor = RGB(255, 0, 0) ' kırmızı
End If
If ToggleButton1.Value = False Then
ToggleButton1.BackColor = RGB(0, 255, 0) ' yeşil
End If
End Sub

 

[harpesiri]

Dört tane buton var ve bunlardan birini tıklayınca öteki ücünün rengi ile o farklı olsun istiyorum. hangisine tıklanırsa onun rengi ötekilerden farklı olmalı...

Merhaba,

birden fazla Commandbutton olduğunu durumda

................yeşil fonksiyonu tüm butonları yeşil yapmak için...
Sub yesil()
Dim nesne As OLEObject

For Each nesne In ActiveSheet.OLEObjects
If TypeName(nesne.Object) = "CommandButton" Then
nesne.Object.BackColor = 65280 // yeşil kodu..veya =RGB(0,255,0)

End If
Next nesne

End Sub
/////
..................Buton_1 tıklandığında hepsi yeşil olsun tıklalan kırmızı olsun...........................

Private Sub CommandButton1_Click()
.....
Call yesil
CommandButton1.BackColor = RGB(255, 0, 0)
.....
End Sub
////

kolay gelsin