Rastgele Kelime Çağırma

[ShodoW]

Merhaba arkadaşlar,

Rastgele kelime çağırmak istiyorum ama başaramadım yardımcı olursanız sevinirim.

İki sheet var bunlardan biri kelime havuzu diğeri arama ve rastgele kelime çağırma bölümü,

Tuşa bastığımda kelıme havuzundan 10 tanesini rastgele sıralamasını istiyorum
bunu nasıl yapabılırım.

Şimdiden teşekkür ederim.

 

[fedeal]

Sayın H.SAYAR'ın kodlarıydı sanırım uyarladım iyi çalışmalar. Pardon sayın R.İPEK'inmiş kendisine teşekkürler.

 

[Orion1]

Bu yaptığımda hata vardı .Düzeltilmiş şekli alttaki mesajda.

 

[Orion1]

Dosya ekte.

Sub kura()
Dim i As Byte, deg As Collection, k As Long
Sheets("Arama").Select
Range("C4:D65536").Clear
Randomize

With Sheets("Kelime Havuzu")
    For i = 1 To 2
    Set deg = New Collection

        For k = 2 To .Cells(65536, i).End(xlUp).Row
            deg.Add (.Cells(k, i).Value)
        Next k
        For j = 1 To 10
            indis = Int(Rnd() * deg.Count) + 1
            Cells(j + 3, i + 2).Value = deg.Item(indis)
            deg.Remove (indis)
        Next j
        Set deg = Nothing
    Next i
End With
MsgBox "Kelimeler rastgele seçildi"
               
End Sub

 

[leumruk]

Merhaba,
Bir alternatif de benden olsun:

Sub kelime()
Set s2 = Sheets("Kelime Havuzu")
sy = WorksheetFunction.CountA(s2.Range("a2:a" & s2.[a65536].End(3).Row))
Randomize
For x = 1 To 10
Tekrar:
    sayi = Int((sy * Rnd) + 1)
    If WorksheetFunction.CountIf(Range("c4:c13"), s2.Cells(sayi + 1, "a")) > 0 Then GoTo Tekrar
    Cells(x + 3, "c") = s2.Cells(sayi + 1, "a")
    Cells(x + 3, "d") = s2.Cells(sayi + 1, "b")
Next
End Sub

DENEME(1).xls

docs.google.com

 

[ShodoW]

Elinize sağlık

Elinize sağlık arkadaşlar gerçekten çok işime yaradı
Benim yapmak istediğim şey yabancı kelime ezberliyicisi idi
Her gün rastgele 10 kelimeyi ezberlemek için tasarladım ve artı olarak bir sözlük haline geldi kelime haznesi geliştirilirse dahada güzel şeyler olabilir.Aşağıdada yaptığım çalışmanın son halini sizlerle paylaşmak istedim yorumlarınızı bekliyorum.

 

[leumruk]

Merhaba,
Elinize sağlık faydalı bir çalışma olmuş.
Kelime havuzuna kelimeleri formül yerine makro ile aldırırsanız daha kullanışlı olacağı kanaatindeyim. Fikir vermesi açısından bir örnek hazırladım. Kelime havuzu sayfasındaki güncelle butonuna basarak sonucu gözlemleyiniz. Yeni kelimer eklediğinizde bu butona basmanız yeterli olacaktır. Ayrıca yeni sayfalar da ekleyebilirsiniz.

 

[ShodoW]

Tesekkur Ederım.

Teşekkür ederim çok faydalı oldu bu tur komutları vermekte zorlanıyorum cunkı mantıgını bılemıyorum detaylı karıstırıp ogrenmem gerekıyor.Bu konudada tavsıyelerınıze acıgım.Sizin yaptıgınızdan feyz alarak bır fıkır daha geldı aklıma bu arama bolumunde bır ekle butonu yapabılırmıyız tıkladıgımızda bır ekran acılsın orda;

Bölüm "Açmış olduğum sheetleri içericek"
İngizlice " Kelimenin İngilizcesi"
Türkçe "Türkrçe karşılığı"
Ekle " Tıkladığımda bölümde seçili olan sheet e gidip kelimeyi kaydedicek"

Böğle birşey yapmamız mümkünmü yol gösterebilirseniz minnettar kalıcam.

Dosyada düzenlemeler yaptım ektedir.

 

[fedeal]

çalışmanızdan esinlenerek bir oyun yaptım.10 kelime var yine kelimenin harf sayısı kadar yanlış girdiginizde puan kesiliyor.yanlış kelimelerde kutu turuncu oluyor taki doğruyu girene kadar.küçük harf kullanın (küçük büyük harf konusunda gerekirse ekleme yaparım. 10 kelime bitince puan veriyor.
ezberleme için umarım faydalı olur. saygılar.

 

[leumruk]

Syn. shodow,
Ekli örneği inceleyiniz. Basit bir form yaptım. Ondan hareketle dosyanızı geliştirebilirsiniz.
Eğer isterseniz, Kelime Havuzu sayfasını tamamen iptal edip, hiç günceleleme yapmaya gerek kalmadan kura çakimini kelimelerin kendi sayfaları üzerinden de yaptırabiliriz.

Syn fedeal,
Tebrik ederim, güzel ve faydalı bir çalışma olmuş, biraz daha geliştirebilirseniz, öğrencilerimiz için bulunmaz bir program olacaktır.

 

[ShodoW]

Elınıze saglık

Arkadaslar ellerınıze saglık gonderdıklerınızı ıncelıyecegım her defasında kafamda baska fıkırlerde uyanıyor )) sanırım bu durmak bılmıcek)
yaptıklarınızı bırlestırıp uzerıne yıne eklemeler yapıp sızınle paylasmak ıstıyorum
Bu programa ılk gırısım sozluk olusturmaktı sonra ısın ıcıne kelıme ezberlemek ıcın bı hazne yapmak gırdı daha sonra kelımelerı eklıyıp sozlugu buyutecek bır program tasarlamak ıstedım sımdıde aklıma gelen Fedeal arkadasımızın oyununu eklıyıp o oyunu test e cevırmek boylece ezberledıgını test etme ımkanı saglarken olmıyan kelımelerı eklıyıp buyuk bı kelıme havuzuda olusturmak olucak.Ilgınız ve alakanız ıcın tesekkur edıyorum.

 

[ShodoW]

Syn. shodow,
Ekli örneği inceleyiniz. Basit bir form yaptım. Ondan hareketle dosyanızı geliştirebilirsiniz.
Eğer isterseniz, Kelime Havuzu sayfasını tamamen iptal edip, hiç günceleleme yapmaya gerek kalmadan kura çakimini kelimelerin kendi sayfaları üzerinden de yaptırabiliriz.

Syn fedeal,
Tebrik ederim, güzel ve faydalı bir çalışma olmuş, biraz daha geliştirebilirseniz, öğrencilerimiz için bulunmaz bir program olacaktır.

Syn, Leumruk

Yardımlarınız ıcın ayrıca tesekkur etmek ıstedım formu ıncelıyıp gelıstırıcem kelıme havuzunun asıl ıslevı kura cekımının altındakı sozlugu calıstırmaktı sozluk tek yanı kelıme arama bolumu havuzdan yardım alarak calısıyor eğer bunu baska bırsekılde yapma sansımız varsa o yoluda gosterebılırsenız daha estedık bır calısma olucagına ınanıyorum.

 

[baydeniro]

Çok teşekkürler. Çok yararlı bir çalışma

 

[leumruk]

Merhaba,
Sn. shodow,
Dosyanız üzerine fikir vermesi açısından eklemeler yaptım. Kelime Havuzu sayfasındaki c-d sütunlarını iptal ettim.
Sözlük kısmına da fonksiyon yerine makro uyguladım.
Ayrıca sözlüğü forma da taşıdım.
Eğer isterseniz uygulamayı tamamen userform üzerine taşıyabilirsiniz. Görsellik ve kullanım kolaylığı yönüyle size avantaj sağlayacaktır.

 

[leumruk]

Merhaba,
Sn. shodow,
Yanlış dosyayı eklemişim. Dosyayı güncelledim. Yeniden deneyebilirsiniz.

 

[fedeal]

Kelime avı'nın son hali,
ingilizce kelimelerin türkçe karşılıklarını bulmak amaç her kelime 10 üzerinden puanlanıyor hatalı girişte kutu turuncu oluyor ve puandan cevap 10/harf sayısı kadar düşülüyor.dogru giden cevaplarda kutu yeşil oluyor.
10 kelime sonunda toplam puanınız ve bitiriş sürenize göre ilk 10 listesine girmeye hak kazanbiliyorsunuz. şu an için sınırlı kelime var eğer kolay orta zor diye 3 ayrı liste hazırlarsanız çalışmayı seviyeli yapabiliriz.
butür çalışma ilk denemem yorum,eleştiri,önerilerinizi bekliyorum.sayfayı gizleyen kod modülde dilerseniz iptal edebilirsiniz.
saygılar.

 

[sonokta]

Bu kodu nasıl 4 satır çağıracak şekilde düzeltiriz ben kelimeyi,ingilizce manasını örnek cümleyi ve türkçe karşılığını çağıracak şekilde olmasını istiyoum

Sub kelime()
Set s2 = Sheets("Kelime Havuzu")
sy = WorksheetFunction.CountA(s2.Range("a2:a" & s2.[a65536].End(3).Row))
Randomize
For x = 1 To 10
Tekrar:
sayi = Int((sy * Rnd) + 1)
If WorksheetFunction.CountIf(Range("c4:c13"), s2.Cells(sayi + 1, "a")) > 0 Then GoTo Tekrar
Cells(x + 3, "c") = s2.Cells(sayi + 1, "a")
Cells(x + 3, "d") = s2.Cells(sayi + 1, "b")
Next
End Sub

 

[atedionysos]

Arkadaşlar merhaba. Ben hiç anlamıyorum sadece netten bakarak parça parça yaptığım bir uygulama var. Sorun şu, rastgele kelime veriyor fakat 5-10 kelime sonra aynı kelimeleri geri getiriyor. Paylaştığım kod için yardımcı olursanız sevinirim.

Sub kelime_getir()

    kn = Sheets("Sayfa1").Range("C2").Value
    
    Randomize
    n = Int(kn * Rnd + 2)
    
    UserForm3.txtturkce.Text = Sheets("Sayfa1").Range("A" & n)
    

End Sub

 

[aslıı1298]

Merhaba,
Elinize sağlık faydalı bir çalışma olmuş.
Kelime havuzuna kelimeleri formül yerine makro ile aldırırsanız daha kullanışlı olacağı kanaatindeyim. Fikir vermesi açısından bir örnek hazırladım. Kelime havuzu sayfasındaki güncelle butonuna basarak sonucu gözlemleyiniz. Yeni kelimer eklediğinizde bu butona basmanız yeterli olacaktır. Ayrıca yeni sayfalar da ekleyebilirsiniz.

merhaba tam olarak buna ihtiyacım var fakat ekteki dosya güncel değil nasıl ulaşabilirim?

 

[aslıı1298]

Kelime avı'nın son hali,
ingilizce kelimelerin türkçe karşılıklarını bulmak amaç her kelime 10 üzerinden puanlanıyor hatalı girişte kutu turuncu oluyor ve puandan cevap 10/harf sayısı kadar düşülüyor.dogru giden cevaplarda kutu yeşil oluyor.
10 kelime sonunda toplam puanınız ve bitiriş sürenize göre ilk 10 listesine girmeye hak kazanbiliyorsunuz. şu an için sınırlı kelime var eğer kolay orta zor diye 3 ayrı liste hazırlarsanız çalışmayı seviyeli yapabiliriz.
butür çalışma ilk denemem yorum,eleştiri,önerilerinizi bekliyorum.sayfayı gizleyen kod modülde dilerseniz iptal edebilirsiniz.
saygılar.

merhaba tam olarak buna ihtiyacım var fakat ekteki dosyaya erişim sağlayamıyorum