Kelimenin rengini yanıp söner şekilde yapmak

[metincevik]

Değerleri arkadaşlar, Yardimci olursaniz sevinirim
Yazılan bir kelime ya da cümlenin rengini aynı yanıp sönen bir lamaba gibi Lacivertten sarıya 2 saniyede bir renk değiştirebilir mi? Bunu nasıl yazarız?
excel 2003 kulaniyorum turkce acemi oldugum icin birza aciklamali anlatirsaniriz sevinirm tsk ler

 

[alpi]

Önce açtığınız konunun başlığını forum kurallarına uygun şekilde değiştiriniz. Sonra muhakkak yardım alırsınız.

 

[metincevik]

özür

acemi oldugum icin yanlis oldu
insallah simdi dogrusunu yaz misim dir uyarin icin tsk

 

[alpi]

Aşağıdaki kodu bir module yazın ve çalıştırın

A1 hücresindeki metin rengini kırmızı ve mavi olarak değiştirir

Sub Tekrar()
RenkDeğiştir
End Sub
Sub RenkDeğiştir()
    Application.OnTime Now + TimeValue("00:00:02"), "Tekrar"
    If Range("A1").Font.ColorIndex = 3 Then
        Range("A1").Font.ColorIndex = 5
    Else
        Range("A1").Font.ColorIndex = 3
    End If
End Sub

 

[metincevik]

ilgin tsk

gecenin bu vaktin de yardimin icin tsk ama
isin gercegi ben bugun excelle calismaya basladim bunu nasil yapacagimi turkce olark aciklarsan sevinirim saygilar la

 

[metincevik]

ilgin tsk

gecenin bu vaktin de yardimin icin tsk ama
isin gercegi ben bugun excelle calismaya basladim bunu nasil yapacagimi turkce olark aciklarsan sevinirim saygilar la

 

[alpi]

Sub Tekrar()
RenkDeğiştir 'RenkDeğiştir adlı makroyu çalıştır
End Sub

Sub RenkDeğiştir()'Makro Adı
Application.OnTime Now + TimeValue("00:00:02"), "Tekrar"
'Çalıştır ne zaman şimdiki saatten 2 saniye sonra neyi tekrar adlı makroyu

If Range("A1").Font.ColorIndex = 3 Then 'Eğer A1 hücresinin renk numarası 3 ise
Range("A1").Font.ColorIndex = 5 'A1 hücresinin renk kodunu 5 yap
Else 'Eğer A1 hücresinin renk numarası 3 değil ise
Range("A1").Font.ColorIndex = 3'A1 hücresinin renk kodunu 3 yap
End If'Eğer kontrolü bitti
End Sub 'Makro bitti​