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

• #25241 Fferi50 Topikgazda Wyll #25238

  Új Válasz 2015-01-30 17:54:04 #25241

  Ú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

  

  Fferi50

  Topikgazda

  válasz Wyll #25238 üzenetére

  Szia!

  A frissítésre javaslom az application.ontime metódust.

  Amikor a munkafüzetet megnyitod lefuttad az "időzítő programot" ami a következő:

  Sub idozito()
  kovetkezo=now +timeserial(0,10,0)
  application.ontime kovetkezo, "frissito"
  range("A1").value=kovetkezo 'ezt a cellát választhatod, melyik legyen, ami nem zavar sehol.
  end sub

  sub frissito()
  [M](C)ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources(/C)[/M]
  end sub
  Amikor bezár a munkafüzet, akkor ki kell kapcsolni az időzítőt (ezért kell eltárolni a következő frissítés időpontját, mert egyébként nem tudod helyesen meghivatkozni:
  Sub idozitoki
  kovetkezo=range("A1").value
  if timevalue(kovetkezo) >Time then
  application.ontime kovetkezo,"frissito",,False 'a False előtt két vessző van.
  end if
  end sub

  Remélem, segít.

  Üdv

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