Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 15-12-2016, 13:35   #1
newmaster
Altın Üye
 
Giriş: 28/04/2014
Şehir: istanbul
Mesaj: 78
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan Excelde İngilizce Kelime Sorgulama

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.
Eklenmiş Dosyalar
Dosya Türü: xlsx İngilizce Excel.xlsx (413.1 KB, 26 Görüntülenme)

Bu mesaj en son " 15-12-2016 " tarihinde saat 13:54 itibariyle newmaster tarafından düzenlenmiştir....
newmaster Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2016, 13:54   #2
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,031
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Arama yerine "sözlük" yazarak arama yapınız. Çıkan sonuçların size daha iyi fikirler vereceğini umarım. Kolay gelsin.
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2016, 14:05   #3
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,375
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

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/in..._Test.zip.html
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-12-2016, 16:44   #4
newmaster
Altın Üye
 
Giriş: 28/04/2014
Şehir: istanbul
Mesaj: 78
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Teşekkürler ama istedigim gibi değil bu ornekler arkadaşlar yardımcı olabilecek varsa sevinirim
newmaster Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-12-2016, 12:50   #5
newmaster
Altın Üye
 
Giriş: 28/04/2014
Şehir: istanbul
Mesaj: 78
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Güncel konu
newmaster Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-12-2016, 13:26   #6
rabbace
Altın Üye
 
Giriş: 03/04/2014
Şehir: İzmit
Mesaj: 286
Excel Vers. ve Dili:
Excel 2013 - Türkçe
Varsayılan

Merhaba,

Dener misiniz
Eklenmiş Dosyalar
Dosya Türü: xlsm İngilizce Excel.xlsm (425.3 KB, 21 Görüntülenme)
rabbace Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-12-2016, 14:24   #7
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,031
Excel Vers. ve Dili:
Excel 2013
Varsayılan

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.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
Eklenmiş Dosyalar
Dosya Türü: xls İngilizce Excel-NewMaster.xls (752.5 KB, 16 Görüntülenme)
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.

Bu mesaj en son " 19-12-2016 " tarihinde saat 14:29 itibariyle antonio tarafından düzenlenmiştir....
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-01-2017, 14:25   #8
newmaster
Altın Üye
 
Giriş: 28/04/2014
Şehir: istanbul
Mesaj: 78
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Alıntı:
rabbace tarafından gönderildi Mesajı Görüntüle
Merhaba,

Dener misiniz
Teşekkür ederim eğerle yapılabilecegi hiç aklıma gelmemişti
newmaster Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 09:45


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden