Userform Üzerinde Konum Değiştiren Buton

Bu dosya, userform üzerindeki bir butonun fare imleci üzerine geldiğinde rastgele bir konuma atlamasını gösteren VBA örneğidir. Buton tıklanmak istendiğinde kaçtığı için eğlenceli uygulamalarda ve userform olaylarını öğrenmede kullanılabilir.

Dosyanın içeriği​

• Sayfa1: R20 hücresinde "VBA Userformda Konum Değiştiren Buton" başlığı bulunur. Sayfada formül yoktur.
• UserForm1: Üzerinde CommandButton1 adlı buton yer alır; konum değiştirme kodu bu formdadır.
• Module1: Userform'u açan Düğme1_Tıklat prosedürünü içerir.
• ThisWorkbook: Dosya açıldığında userform'u gösteren Workbook_Open olayını içerir.

Makrolar​

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem yoktur.

• Workbook_Open: Dosya açıldığında UserForm1 otomatik olarak görüntülenir.
• Düğme1_Tıklat: UserForm1 formunu açar; sayfaya bir düğme eklenip bu makro atanırsa form istenildiğinde yeniden açılabilir.
• CommandButton1_MouseMove: Fare imleci butonun üzerinde hareket ettiğinde çalışır. Butonun Left ve Top değerleri, Rnd fonksiyonuyla üretilen rastgele sayının formun genişliği ve yüksekliğiyle çarpılıp 50 çıkarılmasıyla belirlenir. Böylece buton her seferinde formun farklı bir noktasına geçer.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin; userform kendiliğinden görüntülenir.
2. Fare imlecini butonun üzerine getirin; buton farklı bir konuma geçer.
3. Butona tıklamayı deneyin; imleç her yaklaştığında buton yer değiştirir.
4. Formu kapattıktan sonra yeniden açmak için Düğme1_Tıklat makrosunu çalıştırın.
5. Kodu düzenlemek için Alt+F11 ile VBA düzenleyicisini açıp UserForm1 kod penceresine geçin.

Rastgele konum formun boyutuna göre hesaplandığından, buton zaman zaman form sınırlarının dışına taşabilir. Bu durumda butonun Left ve Top hesaplamasındaki değerler form boyutuna göre ayarlanabilir.