Userformdaki Nesnelerin Rastgele Seçilmesi

[mesuttasar]

Userformdaki Nesnelerin Rastgele Seçilmesi (İngilizce Sözlük _ TAMAMLANDI)

Arkadaşlar merhaba.Basit bir ingilizce türkçe sözlük hazırlıyorum , bu uygulama içinde birde ingilizce kelimenin türkçe karşılığını doğru tahmin edecek bir bölüm var.Yani üstte ingilizce kelime yazacak , altta ise 4 adet label kutusundan birine doğru cevabı , diğerlerine yanlış kelimeleri yazdırmak istiyorum. 1 ile 4 arasında rastgele bir sayı oluşturup (örneğin 3 ) bunu Label3.caption özelliğine yazdırmak istiyorum , bunun için nasıl bir kod yazılması gerekir ? Aşağıda kırmızı renkli olan satırı düzenlemek istiyorum.Teşekkür ederim.

Private Sub UserForm_Initialize()
Randomize
sayi = Round(2514 * Rnd)
Label2.Caption = Cells(sayi, 2)
d = Round(4 * Rnd)
[COLOR=red]Label & (d - 2).Caption = Cells(sayi, 4)[/COLOR]
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki gibi deneyin.

Controls("Label" & d - 2).Caption = Cells(sayi, 4)

 

[mesuttasar]

Korhan bey , diğer uzman arkadaşlarımız gibi harikasınız... Çok teşekkür ederim.

 

[galips26]

Çocuğum ingilizce çalışsın diye bir dosya hazırlamıştım .
belki faydası olur.

Ama kodlar çok acemice (çok az bilgim olduğu için ancak böyle yapabildim)

sakın gülmeyin

Çalışma kısmında kelime seçince aynı kelime seçebiliyor,ama kelime sayısı arttıkça bu sorun az görülüyor ona bir kontrol eklenebilir .

belki faydası olur diye ekliyorum

iyi günler.

 

[mesuttasar]

Çocuğum ingilizce çalışsın diye bir dosya hazırlamıştım .
belki faydası olur.

Ama kodlar çok acemice (çok az bilgim olduğu için ancak böyle yapabildim)

sakın gülmeyin

Çalışma kısmında kelime seçince aynı kelime seçebiliyor,ama kelime sayısı arttıkça bu sorun az görülüyor ona bir kontrol eklenebilir .

belki faydası olur diye ekliyorum

iyi günler.

Galip Bey selamlar , çalışmanızı ekledim gayet güzel yapmışsınız ellerinize sağlık , programların illa çok komplike olması önemli değil bazen en basit programdaki düşünce sistemi bişe bizlere yeni ufuklar açabiliyor.Bu yüzden sizi tekrar tebrik ediyorum.Saygılarımla,

 

[mesuttasar]

Arkadaşlar programın son hali ektedir.Yardımlarınız için teşekkür ederim.

 

[galips26]

Mesut bey çok teşekkürler

sizin çalışmadız da çok güzel olmuş .