Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA instrukcja warunkowa migająca komórka

j.ogorkiewicz 02 Paź 2011 17:27 1845 2
  • #1 02 Paź 2011 17:27
    j.ogorkiewicz
    Poziom 2  

    Potrzebuję uruchomić kod "migającej komórki" (poniżej) pod warunkiem że w komórkach, określonej kolumny, w których występuje określony "tekst" np. w zakresie ("C1:C150") migać mają komórki wypełnione tekstem "test" . Proszę o pomoc skonstruowania kodu uruchamiającego miganie komórki z wykorzystaniem kodu jak niżej.

    Kod: Private zmiana As Boolean

    Sub UpdateClock()

    Dim zakres As Range

    Set zakres = Range("A1")

    If zmiana Then
    zakres.Interior.ColorIndex = xlNone
    zakres.Font.Color = vbBlack
    Else
    zakres.Interior.Color = vbBlack
    zakres.Font.Color = vbWhite
    End If

    zmiana = Not zmiana

    NextTick = Now + TimeValue("00:00:01")
    Application.OnTime NextTick, "UpdateClock"

    End Sub

    0 2
  • #2 03 Paź 2011 12:04
    adamas_nt
    Moderator Programowanie

    Użyj pętli i wewnątrz sprawdzaj warunek. Np

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #3 03 Paź 2011 14:19
    j.ogorkiewicz
    Poziom 2  

    Dzięki za szybką pomoc.
    Wszysko daiała bez zarzutu.

    0