Soru Excel ile optik form kodlama

Merhaba.

Optik form oluşturmak mı istiyorsunuz. Yoksa öğrencinin adını soyadını yazınca optik formun karalanmış halde hazır olmasını mı.

Cevap kağıdını öğrenciye özel hazırlayarak optik cevap formu mu oluşturmak istiyorsunuz.

Örnek bir dosya oluşturup nihayetinde yapmak istediğiniz formu anlatırsanız yardımcı olmaya çalışırız.

İyi çalışmalar.

KarıncaZ' Alıntı:

Merhaba.

Optik form oluşturmak mı istiyorsunuz. Yoksa öğrencinin adını soyadını yazınca optik formun karalanmış halde hazır olmasını mı.

Cevap kağıdını öğrenciye özel hazırlayarak optik cevap formu mu oluşturmak istiyorsunuz.

Örnek bir dosya oluşturup nihayetinde yapmak istediğiniz formu anlatırsanız yardımcı olmaya çalışırız.

İyi çalışmalar.

Genişletmek için tıkla...

optik form üzerine karalama yapmak istiyorum. yani öğrencinin adını girdiğimde optik forma kodlamak için siyah daireler oluşturmasını istiyorum. yalnız uygun satır ve sütunlarda olmalı.

Bu konuyu atlayın, sorular sorduklarında nasıl cevap vereceksiniz.

UserForm oluşturun
Ad, Soyad ve TC kimlik numarası için TextBox kutuları ekleyebilirsiniz.
TxtBox kutularının isimlerini değiştirin, isimler "txtAd, txtSoyad, txtTC" olsun


Farklı olarak kullanıcıdan alınan Ad, Soyad ve TC kimlik numarası bilgileri MsgBox fonksiyonu ile bir ileti kutusunda görüntülenecek



"Kaydet" butonuna tıklandığında yapılacak işlemler"

Option Explicit ' Değişkenlerin daha önce tanımlanmamışsa hata vermesini sağlar. Yani, değişken kullanılmadan önce tanımlanmış olmalıdır. Bu programın daha sağlam ve hataya dayanıklı olmasını sağlar.


Private Sub DenemeKaydet_Click() 'Bu satır, DenemeKaydet_Click adında bir "( Sub)" prosedürü başlatır. Bu prosedür, "Kaydet" ' düğmesine tıklandığında çalıştırılır.

Dim ad As String
Dim soyad As String
Dim tc As String 'Bu satırlar, DenemeKaydet_Click prosedürü içinde kullanılacak değişkenleri tanımlar. ad, soyad, ve tc adında . 'üç tane metin değişkeni oluşturulmuştur.

' Metin kutularından değerleri al

ad = txtAd.Value
soyad = txtSoyad.Value
tc = txtTC.Value 'Bu satırlar, kullanıcı formundaki metin kutularından (txtAd, txtSoyad, txtTC) değerleri alır ve bu 'değerleri sırasıyla ad, soyad, ve tc değişkenlerine atar.

' Öğrenci bilgilerini ekrana yazdır

MsgBox "Adı: " & ad & vbCrLf & "Soyadı: " & soyad & vbCrLf & "TC Kimlik Numarası: " & tc, vbInformation, "Öğrenci Bilgileri"
End Sub

'Bu satır, MsgBox fonksiyonunu kullanarak bir ileti kutusu görüntüler. İleti kutusu içinde, kullanıcının girdiği öğrenci bilgilerini gösterir. '"vbInformation" sabiti, ileti kutusunun bilgi tipinde olduğunu belirtir.
'"Öğrenci Bilgileri" ise ileti kutusunun başlığını belirtir.
'"&" operatörü, metinleri birleştirmek için kullanılır.
'"vbCrLf", yeni bir satıra geçmek için kullanılan özel karakterdir.
End Sub '"Sub prosedürü bitir




"Sub prosedür'ü , genellikle bir alt programın başlatılması için kullanıcı etkileşimi veya belirli bir olaya yanıt olarak çalıştırılır. Örneğin, bir kullanıcı formunda bulunan bir düğmeye tıklandığında ya da belirli bir hücrede bir değer değiştiğinde çalışacak kodları içerebilir.



Private Sub DenemeKaydet_Click()

Option Explicit

' "Kaydet" butonuna tıklandığında yapılacak işlemler

Dim ad As String
Dim soyad As String
Dim tc As String

' Metin kutularından değerleri al

ad = txtAd.Value
soyad = txtSoyad.Value
tc = txtTC.Value

' Öğrenci bilgilerini ekrana yazdır

MsgBox "Adı: " & ad & vbCrLf & "Soyadı: " & soyad & vbCrLf & "TC Kimlik Numarası: " & tc, vbInformation, "Öğrenci Bilgileri"
End Sub

TxtBox lara yazılanları sayfaya kaydetmek için "DenemeKaydet" adında birtane command button ekleyin,

bu kodları açıklamamı isterseniz açıklarım

Sayın buyrukaan
Ekteki örneği inceler misiniz?

merhabalar
belki alternatif olur sarı renkli olan yerlere ait bilgileri ekteki gibi doldurabilirsiniz