Yanıp Sönme Efekti Verme Kodu

26 Aralık 2020 27 Aralık 2020 1881

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.

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.

50 Farklı Hazır Makro (VBA) Kodu
Makro ile Web Sitesini Açmak
Txt Dosyası Oluşturma
Tüm Satırları ve Sütunları Gösterme
Sağ Tık ile Açılan Menüye Ekleme Yapma
Excel Makroları ile Hücreye Saat Ekleme
Makrolar ile Klasör Oluşturma
Disk Sürücü Kapasitesini Gösterme
Makro ile Git Penceresini Açma
Dosyanın Olduğu Dizin İsmini Bulma
Excel Makroları ile Klasör Silme
Dizileri Döngüye Eklemek
Hücre Aralığını Kes Kopyala ve Yapıştır
Satır Yüksekliğini Ayarla
Seçili Hücrelerden Boşlukları Kaldırma
Toplu Sütun Silme
Tarih ve Saatten Tarihi Kaldırma
Aktif Satırı ve Sütunu Vurgulama
Excel Tam Ekran Yapma
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
Kullanıcı Adınızı Bulma
Otomatik Olarak Tarih ve Zaman Ekleme
MsgBox ile Uyarı Çıkarma Kodu
Özel Sayfaları Yazdırma
Tüm Çalışma Kitaplarını Aynı Anda Kapatma
Formu Kapatma Makro Kodu
Seri Numaralarını Ekleme
İlk ve Son Hücre Arasındaki Satır Sayısı
Hücre Aralığını Görüntüye Dönüştürme
Belli Sütunlarda Alfabetik Sıralama
Boşluk Olan Hücreleri Renklendirme
Makrolar İşlem Yaparken Ekranın Kilitlenmesi
MsgBox Nesnesi ile Cevap Seçeneği Sunma
Kullanılan Tüm Sütunları Otomatik Sığdır
Seçili Sütunların Sayısını Bulma
Tek Sütunu Kes Kopyala ve Yapıştır
Başka Dosyada Şifreli Userform Oluşturmak
Kopyala ve Özel Yapıştır
Belirli Kriterlere Sahip Satırları Silme
Checkbox ile Exceli Kapatıp Açmak
Tekrarlayan Verileri Vurgulama
Giriş Kutusu ve Mesaj Yazma İşlemi
TextBox Nesnelerinin Arasında Boşluk Bırakma
Metinden Konuşma Oluşturma
Transparan UserForm Oluşturmak
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Bir Değeri Renklendirme
Roma Rakamlarını Normal Sayılara Dönüştürme
Çalışma Sayfalarını Alfabetik Olarak Sıralama
Özet Tablo Aralığını Otomatik Güncelleştirme
ComboBox Nesneleri ile Toplama Yapma

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...