Hücre Yanıp Sönme

[ttnetttnet]

Merhabalar,

Bir hücreye tıklandığında, önceden belirlenmiş olan diğer bazı hücrelerin 3 defa kırmızı renkli yanıp sönmesini istiyorum.

Tıklanacak hücreden başka ücreye gidersek ve tekrar tıklanacak hücreye gelirsek yine aynı işlem olsun.

Bu mümkün müdür?

Teşekkürler, saygılarımla.

 

[Ömer BARAN]

Merhaba.
Alt tarafta, uygulamayı istediğiniz sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan ekranda sağ taraftaki boş alana aşağıdaki KOD'u yapıştırın.

NOT: Kod'u çalıştıran hücrenin A1 hücresi, renklendirilecek hücrenin ise E5 hücresi olduğunu varsaydım.
.

[B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Blue"]A1[/COLOR][/B]]) Is Nothing Then Exit Sub
Zaman = Timer
Do
DoEvents
    [B][COLOR="red"]Cells(5, 5)[/COLOR][/B].Interior.ColorIndex = 3
        Application.Wait Now + TimeValue("00:00:01") / 3
    [B][COLOR="red"]Cells(5, 5)[/COLOR][/B].Interior.Color = xlNone
        Application.Wait Now + TimeValue("00:00:01") / 3
    If Timer - Zaman > 0.6 Then Exit Sub
Loop
[B]End Sub[/B]

 

[ttnetttnet]

Merhaba.
Alt tarafta, uygulamayı istediğiniz sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan ekranda sağ taraftaki boş alana aşağıdaki KOD'u yapıştırın.

NOT: Kod'u çalıştıran hücrenin A1 hücresi, renklendirilecek hücrenin ise E5 hücresi olduğunu varsaydım.
.

[B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="Blue"]A1[/COLOR][/B]]) Is Nothing Then Exit Sub
Zaman = Timer
Do
DoEvents
    [B][COLOR="red"]Cells(5, 5)[/COLOR][/B].Interior.ColorIndex = 3
        Application.Wait Now + TimeValue("00:00:01") / 3
    [B][COLOR="red"]Cells(5, 5)[/COLOR][/B].Interior.Color = xlNone
        Application.Wait Now + TimeValue("00:00:01") / 3
    If Timer - Zaman > 0.6 Then Exit Sub
Loop
[B]End Sub[/B]

Ömer bey çok teşekkürler, eğer birden fazla hücre için bu renklendirmeyi yapmak istersem nasıl yapacağım.

 

[Ömer BARAN]

Cells(5, 5) deki ilk 5 satır numarası yani beşinci satır, ikinci 5 ise sütun numarası yani E sütunu (E5 için) oluyor.
Her yeni hücre için benzer birer satır (verdiğim koddaki kırmızı renkli satırların ilki kırmızıya boyama, ikincisi ise rengi yok etmek için) ekleyebilirsiniz.
Örneğin B3 için Cells(3, 2) gibi iki ayrı satır eklemelisiniz.

 

[YUSUF44]

Sayın Ömer Baran'a ilave olarak Cells(5,5). yerine Range("A4, B7, C16"). şeklinde istediğiniz hücreleri ya da Range("A4:C16"). şeklinde istediğiniz aralığı da belirleyebilirsiniz.