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

• #3186 F1DO senior tag Delila_1 #3185

  Új Válasz 2024-01-23 16:39:37 #3186

  Ú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

  

  F1DO

  senior tag

  válasz Delila_1 #3185 üzenetére

  Beletettem ezt, de nem jelenik meg semmi, csak a várakozási idő

  Set InfoShape = ws.Shapes.AddTextbox(Orientation:=1, Left:=100, Top:=100, Width:=200, Height:=50)
  InfoShape.TextFrame.Characters.Text = "A keresett érték (" & SearchValue & ") megtalálva."
  
  ' Várakozás 2 másodpercig
  Application.Wait (Now + TimeValue("0:00:02"))
  
  ' Alakzat törlése
  InfoShape.Delete

• #3184 F1DO senior tag

  Új Válasz 2024-01-23 15:41:55 #3184

  Ú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

  

  F1DO

  senior tag

  Sziasztok!

  Excel VB kód - annyit tesz hogy vár egy keresési értéket - ehhez megnyilik egy beviteli mező. A keresési érték beadásakor indul a keresés, annyi kellene, hogy jelenítsen meg egy üzenetet 2 másodpercre ha megtalálta és akkor is ha nem .

  messagebox-al, popup-al próbálkoztam, de mindig ott az OK gomb és ameddig arra nem nyomok rá nem lép tovább a kód.

  MsgBox "A keresett érték (" & SearchValue & ") nem található, üres sorba felvétele megtörtént.", vbExclamation + vbSystemModal, "Keresés eredménye"

  + itt az adott VB kódrészlet végén ez a késleltetés is szerepel
  Application.Wait (Now + TimeValue("0:00:02"))

  illetve:

  CreateObject("WScript.Shell").PopUp "A keresett érték (" & SearchValue & ") nem található, üres sorba felvétele megtörtént.", 2

  Megjelennek ezek révén az üzenetek, csak ott az OK gomb is ami nem kéne.

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