Excel Animasyonları - Asansör

Excel Animasyonları - Asansör, Excel'de makro ve VBA kullanılarak nesne hareketinin nasıl sağlanabileceğini gösteren örnek bir dosyadır. Sayfadaki "Dikdortgen" adlı şekil, düğmeye tıklandığında dikey olarak hareket ederek asansör görüntüsü oluşturur.

Dosyanın içeriği​

• Sayfa1: Animasyonun çalıştığı tek sayfadır. Hareket eden Dikdortgen şekli ve animasyonu başlatan düğme bu sayfadadır. A1 hücresi, animasyonun kaç tur çalışacağını tutan değeri içerir.

Dosyada formül bulunmaz; tüm işlem makro ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosyada 1Modülü adlı modül içinde düğmeye bağlı tek bir makro vardır: Düğme4_Tıklat.

• Makro önce Randomize ve Rnd ile A1 hücresine bir sayı yazar. Bu sayı, animasyonun kaç tur tekrarlanacağını belirler.
• Her turda Dikdortgen şekli seçilir ve konumu 200 değerinden başlayarak 190 adımda yukarı doğru taşınır.
• Ardından şekil aynı sayıda adımla aşağı indirilir. Her adımda DoEvents çağrılarak ekranın güncellenmesi sağlanır ve hareket akıcı görünür.
• Animasyon bittiğinde A1 hücresi seçilir.

Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfa1 üzerindeki düğmeye tıklayın.
3. Dikdörtgen şeklinin yukarı ve aşağı hareket etmesini izleyin; tur sayısı A1 hücresinde görüntülenir.
4. Hız ve hareket mesafesi için makrodaki döngü sayıları ve başlangıç konumu (Alt+F11 ile açılan VBA düzenleyicisinde) değiştirilebilir.