ADO ile gelişmiş döngü

Bu dosya, birden fazla sütuna yayılmış satır verilerini ADO (ActiveX Data Objects) ve SQL sorgusu ile tek bir tabloda toplamayı gösterir. Örnekte boya formülleri kullanılmıştır: her renk kodu için altı ayrı colorant sütunundaki miktarlar, colorant adına göre Sayfa2 üzerinde ayrı sütunlara dağıtılır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Formula: A1:Y25119 aralığında yaklaşık 25 bin satırlık kaynak veri. Sütunlar: System Code, Product Code, Base Code, Colour Code, Can Capacity, Colorant1-Colorant6 ve RGB. Her satırda bir renk kodunun hangi colorant ile hangi miktarda kullanıldığı yer alır.
• Sayfa2: Rapor sayfası. Ürün (örneğin Latex) ve Code sütunlarının yanında CWH, CBB, CRD, CYG, CMG, CBO ve CVL colorant başlıkları bulunur. Makro, bu başlıkların altındaki hücreleri doldurur.

Her iki sayfada da hücre formülü bulunmaz; hesaplama makro ile yapılır.

Makrolar​

• Baglanti_Yap: Çalışma kitabının kendisine ADO bağlantısı açar. Office sürümüne göre ACE.OLEDB.12.0 veya Jet.OLEDB.4.0 sağlayıcısı otomatik seçilir.
• raporla: Rapor sayfasındaki her renk kodu için, başlık satırındaki her colorant adına göre bir SQL sorgusu oluşturur. Sorgu, Formula sayfasında Product Name değeri Latex olan ve Colour Code değeri eşleşen satırı bulur. Altı colorant sütununu tek sorguda iif ile tarar; eşleşen ve sayısal olan Quantity değerlerini toplar. Sonuç ilgili hücreye yazılır. İşlem bitince "Bitti" mesajı gösterilir.

Makro yalnızca dosyanın kendi içindeki verilerle çalışır; dosya silme veya dış bağlantı işlemi içermez.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Formula sayfasındaki verinin ve Sayfa2'deki renk kodlarının güncel olduğundan emin olun.
3. Sayfa2 üzerindeki yönlendirmeye ("Soldaki resme tıklayın") uyarak raporla makrosunu çalıştırın; Alt+F8 ile de çalıştırılabilir.
4. İşlem bitince Sayfa2'deki colorant sütunlarında her renk kodunun miktarlarını inceleyin.

Veri miktarı fazla olduğu için işlem süresi birkaç dakikayı bulabilir.