Listbox ta satır rengi nasıl yapılır?

[mnz]

Listbox ta 1 satır arayla aynı renk nasıl tanımların?
Bir satır kırmızı, bir satır beyaz ... gibi

 

[Haluk]

Yapamazsınız ...

 

[xxcell]

Kılıcı kınından çıkartamıyorsan,
Kını kılıçtan çıkar :mrgreen:

 

[Levent Menteşoğlu]

Multiline özelliğini kullanmak son derece akıllıca. Çok zekice bir çözüm, sizi tebrik ediyorum.

 

[xxcell]

Teveccühünüz.

Nacizane ukalalık yapıcam, VBA öğrenmeye ihtiyaç duymayacak kadar iyi kulanıyorum fonksiyonları.

Ama insan kendi kabuğundan çıkıp, böyle bir foruma gelince ve sizin gibi, Haluk bey, Cost control gibi üstatları görünce eksikleri olduğu hatırlıyor. Sayenizde VBA öğrenme şevki aldım.

Paylaşımcılığınıza müteşekkirim.

 

[hurkanpisirici]

ben satır renklendirmeyi beceremedimm multiline özelliğini nereden değiştiricem özelliklerde de bulamadım

 

[mnz]

Kılıcı kınından çıkartamıyorsan,
Kını kılıçtan çıkar :mrgreen:

Soruma cevap almışım ama ben daha yeni görüyorum.
Sayın xxcell teşekkürler.

 

[vivident]

Bu konuda "xxcell" nickli arkadaşımızın yaptığı örneği indirmek istiyorum ama sanırım link ölmüş. Tüm forumlarda aradım ama listbox satır renkendirmenin mümkün olmadığını öğrendim. Sanırım bu örnek olabildiğini gösteriyor. Bu dosyayı nasıl indirebiliriz veya arşivinde olan kullanıcılar varsa paylaşabilirlerse memnun olurum

 

[Erdem Akdemir]

xxcell'in örneği elinde olan varsa, forumda tekrar paylaşabilir mi?

 

[Murat OSMA]

Selâm Erdem,

Sn.xxcell'in örneği elimde yok ama mesajlardan anladığım kadarıyla şöyle olabilir;
UserForm üzerinde 1 adet ListBox ve CommandButton olsun.

UserForm'daki kodlarımızda bunlar olsun;

[FONT="Trebuchet MS"][SIZE="2"]Private Sub CommandButton1_Click()
    ListBox1.MultiSelect = 1
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.List(i) = "[COLOR="Red"]Emre[/COLOR]" Then
            ListBox1.Selected(i) = True
        End If
    Next i
End Sub

Private Sub UserForm_Initialize()
    List = Array("[COLOR="Red"]Emre[/COLOR]", "Murat", "[COLOR="red"]Emre[/COLOR]", "[COLOR="red"]Emre[/COLOR]", "Kumsal")
    ListBox1.List = List
End Sub[/SIZE][/FONT]

Eğer istersen, işine de yararsa; ListView arka plân satır rengini şarta göre renklendirme konusunda da yardımcı olabilirim.

Görüşürüz, hoşça kal. k::

 

[Erdem Akdemir]

Murat selam kardeşim, işyerindeki ofiste 64 bit kurulu listwiew nesnesini kuramıyorum.

multiline dendiğine göre aklıma textbox nesnesi üzerinden işlem yapıldığı geldi. nasıl olduğunu merak ettim

 

[Murat OSMA]

Murat selam kardeşim, işyerindeki ofiste 64 bit kurulu listwiew nesnesini kuramıyorum.

multiline dendiğine göre aklıma textbox nesnesi üzerinden işlem yapıldığı geldi. nasıl olduğunu merak ettim

Office 64 bit sıkıntı maalesef. Yine de aklında bulunsun.

Merakını giderdim sanırım.

 

[halit3]

Lisbox operatöründe satır renklendirme olayı yok.

Ancak Multiline özelliğini kullanılarak satırlar bir atlıyarak mavi renk yapılabilir.

Userforma 1 adet listbox ,1 adet CommandButton nesnesi ekleyin ve aşağdaki kodlarıda userformun içine koyun aşağıdaki kod sayfanın A1:G30 aralığında veri mevcut.


kod:

Private Sub CommandButton1_Click()
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.ListStyle = fmListStylePlain
ListBox1.SetFocus
For j = 0 To ListBox1.ListCount - 1
If x Mod 2 = 1 Then
SendKeys ("{ }"), True
End If
If j > 0 Then
SendKeys ("{Down}"), True
SendKeys ("{Down}"), True
End If
SendKeys ("{ }"), True
Next

ListBox1.ListIndex = 0
End Sub


Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 8
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "40;70;70;80;80;80;80"
ListBox1.RowSource = ActiveSheet.Name & "!a2:g30"
ListBox1.ListIndex = ListBox1.ListCount - 1
CommandButton1_Click
End Sub

 

[teknisyen7777]

Eğer istersen, işine de yararsa; ListView arka plân satır rengini şarta göre renklendirme konusunda da yardımcı olabilirim.

Eski bir konuymuş ancak bana şuan lazım oldu. Sayın Murat OSMA, şarta bağlı renklendirmeyi nasıl yapabiliriz?
Bunun için yeni açtığım konuya örnek olarak yazdığım mesaj da aşağıdadır.

"UserForm içindeki bir listbox'a excelden veri alıyorum (C3:F12 arası 10 satır)
Listboxtaki bu satırlardan herhangi birinde (çoklu da olabilir) örneğin "Hayır" kelimesi geçtiğinde o satır tamamen renklensin istiyorum.
Excel de bu renklenme oluyor ama listboxa geçtiğinde siyah kalıyor. "

Teşekkürler...