8.1.3 Örnek Makro Çalışması

1. Math101 dersine ait notların kaydedileceği “Makro Çalışması” adında bir Excel çalışma kitabı açın.
2. “Sayfa1” adlı çalışma sayfasını “Not Girişi” olarak adlandırın.
3. “Sayfa2” adlı çalışma sayfası açıp “Not Tablosu” olarak adlandırın.
4. “Not Girişi” sayfasında aşağıdaki tabloyu B3 hücresinden başlayarak oluşturun.
   

   

5. “Not Tablosu” sayfasında aşağıdaki tabloyu başlangıçta 100 öğrenci için oluşturun.
   

   

6. “Sayfa 3” adlı bir çalışma sayfası açıp “Bölümler” olarak adlandırın. Math101 adlı matematik dersini üniversiteden hangi bölümlerdeki öğrencilerin aldığını gösteren aşağıdaki tabloyu oluşturun.
   

   

7. “Not Girişi” sayfasında kaydı girilecek öğrencilerin bölümlerini klavyeden yazmamak için veri doğrulamayı kullanarak bir açılır liste oluşturalım. “Not Girişi” sayfasında C5 hücresine gidin. “Veri” menüsünün altındaki “Veri doğrulama” açılır listesinden “Veri Doğrulama” seçeneğine tıklayın. “Ayarlar” sekmesinde yer alan “İzin Verilen” kısmındaki açılır listeden Liste seçeneğini işaretledikten sonra, “Kaynak” bölümüne “Bölümler” çalışma sayfasından B4:B13 aralığını seçin. Bu durumda “Kaynak” kısmında =Bölümler!$B$4:$B$13 ifadesi yazmalıdır. Tamam’a tıkladıktan sonra C5 hücresine giderseniz açılır listenin oluştuğunu göreceksiniz.
8. Şimdi sınav notları sırasıyla 6, 8, 70, 7, 9, 90 ve 95 olan Fizik bölümü öğrencisi “Suat Yanık”a ait verileri “Not Girişi” çalışma sayfasındaki tabloya girin. Öğrencinin bölümünü girerken açılır listeyi kullanın. Tablo aşağıdaki gibi olmalıdır.
   

   

9. Şimdi bu listedeki verileri “Not Tablosu”na ekleme işlemini bir makroya kaydedelim. “Geliştirici” menüsünün altından “Makro Kaydet” düğmesine tıklayın. (Şeridinizde Geliştirici menüsü yoksa “Dosya” menüsünün altından “Seçenekler”e tıklayın. Açılan pencereden “Şeridi Özelleştir” seçeneğine tıklayın. Geliştirici menüsünü etkin hâle getirip Tamam tuşuna tıklayın.)
10. Açılan iletişim kutusunda makronuza bir isim verin. (Makronun adı birden fazla kelimeden oluşuyorsa aralarında boşluk bırakmadan yazmalısınız.)
    Makronun çalışması için iki yol kullanabilirsiniz:
    ●  Kısayol: CTRL+ yanındaki boşluğa bir harf ya da SHIFT tuşuyla birlikte harf yazarak makro için bir kısa yol oluşturup makronuzu çalıştırabilirsiniz.
    ●  Düğme/Tuş: Birazdan anlatacağımız gibi bir tuş oluşturup bu tuşa tıklayarak makronuzu çalıştırabilirsiniz.
11. Tamam’a tıklayın.
    

    
12. C3:C12 aralığını seçip kopyaladıktan sonra “Not Tablosu” sayfasına geçin.
13. C3 hücresine gidin ve “Geliştirici” menüsündeki “Göreli Başvuruları Kullan” seçeneğine tıklayın. (Bu işlemi girilen her yeni kaydın, bir önceki kayıttan hemen sonra gelen satırdan başlaması için yapıyoruz.)
    
14. “Veri girişi” kutusunun solunda yer alan “Ad Kutusu”na, “C500” yazıp  ENTER tuşuna basın. (C500 hücresine gittiniz.) Buna göre tablonuza 500 kayıt girebilirsiniz. Dilerseniz bu sayıyı artırabilirsiniz.
    

    

15. CTRL ve yukarı ok ↑ tuşuna basarak C3 hücresine gidin.
16. Aşağı ok ↓ tuşuna basıp C4 hücresine gittikten sonra “Geliştirici” menüsündeki “Göreli Başvuruları Kullan” seçeneğine tıklayın.
17. C4 hücresine sağ tıklayıp “Özel Yapıştır” seçeneğine tıklayın. Açılan pencereden “Devrik Dönüşüm” seçeneğine tıkladıktan sonra Tamam’a tıklayın.
    

    

18. “Not Girişi” çalışma sayfasına geçin. Önce Esc tuşuna basıp kopyalama işleminden ayrılın, sonra Delete tuşuna basıp kayıt giriş sayfasını temizleyin.
19. C3 hücresine gittikten sonra gittikten sonra “Geliştirici” menüsünden “Kaydı Durdur” tuşuna tıklayın.
20. “Geliştirici” menüsünün altındaki “Ekle” açılır listesine tıklayın. “Form Denetimleri”nden “Düğme” (ilk dikdörtgen) tuşuna tıklayın. Bu durumda fare işaretçisi + şekline dönüşür. Düğme oluşturmak için ikinci bir yöntem olarak “Ekle” menüsünün altında yer alan “Şekiller” açılır listesinden, “Dikdörtgenler” bölümündeki bir dikdörtgen seçilebilir.
    

    

21. D2 hücresinin sağ alt köşesine sağ tıklayıp bırakmadan F3 hücresinin sağ alt köşesine taşıyıp bırakın. “Düğme 1” adlı bir düğme oluşacaktır. Düğmeye tıklayıp adını “Notları Kaydet” olarak değiştirin.
    

    

22. “Notları Kaydet” düğmesine sağ tıklayın. Açılan listeden “Makro Ata” seçeneğine tıklayın.
23. Açılan pencereden önce makronuzun ismine, sonra Tamam’a tıklayın. Bundan sonra “Not Girişi” bölümünden yeni kayıt girdikten sonra oluşturduğunuz bu düğmeye tıklarsanız kaydınız “Not Tablosu” sayfasındaki tabloya eklenecektir.
24. Birkaç öğrenciye ait notları “Not girişi” çalışma sayfasındaki tablodan girip makronun düzgün çalıştığını test ettikten sonra “Not Tablosu” sayfasının görünümü aşağıdaki gibi olmalıdır.
    

    

25. Bundan sonra 3. ünitedeki “Not Defteri ve Parklar” dosyasının “Notlar” sayfasında olduğu gibi “Not Tablosu” sayfasındaki tablomuza öğrencilerin “Toplam Puanı”nı, dersi “Geçme Puanı”nı, “Geçme/Kalma” durumunu, geçme puanına karşılık gelen “Harf Notu”nu ve yüksek başarı elde eden öğrencilerin aldığı nota karşılık gelen “Rozet” derecesini gösteren sütunlar ekleyelim.
26. M3 hücresine TOPLAM PUAN yazdıktan sonra, içerisinde not yazılı olan satırlardaki notların toplamını bulmak için M4 hücresine =EĞER(TOPLA(Tablo3[@[Q1PUANI]:[FİNALPUANI]])=0;””;TOPLA(Tablo3[@[Q1 PUANI]:[FİNAL PUANI]])) formülünü yazın. (Burada =EĞER(TOPLA yazdıktan sonra F4:L4 aralığını seçersek formüldeki Tablo bilgileri otomatik gelecektir. Yani formülü yazdığımız hücre tablo içinde olmasaydı formülümüz =EĞER(TOPLA(F4:L4)=0;””;TOPLA(F4:L4)) biçiminde olacaktı.)
27. N3 hücresine GEÇME PUANI yazdıktan sonra, içerisinde toplam puanın yazılı olduğu satırlarda öğrencilerin geçme puanını hesaplayacağız. Bu hesaplamayı yaparken yöntem olarak tüm öğrencilerin puanını öğrencilerin bu sınavlardan alabildiği maksimum puanlar toplamına bölüp 100 ile çarpacağız. Dolayısıyla önce F104 hücresine =MAK([Q1 PUANI]) formülünü yazın. (Formülü tablo dışında yazıyor olsaydık =MAK(F4:F104) olacaktı).
28. Ardından bu formülü G104:N104 aralığındaki hücrelere de kopyalayın. Sonra N4 hücresine =EĞER([@[TOPLAM PUAN]]=””;””;100*([@[TOPLAM PUAN]]/ Tablo3[[#Toplamlar];[TOPLAM PUAN]])) formülünü yazın. Formülü N sütunundaki diğer hücrelere de kopyalayın.
29. Öğrencilerin Geçme/Kalma durumunu bulmak için O3 hücresine GEÇTİ/KALDI yazdıktan sonra O4 hücresine =EĞER([@[GEÇME PUANI]]<60;”KALDI”; EĞER([@[GEÇME PUANI]]=””;””;”GEÇTİ”)) formülünü yazın. Aynı sütundaki diğer hücreler kopyalayın. (Formüldeki [@[GEÇME PUANI]] ifadesini elde etmek için N4 hücresine tıkladık)
30. P3 hücresine HARF NOTU yazdıktan sonra P4 hücresine =EĞER([@[GEÇME PUANI]]<60;”F”;EĞER([@[GEÇME PUANI]]<70;”D”; EĞER([@[GEÇME PUANI]]<80;”C”;EĞER([@[GEÇME PUANI]]<90;”B”; EĞER([@[GEÇME PUANI]]=””;””;”A”))))) formülünü yazın. Bu formülü aynı sütundaki diğer hücrelere kopyalayın.
31. Q3 hücresine ALINAN ROZET yazdıktan sonra Q4 hücresine =EĞER([@[GEÇME PUANI]]<80;””;EĞER([@[GEÇME PUANI]]<90;”Onur”;EĞER([@[GEÇME PUANI]]=””;””;”Yüksek Onur”))) formülünü yazın. Bu formülü aynı sütundaki diğer hücrelere kopyalayın.
32. Kalan öğrencilerin tabloda kolayca görünmesi için “GEÇTİ/KALDI” sütununa koşullu biçimlendirme uygulayalım. Bunun için O5 hücresini seçtikten sonra “Giriş” menüsünden “Koşullu Biçimlendirme” açılır listesine tıklayın. “Hücre Vurgulama” seçeneğinin altından “İçerdiği Metin” seçeneğine tıklayın. Açılan pencerede “Şu Metni İçeren Hücreleri Biçimlendir” kısmına “KALDI” yazın, biçim kısmından “Koyu Kırmızı Metinle Açık Kırmızı Dolgu” seçeneğini seçip Tamam’a tıklayın. Biçimi aynı sütundaki diğer hücrelere kopyalayın. Aynı işlemi P5 hücresi için de tekrarlayın. Bu kez “Şu Metni İçeren Hücreleri Biçimlendir” kısmına “F” yazın. Not tablosunun son durumu aşağıdaki gibi olacaktır.
    

    

Makroya Daha Yakından Bakın

Bir makroyu düzenleyerek “Visual Basic” programlama dili hakkında biraz bilgi edinebilirsiniz. Bir makroyu düzenlemek için “Geliştirici” sekmesindeki “Kod” grubunda yer alan  “Makrolar” ögesine tıklayın, makronun adını seçin ve “Düzenle” ögesine tıklayın. Bu, “Visual Basic Düzenleyicisi”ni başlatır. Kaydettiğiniz eylemlerin kod olarak nasıl göründüğüne bakın. Kodun bir kısmı muhtemelen sizin için açık olacak, bir kısmı ise biraz belirsiz olacaktır. Kod üzerinde denemeler yapın, “Visual Basic Düzenleyicisi”ni kapatın ve makronuzu tekrar çalıştırın. Bu sefer farklı bir şey olup olmadığına bakın!