Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #20505 Mutt senior tag the radish #20500
    Új Válasz #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