InputBox Nesnesiyle Sayı Kontrolü Yapma

Bu dosya, VBA ile yapılan işlemlerde kullanıcıdan alınan sayının belirli bir aralıkta olmasını sağlamak için hazırlanmış bir örnektir. Application.InputBox ile açılan pencerede yalnızca 1 ile 10 arasındaki değerler kabul edilir; aralık dışındaki girişlerde soru yeniden sorulur.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Üzerinde veri ya da formül bulunmayan çalışma sayfasıdır. Örnek tamamen VBA modülünde yer alır.
• Module1: Test adlı makroyu içeren standart modüldür.

Makrolar​

• Test: "1 ile 10 arasında bir rakam giriniz!" mesajıyla bir giriş penceresi açar. Pencere Type:=1 ile çalıştığı için yalnızca sayısal değer kabul eder.
• Kullanıcı İptal düğmesine basarsa makro sonlanır.
• Girilen sayı 1'den küçük ya da 10'dan büyükse makro başa döner ve soruyu tekrar sorar; bu döngü GoTo ile kurulmuştur.
• Geçerli bir sayı girildiğinde "Kabul Edildi" başlıklı bir bilgi penceresinde girilen değer gösterilir.

Makro yalnızca giriş penceresi ve mesaj kutusu kullanır; dosya silme ya da dış bağlantı gibi bir işlem içermez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın, Test makrosunu seçip çalıştırın.
3. Açılan pencereye 1 ile 10 arasında bir sayı girin; aralık dışı değerlerde pencere yeniden açılır.
4. Kendi çalışmanıza uyarlamak için Alt+F11 ile VBA düzenleyicisini açın, Module1 içindeki soru metnini ve koşuldaki alt ve üst sınırları değiştirin.
5. Kabul edilen değeri başka bir işlemde kullanmak için MsgBox satırı yerine kendi kodunuzu ekleyin.