Şarta göre OptionButton İşaretleme

Bu dosya, bir UserForm üzerindeki TextBox kutularının değerlerini karşılaştırır ve en büyük değere sahip kutunun numarasına karşılık gelen OptionButton'ı otomatik olarak işaretler. Form, çalışma sayfasındaki düğmeden veya makro listesinden açılır.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com: A1:D11 aralığındaki sayfadır ve UserForm1'i açan CommandButton1 düğmesini barındırır. Sayfada formül bulunmaz.
• UserForm1: TextBox ve OptionButton çiftlerinin yer aldığı formdur. Üzerinde iki komut düğmesi vardır.
• Module1: form adlı makroyu içerir; bu makro formu açar.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi işlem yoktur.

• Sheet1 - CommandButton1_Click: Sayfadaki düğmeye tıklandığında UserForm1'i görüntüler.
• Module1 - form: UserForm1'i açar; Alt+F8 ile makro listesinden de çalıştırılabilir.
• UserForm1 - CommandButton1_Click: Formdaki tüm kontrolleri dolaşır. Her TextBox'a Rnd ile 1 ile 10001 arasında rastgele bir tam sayı yazar, tüm OptionButton işaretlerini kaldırır.
• UserForm1 - CommandButton2_Click: İlk TextBox'ın değerini başlangıçtaki en büyük değer olarak alır. Ardından tüm TextBox'ları gezer; değeri bu değere eşit veya büyük olan kutunun adındaki numarayı alıp aynı numaralı OptionButton'ı işaretler ve en büyük değeri günceller. Sonuçta en büyük değere sahip kutunun karşılığı olan seçenek işaretli kalır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfadaki düğmeye tıklayarak veya Alt+F8 ile form makrosunu çalıştırarak UserForm1'i açın.
3. TextBox'lara kendi değerlerinizi girin ya da rastgele sayı atayan düğmeyi kullanın.
4. Karşılaştırma düğmesine tıklayın; en büyük değerin OptionButton'ı işaretlenir.
5. TextBox'lara sayı dışında bir değer veya boş bırakılmış kutu olması durumunda CInt dönüşümü hata verir; bu nedenle tüm kutulara tam sayı girilmelidir.