• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Array Kullanımı Hakkında

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
H

Hayatlife

Yeni Üye
Kullanıcı Bilgileri
Katılım
4 Eyl 2021
Mesajlar
17
Aldığı beğeni
1
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
Merhabalar,

Excelimin bir sayfasında yaklaşık 250 bin satır data , v bazı sütunları dolu olan ( 1 - 250 arası ) datam mevcut.
Sorgulama sayfamda aynı anda bazı değerleri bu data sayfasında her hücereye bakarak bulduğu değerleri listemek istiyorum..
Bu işlemi dizin haline getirip Array ile daha hızlı sorgulama yapabilir miyiz. Yada dizin olmadan da hızlı sorgu yapılabilir mi ?
 
Çözüm
Refaz
Dünkü dosyada kalan gibi olayı görmek için alttaki kodu ekledim.
Döngünün son satırından geri geri saymaya başlar.Fazla teferruatlı yapmadım.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Tarihe göre sırala Oylara göre sırala
Hayatlife' Alıntı:
Allah Razı olsun Hocam..
mesela 1000 satır sorgu yapıyorum.. 20-25 dk sürüyor. Excel kitleniyor o anda başka bir iş yapmaıyorum excel ..
süre ne kadar kısalırsa çok iyi.
Birde kodları görüntüleyebildniz mi ?
Genişletmek için tıkla...
Şimdi bakıyorum abey,öncelik başka konudaydı :)
 
Olumlu oy 0 Negatif oyla
Abey kodlara eriştim.
Findnext kullanılmış benim verdiğim gibi.
Kodlar çok karışık tek tek hangi işlemleri yapıyor onu çözünce kod yazarım ama biraz uzun sürer.
Modül kodlarını buraya atıyorum başka ilgilenenlerde olursa diye
 

Ekli dosyalar

  • moduller.7z
    1.9 KB · Gösterim: 9
Olumlu oy 0 Negatif oyla
Yanış konuya cevap yazmışım :(
 
Olumlu oy 0 Negatif oyla
Abey kodlara bakıyorum ilk gözüme çarpan DoEvents bunun kullanılması yavaşlatıyor bildiğim.
Ayrıca alttakide gereksiz göngü içinde.Görmek istiyorsunuz durumu ama sonuçta yavaşlamaya etken oluyor.



Application.StatusBar = SatBit - SatBas & " kayıttan " & x & " adet kayıt arandı." & " Tamamlanma Oranı : ""%" & Format((x - 2) * 100 / (SatBit - SatBas), "0")
 
Olumlu oy 0 Negatif oyla
Refaz' Alıntı:
Abey kodlara bakıyorum ilk gözüme çarpan DoEvents bunun kullanılması yavaşlatıyor bildiğim.
Ayrıca alttakide gereksiz göngü içinde.Görmek istiyorsunuz durumu ama sonuçta yavaşlamaya etken oluyor.



Application.StatusBar = SatBit - SatBas & " kayıttan " & x & " adet kayıt arandı." & " Tamamlanma Oranı : ""%" & Format((x - 2) * 100 / (SatBit - SatBas), "0")
Genişletmek için tıkla...
Kaldırılabilir. Doevents ile ilgili pek bilgim yok ama sorguya olumlu etkisi olacak ise oda kaldırılabilir..
Ayrıca bu kodun yazarı forumdan bir arkadaşımız.. :) . Ben kendisinin bu forumda olduğunu bilmiyordum .
Az önce kendisi konuyu gördüğünü söyledi bana :)
 
Olumlu oy 0 Negatif oyla
Abey bir çok şeyi dizi içine aldım.
Findnext harici bilmiyorum nasıl olur.
Bence önceki kodların yarı hızı kadar hızlanması gerek.
Başka yapableceğim bişey yok maliesef :(
 

Ekli dosyalar

  • Serkan RFQ 04.03.2021-Boş 2.xlsb
    1.3 MB · Gösterim: 9
Olumlu oy 0 Negatif oyla
Refaz' Alıntı:
Abey bir çok şeyi dizi içine aldım.
Findnext harici bilmiyorum nasıl olur.
Bence önceki kodların yarı hızı kadar hızlanması gerek.
Başka yapableceğim bişey yok maliesef :(
Genişletmek için tıkla...
Teşekkür ederim Hocam.. Ben test ederim önceki ile aynı sorguları denerim. sürelere bakarım.
elinize sağlık
 
Olumlu oy 0 Negatif oyla
Rica ederim.Ne kadar kaldığını ekranda göremezsiniz kod çalışrken oraları sildim hızlı olsun diye yinede eklerseniz görebilirsiniz.
 
Olumlu oy 0 Negatif oyla
Hayatlife' Alıntı:
Doevents ile ilgili pek bilgim yok
Genişletmek için tıkla...
Bunu ekleyen üstad bence statusbarda kalan durumları göstermek için eklemiş.
Status br yerine aslında bir usreformdada gösterilebilirdi tabii yine doevents gerekecekti.Yada progressbarda kullanılabilirdi.250bin satır ve 250 sütun olayı vahim :)
 
Olumlu oy 0 Negatif oyla
Aslında jeton yeni düştü bende.Findnext yerine aranan sütun sütun karşılaştırılarakta bulunabilirdi sanki.Ama hız naasıl olur bilemiyorum.Yarın felan zaman bulursam ilgilenebilirim.
 
Olumlu oy 0 Negatif oyla
Refaz' Alıntı:
Aslında jeton yeni düştü bende.Findnext yerine aranan sütun sütun karşılaştırılarakta bulunabilirdi sanki.Ama hız naasıl olur bilemiyorum.Yarın felan zaman bulursam ilgilenebilirim.
Genişletmek için tıkla...

Teşekkür ederim. Hocam.. Diğer yöntem de denenebilir.
Durumu görmek iyi olur . Kaçıncı sorguda olduğunu falan. 3 aşağı beş yukarı ne zaman biteceğini anlayabiliyoruz..
 
Olumlu oy 0 Negatif oyla
Dünkü dosyada kalan gibi olayı görmek için alttaki kodu ekledim.
Döngünün son satırından geri geri saymaya başlar.Fazla teferruatlı yapmadım.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • Serkan RFQ 04.03.2021-Boş 2.xlsb
    1.3 MB · Gösterim: 7
Olumlu oy 1 Negatif oyla
Çözüm
Refaz' Alıntı:
Dünkü dosyada kalan gibi olayı görmek için alttaki kodu ekledim.
Döngünün son satırından geri geri saymaya başlar.Fazla teferruatlı yapmadım.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
Hocam Zaman ayırdığın için teşekkür ederim..
Mevcut Dosya ile sizin dosyayı test ettim.. 250 bin satırda .. 30 satır sorgu yaptım .. sütunlarda da veri vardır..
Mevcut dosya 01:54 dakikada işlemi yaptı ama sizin dosya 16:00 dakika sürdü..
Bilginiz olsun..
 
Olumlu oy 0 Negatif oyla
Hayatlife' Alıntı:
Hocam Zaman ayırdığın için teşekkür ederim..
Mevcut Dosya ile sizin dosyayı test ettim.. 250 bin satırda .. 30 satır sorgu yaptım .. sütunlarda da veri vardır..
Mevcut dosya 01:54 dakikada işlemi yaptı ama sizin dosya 16:00 dakika sürdü..
Bilginiz olsun..
Genişletmek için tıkla...
Rica ederim.Önceki bir mesajınızın birinde 20-25 dakika gibi yazmıştınız yanılmıyorsam :)
Normalde az sürmeliydi neyse eski kod daha iyi o zaman abey :)
 
Olumlu oy 0 Negatif oyla
Hayatlife' Alıntı:
Allah Razı olsun Hocam..
mesela 1000 satır sorgu yapıyorum.. 20-25 dk sürüyor. Excel kitleniyor o anda başka bir iş yapmaıyorum excel ..
süre ne kadar kısalırsa çok iyi.
Birde kodları görüntüleyebildniz mi ?
Genişletmek için tıkla...
Burda buldum :)

Hayırlı geceler abey.
 
Olumlu oy 0 Negatif oyla
Birde fazla değişikliik yapmamıştım gereksiz döngüleri silmiştim statusbar gibi örneğin.
Belki kodlarda vardı application.enableevents=false gibi belki bunları pasif yapmışta olabilir.Bu arada 30 satır yerine 30 sütun yazacaktınız galiba.
Kolay gelsin.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst