ADO ile Sıralama

Bu dosya, Excel sayfasındaki verinin ADO (ActiveX Data Objects) bağlantısıyla SQL sorgusu kullanılarak sıralanmasını gösteren örnek bir makro çalışmasıdır. Sorgu sonucu, sıra numarasıyla birlikte sayfaya yazılır.

Dosyanın içeriği​

• Sayfa1: A5:F8 aralığında örnek veri bulunur. A sütununda harf, D sütununda sıra, F sütununda sayı1 başlığı yer alır. İlk satırlarda a, b, c harfleri 10, 30 ve 60 değerleriyle girilmiştir; alt satırlarda ek harf kayıtları vardır.
• Dosyada hücre formülü bulunmaz; hesaplama makro içindeki SQL sorgusuyla yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Module1 içinde tek bir prosedür vardır: dee.

1. Önce D2:F50 aralığındaki eski sonuçlar temizlenir.
2. ADODB.Connection ile çalışma kitabının kendisine, Microsoft ACE OLEDB 12.0 sağlayıcısı üzerinden ve ilk satır başlık kabul edilerek bağlanılır.
3. SQL sorgusu, Sayfa1 içinde harf değeri "a" olan kayıtları seçer. İç içe geçmiş bir alt sorgu, her kaydın sayı değerinden küçük veya eşit kayıtları sayarak Rank (sıra) değerini üretir. Sonuçlar sayıya göre sıralanır.
4. Sorgu sonucu CopyFromRecordset ile D2 hücresinden başlayarak sayfaya aktarılır; ardından bağlantı ve kayıt kümesi kapatılır.

Kodda dosya silme ya da dış bağlantı gibi zararlı bir işlem yoktur; bağlantı yalnızca açık çalışma kitabına kurulur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerindeki harf ve sayı verilerini kendi verinize göre düzenleyin; başlıkların sorgudaki adlarla uyumlu olmasına dikkat edin.
3. Alt+F8 ile dee makrosunu çalıştırın.
4. Sıralı sonuç D2 hücresinden itibaren listelenir. Farklı bir harf için sorgudaki harf='a' koşulunu VBA düzenleyicisinde değiştirin.
5. Bilgisayarda ACE OLEDB sağlayıcısı kurulu olmalıdır; Office'in yüklü olduğu sistemlerde genellikle hazır gelir.