Excelde her işlem için yazılım kodu çalışmaktadır. Bu yazılım istendiği zaman kaydedilip görüntülenebilir. Excel içerisinde kaydedilen visual basic programlama komutlarıyla çalışarak program geliştirme faaliyetine makro programlama denir.
Makroları Çalıştırma Ayarları:
1-Dosya Menüsü
2-Excel Seçenekleri
3-Güven Merkezi
4-Güven Merkezi Ayarları
5-Makro Ayarları
6-Tüm Makroları Etkinleştir
7-Tamam
Makro Çalıştırmak İçin Kısayollar:
Alt + F11 : Makro Programlama Penceresine Geç
Alt + F8 : Makrolar İletişim Penceresini Göster
F5 : Form veya alt program çalıştır.
Çalışma sayfasında makro oluşturmak için Alt+ F8 tuşuna birlikte basılır. Gelen iletişim kutusu üzerinde makro adı yazılır. Oluştur butonuna tıklanarak makro kodu yazılır. Kod örneği:
Sub temizle()
Range("A3:B8").Select
Selection.ClearContents
End Sub
Uygulama penceresine Alt + F11 tuşlarına birlikte basılarak geçilir. Bu pencerede kullanıcı formu, kod sayfası modülü, işlem prosedürü eklenerek programlama yapılır. Bir prosedür eklemeden önce modül eklenmiş olmalıdır. Insert menüsünden Procedure tıklanır ve Name alanına isim yazılır. Prosedür eklendiğinde modül sayfasına Public Sub Deneme End Sub satırları otomatik olarak eklenir.
Örnek:
Public Sub Deneme1()
Range("a1").Value="Bilişim Öğretmeni"
Range("a1").Select
Selection.Font.Size
End Sub
Prosedür Çalıştırma Yolları
1-Prosedür imleç ile belirlenir ve f5 tuşuna basılır
2-f5 tuşuna basılır ve makro seçilir sonra Çalıştır/Run butonu
3-Araç çubuğunda çalıştır simgesine basılır
Makro kodları kaydetmek için dosya türü standarttan farklı olarak seçilmelidir. Kayıt türü listesinden .xlsm yani makro içerebilen excel çalışma kitabı seçilmelidir.
Form Nesneleri
Form eklenince otomatik olarak görünür hale gelir. Form bileşenleri toolbox içerisinde bulunur. ( Araç Kusutu )
Label: Etiket Metni Eklemeye Yarar.
TextBox: Metin Kutusu Anlamına Gelir. Kullanıcı Veri Girişinde Kullanılır.
CommandButton: Komut Düğmesi Demektir. Hesaplatma ve Sonuç Gösterme İçin Kulllanılır.
Makrolarla Vize Final Notu Hesaplama Kodu
Private Sub Kapat_Click()
UserForm1.Hide
End Sub
//Bu kısmın doğru çalışması için kaydet butonunun name'i kaydet olmalıdır.
Private Sub kaydet_click()
SonSatir=Range("a1048576").End(xlUp).Row
Cells(SonSatir+1,1)=TextBox1
Cells(SonSatir+1,2)=TextBox2
Cells(SonSatir+1,3)=TextBox3
Cells(SonSatir+1,4)=TextBox4
MsgBox"Kayıt Yapıldı!"
End Sub
Private Sub TextBox3_Change()
TextBox4=TextBox2*0.4+TextBox3*0.6
End Sub
Vize notundan sonra final notu girilirken ortalama notu otomatik olarak hesaplanmaktadır.
