Új hozzászólás Aktív témák

• Fire/SOUL/CD félisten

  #4070

  #4069 Gabcsika

  2008-11-18 23:25:09

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fire/SOUL/CD

  félisten

  #4069 Gabcsika

  Hali!

  Tudom, hogy régen volt, de volt egy érdekes kérdésed a "villogó cella" témakörben.

  Munkafüzet1 - Munka1 (Code)

  Public Most_villog As Boolean
  
  Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  
  If Range("A1") = "ok" And Most_villog = False Then
  Call Szincsere
  Most_villog = True
  ElseIf Range("A1") <> "ok" And Most_villog = True Then
  Call Villogas_ki
  Most_villog = False
  End If
  
  End Sub

  Munkafüzet1 - Module1 (Code)

  Public Idozites As Double
  
  Sub Villogas_ki()
  Range("A1").Interior.ColorIndex = xlAutomatic
  Range("A1").Font.Color = RGB(0, 0, 0)
  Application.OnTime Idozites, "Szincsere", , False
  End Sub
  
  Sub Szincsere()
  If Range("A1").Interior.Color = RGB(255, 0, 0) Then
  Range("A1").Interior.Color = RGB(0, 255, 0)
  Range("A1").Font.Color = RGB(255, 0, 0)
  Else
  Range("A1").Interior.Color = RGB(255, 0, 0)
  Range("A1").Font.Color = RGB(0, 255, 0)
  End If
  Idozites = Now + TimeSerial(0, 0, 1)
  Application.OnTime Idozites, "Szincsere", , True
  End Sub

  Ha az A1 cellába beírod hogy "ok" akkor villog a cella háttere, meg a betűszín, egyéb esetben meg nem. Bár a VB nem az erősségem, de ez olyan jó feladat volt, hogy nem bírtam ellenállni, hogy egy kis kitérőt tegyek
  Nyílván ha szép elhalványodó, színátmenetes villogást szeretnél, akkor azért ennél több kell. Azonban egyetértek Delila_1-el, miszerint felesleges, jobb a hagyományos módszer.(ne villogjon, csak legyen más színe).

  Fire.

Új hozzászólás Aktív témák