• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Predcasne ukoncenie cyklu

Zaslal/a nordscan 19.9.2017 15:35

Zdravim potreboval by som poradit ako prerusit tento cyklus pokial
tb.leght < 199

tak ze nevlozi hodnoty do buniek, ale uz len vymaze hodnoty z textboxov

vdaka

......................................

Range("A9").Select
i = 1 'set as the first ID

Do Until ActiveCell.Value = Empty
ActiveCell.Offset(1, 0).Select 'move down 1 row
i = i + 1

Loop

ActiveCell.Value = i 'Next ID number
ActiveCell.Offset(0, 1).Value = tbLenght - (2 * tbWallThickness.Text) + (2 * tbZafrez.Text) - 2
ActiveCell.Offset(0, 3).Value = tbWidth - (2 * tbWallThickness.Text) + (2 * tbZafrez.Text) - 2
ActiveCell.Offset(0, 5).Value = tbQty.Text
ActiveCell.Offset(0, 7).Value = tbNote.Text & "-Kazeta (" & tbLenght.Text & "-" & tbWidth.Text & ")"




tbLenght.Text = Empty
tbWidth.Text = Empty
tbQty.Text = Empty
tbNote.Value = Empty

tbLenght.SetFocus 'positions the cursor for next record entry
End Sub

Zaslat odpověď >

---

Jaja123(19.9.2017 16:16)#037681

Co funkce IF?citovat

elninoslov(19.9.2017 16:24)#037682

Vložte normálnu prílohu vo forme súboru. Kto si má stále manuálne vytvárať testovacie súbory.

Netuším čo makrom robíte, ale cyklus prerušte napr. tak, že za cyklus vložte
POKRACUJ:
a v cykle si kontrolujte danú hodnotu
If tb.leght < 199 Then Goto POKRACUJ
To je len tak z brucha, bez prílohy, bez skúšky ...

Alebo dajte názov kroku POKRACUJ až za to prepočítavanie, pred vynulovanie polí, a stane sa to, že ak cyklus narazí na podmienku, len vymaže polia.citovat

nordscan(20.9.2017 7:46)#037683

vdaka

If tb.leght < 199 Then Goto POKRACUJ


pomohlocitovat

xlnc(20.9.2017 21:13)#037685

No já tedy nevím, ale zvykem je vyskočit z cyklu přes podmínku, Exit Do, Exit For, nějaké odskoky přes GoTo a návěští jsem si užil dost ze studia užitečných kódů historického Fortranu nebo Pascalu, a používám je maximálně při řešení chybových stavů.citovat

marjankaj(20.9.2017 21:57)#037688

@xlnc
On nepotrebuje vyskočiť z cyklu. On sa iba takto "zrozumiteľne" vyjadruje.
On potrebuje iba preskočiť tých 5 riadkov za LOOP

Inak ten cyklus je naozaj úžasný. Toto by som určite ani nevygooglil.
A tá podmienka tb.leght < 199 je naozaj intuitívna.

Ale hlavne že mu to funguje. citovat

elninoslov(21.9.2017 2:43)#037695

Ako som povedal, nechce sa mi študovať ten kód, ale da sa to takto ľahko obísť. Prípadne sa použije premenna Pokracuj = False, a tá sa bude testovať, urobí sa Exit Do. No a následný block sa spusti po podmienkou Pokracuj=False.
Som na mobile...

EDIT: No takže deklarujte si premennú (nazvyme si ju radšej bVynechaj)
Dim bVynechaj As Boolean

Podľa toho či sa má ten cyklus vykonať vždy raz, alebo ani raz, ak je splnená podmienka, podľa toho si umiestnite ukončujúci riadok
If tb.leght < 199 Then bVynechaj = True : Exit Do
za
Do Until ActiveCell.Value = Empty
alebo pred
Loop

No a za cyklom si dajte pred prvé ActiveCell...
If Not bVynechaj then
za posledné ActiveCell... dajte už len
End If

Keby ste poslal normálnu prílohu (súbor zabalený do ZIP), tak ste to mohol mať poriešené pravdepodobne lepšie celé.citovat

eLCHa(21.9.2017 8:10)#037697

1. No, především ten cyklus vůbec nepotřebuje - protože hledá první nevyplněnou buňku.
2. Když už cyklem a znám (maximální) počet opakování, tak bych dal přednost For - Next (uvnitř Exit For, pokud potřebuji vyskočit dříve)
Proč? Protože toto je jediný cyklus, který když nenapíšu správně, tak se nezacyklí donekonečna.
3. Pomocná proměnná není potřeba, stačí hodnota icitovat

elninoslov(21.9.2017 8:34)#037698

Ja si myslím, že nebude potrebovať nič z toho čo tu je napísané, keď dá normálnu prílohu. Podľa mňa to porieši xlDown / xlUp.
No tak aby som to zaokrúhlil do tretice : Nedáte sem radšej prílohu ?citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse