InputBox fonksiyonları

[Ayzaba]

Selam
InputBox a kesinlikle uğrama şartı ve yaş sınırı varsa 18 den büyükse sayfanın geri kalan kısmının kullanımına izin verecek eğer küçükse sayfayı kilitliyecek yada sonlandıracak ve çalışma sayfasını kapatacak yada end diyecek bununda cevabını altta linki verilen sayfaya eklerseniz beni çok memnun eder biraz daha yardımcı olmuş olursunuz


http://www.excel.web.tr/viewtopic.php?t=1901

 

[xxrt]

İlgili örneğe ait değişik bir örnek size ..
Çalışma şekline göre kendiniz geliştirirsiniz..
Kolay gelsin.

Sub Auto_Open()
Sheets("Sayfa1").Visible = False
On Error Resume Next
strGiris = InputBox("Lütfen yaşınızı girin:")
If strGiris < 18 Then
MsgBox "18'den büyük olmak zorundasınız!"
Else
Sheets("Sayfa1").Visible = True
End If
End Sub

 

[Ayzaba]

Sağolun Teşekkür ederim fonksiyonu kendime çevirmeyi başardım ve ufak tefek VBA değişiklikleriyle böyle birşey oldu

Private Sub Form_Load()
Form1.Visible = False
ata = InputBox("Lütfen yaşınızı girin:")

If ata = "" Then
End
End If

If ata < 18 Then
MsgBox "18'den büyük olmak zorundasınız!"
Else
Form1.Visible = True
End If
End Sub

teşekkür ederim

 

[idogus]

Cancel tuşuna bastığımızda hata vermemesi için ne yapmamız gerekiyor.

 

[Levent Menteşoğlu]

Yukarıda örnekteki değişkeni kullanırsak, cancela basıldığında değişken boş değer alacaktır. Bu durumda aşağıdaki gibi bir satırla sonlandırma yapılabilir.

if ata="" then exit sub

 

[algil]

bir örnek

dsy = InputBox("Lütfen LEAD TIME'a ait ayın adını giriniz?", "Yeni Lead Time Dosyası Oluşturma", Format(Now, "mmmm_yyyy"))
If dsy = Cancel Then Exit Sub

 

[osmantelci]

Cancel tuşuna bastığımızda hata vermemesi için ne yapmamız gerekiyor.

Ben Cancel tuşuna bastım hata falan vermedi. Yani hata vermemeside gerekir.

Private Sub Form_Load()
Me.Visible = False
ata = InputBox("Lütfen yaşınızı girin:")
If ata < 18 Or ata = Empty Then
MsgBox "18'den büyük olmak zorundasınız!"
Unload Me
Exit Sub
End If
Me.Visible = True
End Sub

Birde Unload Me satırına dikkat etmelisiniz. Gizli bir VB Formu halen çalışmaya devam eder. Ya bu komutu eklemeli yada Görev Yönetcisinden çalışmasını sonlandırmalısınız.