• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ListBox'taki itemi değiştirme

Katılım
10 Mayıs 2009
Mesajlar
1,080
Excel Vers. ve Dili
2003 türkçe
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..
 
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?
 
Daha net sorsam daha iyi olacak sanırım.

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

Ekli dosyalar

Aşağıdaki gibi deneyin.

Kod:
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
 
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.
 
Geri
Üst