MS Excel

Potřeboval bych prosím poradit s následujícím problémem. Mám 2 sloupce záznamů v tabulce. Zobrazení vybraných hodnot potřebuji provádět ve formuláři buď v label.caption nebo textbox.text. Následující kód funguje tak, že si vyberu část zázanů ohraničenou řádkem začátku záznamů - zac a řádkem konce záznamů - kon. Z tohoto intervalu vyberu náhodným číslem záznam a hodnotu z prvního sloupce chci zobrazit v textbox5.text a po uplynutí 2s zobrazit hodnotu z druhého sloupce v textbox6.text. Pokud program trasuji, funguje správně, pokud jej spustím bez přerušení, zobrazí se pouze první hodnota v textbox5.text a po dokončení cyklu poslední hodnota v textbox5.text a v textbox6.text. Jako kdyby zobrazení ve dormuláři nestíhalo rychlost výpočtu v cyklu a požadavek na zobrazení v textboxech.
Měl by někdo ideu, jak tento problém vyřešit, abych dosáhl správného zobrazení hodnot?

Private Sub CommandButton1_Click()
For i = 1 To 5
zaznam = Int((kon * Rnd) + zac)
TextBox5.Text = Cells(zaznam, 33)
Application.Wait (Now + TimeValue("0:00:02"))
TextBox6.Text = Cells(zaznam, 32)
Next i
End Sub

Zaslat odpověď >

elninoslov(22.8.2024 15:18)#056775