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

• #20505 Mutt senior tag the radish #20500

  Új Válasz 2014-02-13 22:42:28 #20505

  Ú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

  

  Mutt

  senior tag

  válasz the radish #20500 üzenetére

  Hello,

  1. A makró futását követően x ideig ne lehessen újra futtatni, akkor sem, ha újraindítjuk az excelt.

  A registryben lehet rögzíteni adatokat a SaveSetting függvénnyel, kiolvasni GetSetting-el lehet, törolni pedig DeleteSetting-el.

  Pihi = TimeSerial(0, 30, 0) '30 perc kell 2 futtatás között
  
  'HKEY_CURRENT_USER\Software\VB and VBA Program Settings\ProgiM bejegyzés alatt lesz megtalálható az érték
  'kiolvassuk az UtolsóFutás értékét, ha nem létezik akko 0-nak vesszük
  'ha eltelt 30 perc akkor futhat, különben hibaüzenetet adunk
  If CDate(GetSetting("ProgiM", "Defaults", "UtolsoFutas", 0)) + Pihi < Now Then
  
  'eredeti makró rész jön ide
  
  'mentjük az utolsó futtatás idejét
  SaveSetting "ProgiM", "Defaults", "UtolsoFutas", Now
  Else
  MsgBox ("A makró futtatása még " _
  & Format(CDate(GetSetting("ProgiM", "Defaults", "UtolsoFutas")) + Pihi - Now, "N") _
  & " percig nem engedélyezett!")
  End If

  2 ...az első vesszőig lévő tartalomra
  Makró nélkül is megoldható.

  =HA(HIBÁS(BAL(A1;SZÖVEG.KERES(",";A1)-1));A1;BAL(A1;SZÖVEG.KERES(",";A1)-1))

  A 18684-es hozzászólásban egy függvényt is bemutattam, amely itt is használható.

  üdv

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