Bu dosya, A1 hücresine veri girildiğinde sayfada kayan yazı animasyonu başlatan bir makro örneğidir. Metinler B2 ve D3 hücrelerinde zıt yönlerde sağa ve sola hareket eder; A1 hücresi boşaltıldığında animasyon durur. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sayfa1: A1:D11 aralığını kapsayan tek sayfadır. A1 hücresi animasyonu başlatan giriş alanıdır; B2 ve D3 hücreleri animasyonlu metnin gösterildiği alanlardır.
- Sayfada formül, grafik ya da tablo yoktur; animasyonun tamamı makro ile çalışır.
Makrolar
Makro, Sayfa1 sayfasının kod bölümünde yer alan Worksheet_SelectionChange olay prosedürüdür. Sayfada herhangi bir hücre seçildiğinde otomatik çalışır, ayrıca düğmeyle çalıştırmak gerekmez.- B2 hücresine "ExcelDestek: " ifadesi ile günün tarihi (gün, ay adı, yıl biçiminde) yazılır; D3 hücresine "ExcelDestek" yazılır.
- Metinlerin başına eklenen boşluk sayısı 0 ile 100 arasında değiştirilir; böylece iki metin birbirine zıt yönde kayar. Her adım yaklaşık 0,02 saniye bekletilir.
- Yön, her tur sonunda değiştirilir ve döngü A1 hücresi dolu olduğu sürece sürer.
- A1 hücresi boşaltılınca 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
- Dosyayı açın ve istenirse makroları etkinleştirin.
- A1 hücresine herhangi bir veri girin.
- Başka bir hücreyi seçin; olay tetiklenir ve B2 ile D3 hücrelerinde animasyon başlar.
- Animasyonu durdurmak için A1 hücresindeki veriyi silin; döngü sona erer ve B2 ile D3 temizlenir.
- Gösterilen metinleri değiştirmek için VBA düzenleyicisinde Sayfa1 kodundaki satir1 ve satir2 değişkenlerini düzenleyin.
