• DİKKAT

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

Listbox'dan rastgale kayıtları textbox'a atma

Katılım
24 Ocak 2007
Mesajlar
102
Excel Vers. ve Dili
office 2003 türkçe
Merhaba,

Benim 3 tane listbox'ım var ve bunlara kayıt ekledim.Ben butona bastığım zaman bu 3 ayrı listbox'dan rastgale 1'er kayıt alacak ve 3 ayrı textbox'a bu kayıtları göstermesini istiyorum.(kayıtlar listbox'dan silinmeyecek)
Yardımlarınız için şimdiden teşekkür ederim.
 
Örneği inceleyin ve kendi dosyanıza uyarlamaya çalışın.
Kod:
Private Sub CommandButton1_Click()
Randomize
TextBox1 = ListBox1.List(Int((ListBox1.ListCount * Rnd)), 0)
TextBox2 = ListBox2.List(Int((ListBox2.ListCount * Rnd)), 0)
TextBox3 = ListBox3.List(Int((ListBox3.ListCount * Rnd)), 0)
End Sub

Private Sub UserForm_Initialize()
ListBox1.AddItem "a"
ListBox1.AddItem "b"
ListBox1.AddItem "c"

ListBox2.AddItem "d"
ListBox2.AddItem "e"
ListBox2.AddItem "f"

ListBox3.AddItem "g"
ListBox3.AddItem "h"
ListBox3.AddItem "i"
End Sub
 

Ekli dosyalar

Geri
Üst