yanıp sönme efekti

[meda58]

elimdeki makro sabit yerde yanıp sönme efekti veriyor bunu şeçtiğimiz herhangi bir hücrede yapabilirmiyiz
hangi hücreyi seçersek orada bu efekti verecek sabit olmayacak



Private Sub Worksheet_Activate()
For k = 1 To 100 '**** 100 kere yanıp sönecektir arttırıp azaltabilirsiniz.
Cells(2, 2).Interior.ColorIndex = 6
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Cells(2, 2).Interior.ColorIndex = xlNone
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Next k
End Sub

 

[AdemCan]

Seçilen hücre için diğer kodları pasif yapıp bu kodları kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If Selection.Count > 1 Then Exit Sub
    For k = 1 To 100 '**** 100 kere yanıp sönecektir arttırıp azaltabilirsiniz.
        Target.Interior.ColorIndex = 6
        basla = Timer
        bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
            While Timer < basla + bekle
                DoEvents '1 saniye bekle
            Wend
        Target.Interior.ColorIndex = xlNone
        basla = Timer
        bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
            While Timer < basla + bekle
                DoEvents '1 saniye bekle
            Wend
    Next k
End Sub

 

[kakara]

@AdemCan ustadım kodlarınız calısıyor pekı sıze soyle sorsam . bırden cok secılı alana yanıp sonme efektı yapabılır mıyız ? yanı ctrl ye basılı tutup mouseyle tıkladıgım alanların hepsı yanıp sonse yapılabılme ımkanı var mıdır ? ılgınız ıcın tesekkur ederım.

 

[meda58]

Seçilen hücre için diğer kodları pasif yapıp bu kodları kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If Selection.Count > 1 Then Exit Sub
    For k = 1 To 100 '**** 100 kere yanıp sönecektir arttırıp azaltabilirsiniz.
        Target.Interior.ColorIndex = 6
        basla = Timer
        bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
            While Timer < basla + bekle
                DoEvents '1 saniye bekle
            Wend
        Target.Interior.ColorIndex = xlNone
        basla = Timer
        bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
            While Timer < basla + bekle
                DoEvents '1 saniye bekle
            Wend
    Next k
End Sub

hocam harika çalışıyor çok teşekkürler

 

[Korhan Ayhan]

@AdemCan ustadım kodlarınız calısıyor pekı sıze soyle sorsam . bırden cok secılı alana yanıp sonme efektı yapabılır mıyız ? yanı ctrl ye basılı tutup mouseyle tıkladıgım alanların hepsı yanıp sonse yapılabılme ımkanı var mıdır ? ılgınız ıcın tesekkur ederım.

Şu satırı silerseniz dediğiniz gibi çalışacaktır.

If Selection.Count > 1 Then Exit Sub

 

[kakara]

tesekkurler @Korhan Ayhan ustadım soyledıgınız gıbı yaptım ve calısıyor.

 

[AdemCan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
    For k = 1 To 10 '**** 100 kere yanıp sönecektir arttırıp azaltabilirsiniz.
        Selection.Interior.ColorIndex = 6
        basla = Timer
        bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
            While Timer < basla + bekle
                DoEvents '1 saniye bekle
            Wend
        Selection.Interior.ColorIndex = xlNone
        basla = Timer
        bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
            While Timer < basla + bekle
                DoEvents '1 saniye bekle
            Wend
    Next k
End Sub

Spoyler: Çoklu Seçim