ben yaptım onu
O halde başlıyoruz hemen.
Proje Adı: Öğrenci Bilgileri Kayıt Otomasyonu
İlk örnekte olduğu gibi adım adım gidiyoruz.
1) Masaüstünde bir Excel dosyası açalım. Ardından bu dosyayı Farklı Kaydet diyerek Makro İçerebilen Excel Dosyası olarak, yine masaüstüne kaydedelim. Yeni dosyanın diğerinden farklı olarak, simgesi üzerinde bir ünlem işareti olduğunu göreceksiniz. Şimdi ilk dosyayı silip, ikinci dosyayı açalım.
2) ALT + F11 tuşlarına birlikte basarak Excel VBA alanını açalım şimdi. Sol kısımda sağ tıklayarak, "Insert\Userform" diyelim. Orta kısımda bir form açıldığını göreceksiniz. Şimdi üst taraftaki "View" sekmesinden "Toolbox" u seçelim. Nesnelerin göründüğü bir kutucuk açılacaktır.
3) Şimdi 3 tane Textbox, 1 tane de CommandButton ekleyelim. CommandButton'a "Öğrenci Ekle" adını verelim.
Textbox1'e "Öğrenci" (öğrencinin adı ve soyadı yazılacak), 2'ye "Sınıfı", 3'e de "Numarası" yazalım.
Son olarak; gireceğimiz bilgiler sayfa1'e kaydolacağını varsayarak ( sayfa1 ilk satırının A sına sınıf, B sine numara, C sine öğrenci yazarak başlık oluşturun önce), şu kodu, CommandButton'a çift tıklayıp açtığınız alanda, "Private Sub CommandButton1_Click()" satırı ile "End Sub" satırı arasına olduğu gibi yapıştırınız.
Dim s1 As WorkSheet
Set s1=Sheets("sayfa1")
son=s1.Range("A65536").End(3).Row
s1.range("a" & son+1)=Textbox3.text
s1.range("b" & son+1)=Textbox2.text
s1.range("c" & son+1)=Textbox1.text
Textbox3.text="Numarası"
Textbox2.text="Sınıfı"
Textbox1.text="Adı ve Soyadı"
msgbox Textbox1.text & " adlı, " & textbox3.text & " numaralı " & "öğrenci " & textbox2.text & " sınıfına eklendi.", vbInformation, " Papatya"Öğrenciye ait bir bilgiyi de siz ekleyin. Bu da ev ödevi olsun.
Kolay gelsin arkadaşlar.
