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

• Fire/SOUL/CD félisten

  #4074

  #4073 Delila_1

  2008-11-20 11:47:30

  Ú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

  #4073 Delila_1

  #4073 Delila_1

  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

  Hali!

  Tudtam, hogy nem tudod megállni, hogy meg ne írd a színátmenetet.
  Természetesen kifogástalanul működik, csak hát ugye valóban semmi értelme.
  (Mármint a villogosdinak). Ez olyan mint a 12 kőmíves meg a Déva vára, végül is megoldották ott is a feladatot, csak azért nem kellene embereket a malterba keverni.

  Annyi értelme azonban van a makrónak , hogy így megoldható ha ütemezett feladatokat kell elvégezni, azaz pl óránként el kell menteni a táblát, átszámolni, összetetteb esetben (pl a tábla egy adatbázishoz van kapcsolva) akkor óránként beolvasni stb.

  Fire.

  UI: Visszaolvasva látom, hogy többnyire Te segítesz a legtöbbet az érdeklődőknek, értehtően, tisztán, és türelmesen magyarázod el a dolgokat.
  Megkérdezhetném, hogy honnan van ez a hozzáértés?(suli, magadtól, szülők révén, stb)

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