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

• #4073 Delila_1 veterán Fire/SOUL/CD #4070

  Új Válasz 2008-11-20 09:33:30 #4073

  Ú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

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Fire/SOUL/CD #4070 üzenetére

  Megihletett a makród, írtam egy egyszerű színátmenetet. Persze semmi értelme, mert lefogja a memóriát. A Szincsere makrón változtattam egy keveset.

  Sub Szincsere()
  If Range("A1") = "ok" Then
  For a = 235 To 50 Step -1
  Range("A1").Interior.Color = RGB(a, 0, 0)
  Range("A1").Font.Color = RGB(a + 20, a + 20, a + 20)
  Next
  End If
  Idozites = Now + TimeSerial(0, 0, 1)
  Application.OnTime Idozites, "Szincsere", , True
  End Sub

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