Excel ile, elektronik tablolarınıza "Kullanıcı Formları" da dahil olmak üzere bir dizi farklı özellik eklemek için Visual Basic'i kullanabilirsiniz. UserForms aracılığıyla, kullanıcıya, elektronik tablolara aşina olmayan kişilerden veri almak için yararlı olan ana çalışma sayfasından ayrı bir giriş formu görüntüleyebilirsiniz. Küçük bir Visual Basic koduyla, tüm bu verileri elektronik tablonuza yeni satırlar halinde ekleyebilirsiniz.
Alanlarınızı Tanımlayın
Excel'i başlatın. Yakalamak istediğiniz tüm alanların adlarını üst satıra “A1”den başlayarak sağa doğru çalışarak girin. "Geliştirici"yi ve ardından "Visual Basic"i tıklayın. Visual Basic penceresi görünecektir. Araç Kutusundan “A” simgesine tıklayın ve “UserForm1” penceresinin içine tıklayıp ilk form alanınızın gitmesini istediğiniz konuma sürükleyin. "Başlık" özelliğini, örneğin "Ad" gibi daha açıklayıcı bir şeyle değiştirerek etiketi düzenleyin. Çalışma sayfanıza girdiğiniz alanların her biri için bir etiket oluşturun.
Metin Kutularınızı Ekleyin
Araç Kutusundan “Metin Kutusu” simgesini seçin ve ilk etiketinizin hemen sağına bir metin kutusu sürükleyin. Yalnızca birkaç alan kullanacaksanız, “(Ad)” özelliğini varsayılan “TextBox1” olarak bırakmanız kabul edilebilir. Ancak çok sayıda alana ihtiyacınız varsa, bu kafa karıştırıcı olabilir, bu nedenle bunları önceden oluşturduğunuz etiketlerle eşleşecek şekilde düzenlemeniz gerekir. Her etiketin karşılık gelen bir metin kutusu olduğundan emin olun.
Gönder Düğmesi Ekle
Standart bir Windows tarzı düğmeye benzeyen Araç Kutusundaki “Komut Düğmesi” simgesini tıklayın. Tıklayın ve UserForm1'de istediğiniz boyuta ve konuma sürükleyin. Genellikle, bunu formunuzun altında veya son metin kutusunun yanında isteyeceksiniz. Düğmenin “Alt Yazı” özelliğini “Veri Gönder” veya benzeri bir şey olarak değiştirin ve kullanıcıya verilerini göndermek için bu düğmeyi tıklamaları gerektiğini belirtin.
Visual Basic Kodu Ekle
Düğmeye çift tıklayın. “Private Sub” ve “End Sub” arasına aşağıdaki kodu girin:
eRow=Sheet1.Cells(Rows.Count,1).End(xlUp).Offset(1,0).Satır
Ardından bunun altında yeni bir satır başlatın ve ardından aşağıdakini girin:
Hücreler(erow, 1) = TextBox1.Text
Metin kutularınızı yeniden adlandırdıysanız, “TextBox1”i ilk metin kutusuna verdiğiniz adla değiştirin. Bunu, oluşturduğunuz her giriş kutusu için yapın, yeni bir satır başlatın ve uygun şekilde doğru metin kutusu adlarını girin. Ayrıca, her yeni satır için parantez içindeki rakamı bir artırın. Örneğin, bir sonraki satır şöyle görünebilir:
Hücreler(erow, 2) = TextBox2.Text
Veri yakalamaya başlamak için pencerenin üst kısmındaki "Oynat" düğmesini tıklayın.
