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

• Fehér Mancs tag

  #4901

  #4897 VANESSZA1

  2009-05-06 10:43:38

  Ú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

  

  Fehér Mancs

  tag

  #4897 VANESSZA1

  #4897 VANESSZA1

  Lehet olyan makrót irni ami riaszt? Olyanra gondolok, hogy ha egy oszlop cellái közt bármelyik cella eléri az aktuális dátum értékét akkor riaszt valahogy?

  Ha automatikusan szeretnéd nézni ezt, akkor a timer-rel is lehet operálni (Fire-től loptam :

  Workbook_open-nél beindítjuk a folyamatos figyelést:

  Private Sub Workbook_Open()
  Call check_date
  End Sub

  Majd egy új modulba betesszük az ellenőrző-figyelmeztető kódot:

  Sub check_date()
  
  For Each a In Columns(1).Cells
  If VarType(a) = vbDate Then
  If a <= Now() Then
  MsgBox ("Figyelmeztetés!")
  Exit For
  End If
  End If
  Next a
  Application.OnTime Now + TimeSerial(0, 10, 0), "check_date", , True
  
  End Sub

  (Ez most az 1 oszlopot nézi és 10 percenként ellenőriz, azt nézi, hogy az adott oszlopban szereplő dátumok mindegyike magasabb-e a mostaninál.)

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