ListBox'taki itemi değiştirme

[peleryn]

Herkese Merhabalar,

Örnek olarak ListBox'ımda hayvan,bitki,şehir,eşya itemlerim olsun.Bu listbox'ımda ben sürükle bırak ile bu itemlerin yerini yapacağım bir işleme göre değiştiriyorum.

Bir butona bastığımda listboxta hangi sıradaysa onun yerine hayvan itemi için ayı,bitki için diyelim ıspanak,şehir için istanbul,eşya için kemer yazılı olsun istiyorum.artık yeni değerlerim eski değerlerin sırasıyla bunlar olacak..Forumda aradım ama nasıl yapacağımı bulamadım.

Bir yönlendiren olursa sevinirim..

 

[peleryn]

Her bir satır için If ListBox1.List(0) ="..." Then ListBox1.List(0) =",,," şeklinde yaptım ama elbette bu uzun bir yol oldu..Bunun daha kısa bir yolu yok mudur?

 

[peleryn]

Daha net sorsam daha iyi olacak sanırım.

Ekli dosyadaki Analiz Et butonundaki kodları nasıl daha kısa yazabilirim?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
deg1 = Array("Aslan", "İnek", "At", "Koyun", "Maymun")
deg2 = Array("Gururunuz", "Temel İhtiyaçlarınız", "Hırslarınız", "Arkadaşlarınız", "Aileniz")
For a = 0 To ListBox1.ListCount - 1
ListBox1.List(a, 0) = deg2(WorksheetFunction.Match(ListBox1.List(a, 0), deg1, 0) - 1)
Next
End Sub

 

[peleryn]

Levent Hocam ;

Çok teşekkür ederim halloldu for ile denedim ben de ama yapamamıştım.Ellerinize sağlık tekrar teşekkür ederim.