Excelde İngilizce Kelime Sorgulama

[newmaster]

Merhaba Arkadaşlar,

Excel de ingilizce öğrenmek istiyorum
Kelimeleri bir sayfaya yazdım

İngilizce kelime - İngilizce okunuş - Türkçe anlamı


Kelime bil diye bir sayfa yaptım örnek belirttim

Bu şekilde yapmak istiyorum
Sayfayı yenilemek karşımarasgele 5 kelime ve yanlarına ben cevaplarını yazıcam ve bana kontrol edicek dogru yada yanlış
Yapılabilir mi yardımcı olabilecek bir arkadaş varsa sevinirim.

 

[antonio]

Arama yerine "sözlük" yazarak arama yapınız. Çıkan sonuçların size daha iyi fikirler vereceğini umarım. Kolay gelsin.

 

[Asri]

Dosyayı inceleyemedim. Ancak bu linkteki dosya işinizi görecektir.

Liste sayfasında hızlı bul ile aranan kelime listeleme yapabilirsiniz.
comm*d başı comm ve sonu d ile bitenler gibi.

Test safası da sizin istediğiniz işlemleri yapar.
Database i arttırabilirsiniz.

http://s2.dosya.tc/server3/28xruo/inglizce_Sozluk_Test.zip.html

 

[newmaster]

Teşekkürler ama istedigim gibi değil bu ornekler arkadaşlar yardımcı olabilecek varsa sevinirim

 

[newmaster]

Güncel konu

 

[rabbace]

Merhaba,

Dener misiniz

 

[antonio]

Sayın newmaster,
Dosyanızı inceledim. "Kelime bil" sayfasına yazılan kelimenin okunuşunu ve anlamını "DOĞRU-YANLIŞ" olarak belirten bir örnek hazırladım. Kelimelerin okunuş kısmındaki doğru-yanlış mesajlarında sorun yok, ama kelimenin anlamı ile ilgili kısımda hatalar (benim hazırladığım kodlarla) kesin olacaktır. Varsayalım ki, "Kelime Odası" sayfasında "Across" kelimesinin anlamı olarak şunlar yazıyor: 1-BİR UÇTAN DİĞERİNE, 2- DİĞER TARAFTA
Şimdi siz makro kodları ile birebir tam uyuşma şartı ile arama yaparsanız, baştan sona kadar tümünü yazmak zorundasınız. Mantıksal olarak belirtilen kelimelerden biri veya birkaçı doğruysa doğru yazsın derseniz, bu kezde anlamı olarak "BİR" yazılınca doğru kabul edilecek, "UÇ" yazılınca kabul edilecek yani aslında yazılan kelimenin doğru anlam ile farkı da olmayacak.
İsterseniz bu mantık üzerine biraz kafa yorup (varsa) alternatif çözümler bulmanızı öneririm. Dosyayı incelerseniz dediklerim daha iyi anlaşılacaktır.
Aşağıdaki kodlar "Kelime bil" sayfasına aittir. Kelime Bil sayfasının sekmesine sağ tıklayarak "Kod Görüntüle" seçeneğine tıklayınız, açılan pencereye aşağıdaki kodları yapıştırınız.

Dim alan As Range, okunus As Boolean, anlam As Boolean, k As Range
Dim sh As Worksheet, ss As Long, aranan As String, kelime As String

If Not Intersect(Target, Range("C2:D" & Rows.Count)) Is Nothing Then
    Set sh = Sheets("Kelime Odası")
    ss = sh.Range("B" & Rows.Count).End(3).Row
    Set alan = sh.Range("B2:B" & ss)
    aranan = Cells(Target.Row, "B").Value
    Set k = alan.Find(aranan, , xlValues, xlWhole)
    If k Is Nothing Then
        MsgBox "İngilizce Kelimeniz, Kelime odasında bulunamadı.", vbExclamation, "HATA"
        Exit Sub
    ElseIf Not k Is Nothing Then
        sat = k.Row
        kelime = Target.Value
        Select Case Target.Column
            Case 3
                If sh.Range("C" & sat).Value Like kelime Then
                    okunus = True
                    Range("E" & Target.Row).Value = "DOĞRU"
                Else
                    okunus = False
                    Range("E" & Target.Row).Value = "YANLIŞ"
                End If
            Case 4
                kelime = UCase(Replace(Replace(kelime, "i", "İ"), "ı", "I"))
                If sh.Range("D" & sat).Value Like "*" & kelime & "*" Then
                    anlam = True
                    Range("F" & Target.Row).Value = "DOĞRU"
                Else
                    anlam = False
                    Range("F" & Target.Row).Value = "YANLIŞ"
                End If
            Case Else
                Exit Sub
        End Select
    End If
End If
End Sub

 

[newmaster]

Merhaba,

Dener misiniz

Teşekkür ederim eğerle yapılabilecegi hiç aklıma gelmemişti