Yanıp Sönme Efekti Verme Kodu

Yanıp Sönme Efekti Verme Kodu isimli içerikteki kod, bir hücre aralığındaki yazılı olan değerlere yanma sönme efekti veren bir makro içermektedir.

XD Destek İste
Sub FlashFont()
Dim newColor As Integer
Dim myCell As Range
Dim x As Integer
Dim fSpeed

Set myCell = Range("A1:A10")
Application.DisplayStatusBar = True
Application.StatusBar = "... Şu an flash yazı gösterisi var lütfen biraz bekleyin...! "

newColor = 3

fSpeed = 0.3

Do Until x = 15

DoEvents
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Font.ColorIndex = newColor
Loop
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Font.ColorIndex = xlAutomatic
Loop
x = x + 1
Loop
Application.StatusBar = False
Application.DisplayStatusBar = Application.DisplayStatusBar
End Sub
Sub reSetFlash()

ActiveCell.Select
Selection.Interior.ColorIndex = xlNone
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Kodu doğru olarak test edebilmek için, A1:A10 hücre aralığında yazılı değerler olması gerekir. Farklı alanlarda denemek ya da kullanmak için, koddaki ilgili alanı revize etmeniz yeterli olacaktır.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Sayfadaki Ad Tanımlamaları Silme
Excel Makroları ile Klasör Silme
Seçili Hücrelerdeki Harfleri Büyük Harfe Değiştirme
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Excel Üzerinden Klasör Açma Kodu
Giriş Kutusu ve Mesaj Yazma İşlemi
Bir Değeri Renklendirme
Excel Tam Ekran Yapma
Kapanış Mesajı Ekleme
Excel Şerit Menü Çubuğunu Gizleme
Bir Aralığa Alfabenin Harflerini Ekleme
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Sayıları Rastgele Karıştırmak
Son Sütun Numarasını Bulma
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Belirli Kriterlere Sahip Satırları Silme
Excel Makroları ile İşlemci Bilgilerini Bulma
Çift Satırlı Msgbox Örneği
Bir Çalışma Kitabında Kaç Sayfa Var
Sütunu Kes Kopyala ve Yapıştır
Bir Dizeden Sayısal Veriler Elde Etme
Sayfa Üzerindeki Formüllerin Sayısını Bulma
Birleştirilmiş Tüm Hücreleri Ayırma
Yazı Efekti Verme Kodu
Cümle Durumuna Dönüştürme
Tüm Çalışma Kitaplarını Aynı Anda Kapatma
Kaydedilmemiş Açık Çalışma Kitaplarını Sayma
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Zaman Aralığı Ekleme
Transparan UserForm Oluşturmak
Seri Numaralarını Ekleme
Klavyeye Makro Atama ve Çalıştırma
Ad Yöneticisindeki Tüm Adları Görünür Yapmak
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Excel Makro ile Hücreye Veri Yazma
Metin Sarmayı Kaldırma
Roma Rakamlarını Normal Sayılara Dönüştürme
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Çalışma Kitabındaki Tüm Çalışma Sayfalarını Koruma
Formu Kapatma Makro Kodu
UserForm Kapatma Kodu
Seçili Hücrenin Sütun Harfini Bulma
Aktif Çalışma Sayfasını Koruma
Kopyala ve Değer Olarak Yapıştır
Checkbox ile Exceli Kapatıp Açmak
Metinden Konuşma Oluşturma
A1 Referans Stilini Etkinleştirme
Sütun Genişliğini Ayarla
Tek Hücreyi Kes Kopyala ve Yapıştır
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

#YOK! (#NULL?) Hatası

Formülde bazı yerlerde ya noktalı birgül yerine virgül kullanmışsınızdır. Ya da başvurulan hücrelerde başvuru bilgisi bulunamamıştır. Çoğunlukla Düşeyara, yatayara gibi formül sonuçlarında bu hata alınabiliyor.

Detaylı bilgi için buradaki makalemizi inceleyebilirsiniz.
Yükleniyor...