kelime analizi için !

[erencexor]

sonuça çok yaklaştık

 

[erencexor]

tamam olayı anladım !

ama tam istediğim gibi istediğim hücre sütünü ile eşleştiremedim !

onun için çalışmayan bir grafik arabirim oluşturdum !

sonuç olarak bende çalışan kod ADET Sıralamasına göre sıralayamadığı için

Çoktan Az veya Az dan Çoğa doğru sıralama tuşunu kullanacağım

buna bakarak

bende çalışan şu kod sorunuz çalışan kodu tekrar xls olarak düzenlermisiniz

http://www.excel.web.tr/attachment.php?attachmentid=18273&d=1180981140

Sub İSTATİSTİK()
    [D2:E65536].ClearContents
    SATIR = 2
    SON_SATIR = [A65536].End(3).Address
    For X = 2 To [A65536].End(3).Row
    SAY = Evaluate("=SUMPRODUCT(--(EXACT($A$2:" & Cells(X, 1).Address & "," & Cells(X, 1).Address & ")))")
    If SAY = 1 Then
    Cells(SATIR, 4) = Cells(X, 1)
    Cells(SATIR, 5) = "=SUMPRODUCT(--(EXACT($A$2:" & SON_SATIR & "," & Cells(SATIR, 4).Address & ")))"
    SATIR = SATIR + 1
    End If
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

'KULLANILAN KODUN AÇIKLAMALARI
'1. SATIR - MAKROMUZA İSTATİSTİK ADINI VERİYORUZ.
'2. SATIR - D2:E65536 HÜCRE ARALIĞINI TEMİZLİYORUZ.
'3. SATIR - SATIR DEĞİŞKENİNE 2 DEĞERİNİ VERİYORUZ.
'4. SATIR - SON_SATIR DEĞİŞKENİNE A SÜTUNUNDAKİ EN SON DOLU HÜCRENİN ADRESİNİ TANIMLIYORUZ.
'5. SATIR - X İSİMLİ BİR DÖNGÜ BAŞLATIYORUZ.
'6. SATIR - SAY İSİMLİ DEĞİŞKENE A SÜTUNUNDAKİ X DEĞERİNİN ALDIĞI HÜCREDEKİ DEĞERİ SAYDIRIP DEĞİŞKENE TANIMLIYORUZ.
'7. SATIR - EĞER SAY=1 İSE ŞARTINI SORGULUYORUZ.
'8. SATIR - D SÜTUNUNDAKİ İLK BOŞ HÜCREYE SAYDIRDIĞIMIZ BU DEĞERİ AKTARIYORUZ.
'9. SATIR - E SÜTUNUNDAKİ İLK BOŞ HÜCREYE SAYMA FORMÜLÜNÜ AKTARIYORUZ.
'10. SATIR - ŞARTIMIZ SAĞLANIYORSA SATIR İSİMLİ DEĞİŞKENİN DEĞERİNE 1 EKLİYORUZ.
'11. SATIR - ŞARTIMIZI SONLANDIRIYORUZ.
'12. SATIR - DÖNGÜMÜZE DEVAM EDİYORUZ.
'13. SATIR - İŞLEMİN BİTTİĞİNE DAİR KULLANICIYA BİLGİ MESAJI VERİYORUZ.
'14. SATIR - MAKROMUZU SONLANDIRIYORUZ.

son olarakta

malesef text ten excele atarken
word te bul ve değiştirden
" " tanımın "^p" paragraf atlayarak değiştir diyorum
bu şekilde excel text dosyasında geçen tanımları tanımlaya biliyor !
ama haliye ! 65 bin satırdan daha fazla satırlar olduğu için

sadece bir sütun değil de !
D sütunu, E sütunu, F sütunu, nuda içindekileride tanımlaması ve işlemesi gerekiyor !

kısacaca olay bitti sayılır ama
ben eski kodu bir türlü düzenleyemedim
bu konuda yardımınıza ihtiyacım var !

her şey için tekrar tekrar teşekür ederim

 

[erencexor]

son adım !

Hadi arkadaşlar ya !
yardımınız lazım az kaldı !
bitirelim şu olayı hadi ya !

 

[erencexor]

niye olmuyor peki !?

olayın üzerine mantık yürüttüyorum ama
3 saattir bir sonuca ulaşamadım

allah aşıkına yardım edin ya !

bunu çalıştırmak için !
kodu söyle değiştirdim ama bir türlü çalışmıyor
peki neden ne !?

Sub İSTATİSTİK()
   [A2:B65536].ClearContents 
   SATIR = 2 
    SON_SATIR = [D65536].End(3).Address 
    For X = 2 To [D65536].End(3).Row 
    SAY = Evaluate("=SUMPRODUCT(--(EXACT($D$2:" & Cells(X, 1).Address & "," & Cells(X, 1).Address & ")))")
    If SAY = 1 Then 
    Cells(SATIR, 4) = Cells(X, 1) 
    Cells(SATIR, 5) = "=SUMPRODUCT(--(EXACT($D$2:" & SON_SATIR & "," & Cells(SATIR, 4).Address & ")))"
    SATIR = SATIR + 1
    End If 
    Next 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation 
End Sub

 

[Seceren]

Verilen kodları uyguladım sorunsuz çalışıyorlar.

2 Örnek olarak uyguladım.

 

[erencexor]

yaşasın
evet bu sefer çalıştı

her şey için çok çok teşekürler

ama olay şu ki !
çok fazla veri var var ! ( yani 65.bin satırdan fazla )
hepsini bir defada işlemek için
A sütünü harici B ve C sütünlarındaki verileri de dikkate alcak şekilde
bir kod yazabilirmisini

aşağıdaki örnek resim kod u olmayan uygulama resmidir.

kullanım açısından böyle bir uygulama olursa daha fazla kullanışlı olacak !

tabiki bu olay beni aşıyor ! yani yardımınız lazım

 

[erencexor]

http://www.excel.web.tr/showpost.php?p=176123&postcount=26
bu konuda yardım edecek kimse yokmu !

lütfen !

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Umarım sizde çalışır ve faydası olur.

 

[erencexor]

eline, emeğine sağlık çok çok çok çok teşekürler ederim
allah işini rastgetirisin , allah tuttuğunu altın etsin
( dilenci duvası gibi oldu ama çok sağ ol genede

 

[erencexor]

son bi soru daha

ecxelde verileri işleyebilmek için

word te " " satır başlıklarını paragraf başı yapmak için "^p" yapıyoruz
word tüm metni tek satır yapıyor copy paste yolu ile ecxel de veri girişi hücresine
yapıştırıyoruz fakat ecxel 65536 satırdan daha fazlasını dikkate almıyor !

word e baktığımızda bu iş için yani atıyorum
65000 satıra kadarını ayrı ayrı işaretle ,
( ama böyle bir seçeneği bulamadım )

işaretlesinki bu sayede ecxeldeki sutunlara ayrı ayrı 65000 lik veriler atalım ki !
( bu şekilde 100,000 kelimenin üzerindeki bilgileri analiz edebilelim ! )

bu konuda nasıl ne yapmayı önerirsiniz peki ! ?

 

[erencexor]

ek not : )

biraz uzun sürdü çünkü

30.000 kelime

kabaca 30,000 x 30,000 = 900. milyon olasılık
ama olsun verileri toplamak ! 9 ayımı almıştı
işlemin 2 saat sürmesi sorun değil

kısacası googlenin yaptığı işi
google 300 milyar sayfayı saniyenin 10 da birinde sıralarken
biz kendi pc mizde 30000 kelimeyi

sürede yaptık

 

[erencexor]

final versiyon

final versiyon u

http://www.excel.web.tr/attachment.php?attachmentid=19164&stc=1&d=1182311473

 

[Korhan Ayhan]

Selamlar,

Sn. erencexor,

Son eklediğiniz dosya üzerinde vermiş olduğum kodu (60.000*5=300.000) veri üzerinde denediğimde işlem süresi 8 saniye sürdü. Benim işlemcim P4 256 Ram sanırım işlemci ile ilgili bir sıkıntınız var.

 

[veyselemre]

Sayın erencexor dediğiniz gibi sizin göndermiş olduğunuz son dosyada işlem çok ucun sürüyor, yeni keşfettiğim dictionary nesnesi ile bir örnek hazırladım.
Birde bu dosyayı deneyin.

Sayın COST_CONTROL sanırım sizin denemenizde kelime çeşidi azdı, birde benim gönderdiğim dosyada kodlarınızı deneyin.

 

[erencexor]

benim pc, biraz eski gibi !
p3-733mhz ten 825mhz overclocklu
512mb ram ve her satırda en az 10 karakterli kelimeler vardı.
programın hızlı veya yavaş çalışması değil
sonuç olarak çalışması önemli

 

[erencexor]

sayısal loto'yu tuturdum dermişim

bu programla sayısal loto'yu tuturdum dermişim

sayısal lotoda devamlı çıkan topların sürtünma kat sayısı fazla olduğu için
mikro gramaj düzeyinde sürtünme ve aşından ötürü topun ebatı küçüldüğü için
tekrar aynı topların çıkma ihtimali bilimsel olarak yüksektir.

http://www.millipiyango.gov.tr/sayisallotosonuc.html