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
Seri Numaralarını Ekleme
Açık Excel Kitaplarını Yerleştirme
Excel ile Faiz Hesaplama Kodu
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Tüm Sütunda İşlem Yapan Döngü
Sayıları Yeni Bir Sayıyla Çarpma
Kullanılan Tüm Sütunları Otomatik Sığdır
R1C1 Referans Stilini Etkinleştirme
Çalışma Kitabının Yedeğini Oluşturma
Excel Hücrelerini Çözme
Metin Sarmayı Kaldırma
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
Excel Şerit Menü Çubuğunu Gizleme
Excel Dosya Silme İşlemi Makrosu
Transparan UserForm Oluşturmak
Excel Makroları ile İşlemci Bilgilerini Bulma
Makro ile Klasör Açma
Seçili Alanda Yinelenenleri Vurgulama
Excel Hücresine Gitme Makrosu
Özet Tablo Aralığını Otomatik Güncelleştirme
Seçili Hücrenin Sütun Harfini Bulma
Tekrarlayan Verileri Vurgulama
Negatif Sayıları Vurgulama
UserForm Üzerinde Dört İşlem
Çift Satırlı Msgbox Örneği
Sayfada Alan Seçme ve Listeleme
Hücre Aralığını Görüntüye Dönüştürme
Aktif Hücreye Günün Tarihini Yazma
İstenilen Şart Sağlanmıyorsa Kayıt Gerçekleşmesin
Hücrenin Arka Plan Rengini Değiştirme
İlk ve Son Hücre Arasındaki Satır Sayısı
56 Koşula Kadar Biçimlendirme Yapma
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Ondalık Sayıları Tam Sayıya Çevirme
Açıklama İçeren Tüm Hücreleri Vurgulama
Excel Makroları ile Form Çağırma
Tekrar Eden Verileri Farklı Sütunda Yazma
Bir Dizeden Sayısal Veriler Elde Etme
Excel Hücresini Seçme Makrosu
Yorumları İçeren Hücreleri Renklendirme
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Excel Makroları İle Not Defterini Açmak
Metni Tersten Yazdırma
Sütun Genişliklerini Otomatik Ayarlama
Seçimdeki Alternatif Satırları Vurgulama
Yanlış Yazılmış Hücreleri Vurgulama
Birden Çok Satır Ekleme
Hücre Aralığını Kes Kopyala ve Yapıştır
Boş Hücreleri Sıfırlarla Değiştirme
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Gizli satır ve sütunların haricinde seçili olan hücreleri nasıl kopyalayabiliriz?
Kopyalanacak alanı seçip, Shift + alt + ; tuşlarına birlikte basmanız yeterlidir.
Yükleniyor...