Anket için yardım

[Kemal Demir]

Selam Arkadaslar
Excel de anket hazırlamak mümkünmüdür
Mümkünse bildiğiniz ornek bir çalışma linki yazarmısınız
SaygılaR.

 

[danersin]

Sn. Rakkas elbette mümkün olur ama nasıl birşey düşündüğünüzü biraz daha açıklarsanız..
Yani kaçsoruluk, sorular hep çoktan seçmelimi olacak (öyleyse kaç şıklı) , çok şıklı ise birden fazla seçenek işaretlenebilecekmi, yoksa yazarakmı dolduracak vs..
Dosyayı kaç kişinin ne şekilde kullanmasını düşünüyorsunuz vs..

 

[class37]

Merhaba
Userform üzerinden 4 seçenekli bir anket formu hazırlamaya çalıştım.Gerekli olan 4 OptionButton ve 4 TextBox.İyiçalışmalar.

Private Sub OptionButton1_Click()
TextBox1.Value = Val(TextBox1.Value) + 1
MsgBox "1.seçeneği" & " " & TextBox1.Value & "  kişi" & "-" & " " & "2.seçeneği" & " " & TextBox2.Value & "  kişi" & "-" & " " & "3.seçeneği" & " " & TextBox3.Value & "  kişi" & "-" & " " & "4.seçeneği" & " " & TextBox4.Value & " kişi seçti"
OptionButton1.Value = False
End Sub
Private Sub OptionButton2_Click()
TextBox2.Value = Val(TextBox2.Value) + 1
MsgBox "1.seçeneği" & " " & TextBox1.Value & "  kişi" & "-" & " " & "2.seçeneği" & " " & TextBox2.Value & "  kişi" & "-" & " " & "3.seçeneği" & " " & TextBox3.Value & "  kişi" & "-" & " " & "4.seçeneği" & " " & TextBox4.Value & " kişi seçti"
OptionButton2.Value = False
End Sub
Private Sub OptionButton3_Click()
TextBox3.Value = Val(TextBox3.Value) + 1
MsgBox "1.seçeneği" & " " & TextBox1.Value & "  kişi" & "-" & " " & "2.seçeneği" & " " & TextBox2.Value & "  kişi" & "-" & " " & "3.seçeneği" & " " & TextBox3.Value & "  kişi" & "-" & " " & "4.seçeneği" & " " & TextBox4.Value & " kişi seçti"
OptionButton3.Value = False
End Sub
Private Sub OptionButton4_Click()
TextBox4.Value = Val(TextBox4.Value) + 1
MsgBox "1.seçeneği" & " " & TextBox1.Value & "  kişi" & "-" & " " & "2.seçeneği" & " " & TextBox2.Value & "  kişi" & "-" & " " & "3.seçeneği" & " " & TextBox3.Value & "  kişi" & "-" & " " & "4.seçeneği" & " " & TextBox4.Value & " kişi seçti"
OptionButton4.Value = False
End Sub
Private Sub UserForm_Activate()
TextBox1.ControlSource = "a1"
TextBox2.ControlSource = "a2"
TextBox3.ControlSource = "a3"
TextBox4.ControlSource = "a4"
End Sub