Sağa Sola Kayan Yazı Animasyonu Yapma

Bu dosya, Excel makrosu ile hücre içindeki yazının sağa ve sola kaydırılmasını gösteren bir animasyon örneğidir. Animasyon, çalışma sayfasında hücre seçimi değiştiğinde başlar ve iki ayrı hücrede zıt yönlerde hareket eden metin üretir.

Dosyanın içeriği​

• Sayfa1: A1:D11 aralığını kapsayan tek sayfadır. Kayan yazılar B2 ve D3 hücrelerinde görüntülenir; animasyonun sürmesi A1 hücresinin dolu olmasına bağlıdır.

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

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod, Sayfa1 modülündeki Worksheet_SelectionChange olayında yer alır; yani ayrıca bir düğmeye ya da menüye gerek yoktur, sayfada bir hücre seçildiğinde makro çalışır.

• İlk satır metni, tarih ve ad bilgisinden oluşur; tarih Format ve Now ile güncel günden alınır. İkinci satır metni bir e-posta adresidir.
• Metinler Space fonksiyonuyla başlarına eklenen boşluk sayısı değiştirilerek kaydırılır. Kaydırma genişliği 100 karakterdir.
• B2 ve D3 hücreleri birbirine zıt yönde hareket eder. Her tam turdan sonra yön değişir, böylece yazılar sağa ve sola gidip gelir.
• Her adımda yaklaşık 0,02 saniye beklenir; bekleme sırasında DoEvents ile Excel'in diğer işlemlere yanıt vermesi sağlanır.
• A1 hücresi boşaltıldığında döngü biter ve B2 ile D3 hücreleri temizlenir.

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

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. A1 hücresine herhangi bir değer yazın.
3. Sayfada başka bir hücreyi seçin; B2 ve D3 hücrelerinde yazılar kaymaya başlar.
4. Animasyonu durdurmak için A1 hücresindeki değeri silin; B2 ve D3 temizlenir.
5. Gösterilen metni değiştirmek için Alt+F11 ile VBA editörünü açıp Sayfa1 modülündeki metin değişkenlerini düzenleyin.

Dosya işlevsel kullanımdan çok, makro ile hücre animasyonu denemek isteyenler için hazırlanmış bir örnektir.