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

• #26770 Fferi50 Topikgazda bakabaka #26768

  Új Válasz 2015-05-02 12:10:28 #26770

  Ú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 bakabaka #26768 üzenetére

  Szia!

  A ciklusodon belül egy DoEvents utasítást helyezz el, ekkor a billentyűzet lenyomásokat egy idő után érzékeli az op rendszer és megáll a program futása (Debug párbeszédablak jelenik meg).

  Esetleg egy változóban számolhatod a "kísérleteket" (lefutott ciklus számát) és adott érték után kilépsz a ciklusból, vagy megállítod a programot.

  A ciklusba az adat bevitele után az ellenőrzés megkezdése előtt beviszel egy stop utasítást. Innen pedig lépésenként futtatod a programot tovább.

  Üdv.

• #26769 Delila_1 veterán bakabaka #26768

  Új Válasz 2015-05-02 12:04:56 #26769

  Ú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

  

  Delila_1

  veterán

  válasz bakabaka #26768 üzenetére

  Az inputboxnál eleve add meg, milyen típusú értéket vársz.

  Type:=0 képlet
  Type:=1 szám
  Type:=2 szöveg
  Type:=4 logikai, true vagy false
  Type:=8 cellahivatkozás (range)
  Type:=16 hibaérték, mint #ÉRTÉK
  Type:=64 tömb érték (array)

  Pl. 100 és 500 közötti szám bekérése

  valasz=Application.InputBox("Adj egy 100 és 500 közötti számot", "Szám bekérése", , , , , , 1)
  If valasz <100 Or valasz>500 Then Exit Sub

  Vagy
  Set ter=Application.InputBox(prompt:="Kérem a tartományt",Type:=8)

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