Excel - aktualizace dat

[aja]

Ahoj,
mam mensi problem s testem, ktery nechavam generovat v excelu. Drive bohate stacilo pouzivat pro aktualizaci dat klavesu F9 a to tak dlouho, dokud nebyly splneny nejake podminky. Bohuzel se test zacal rozsirovat a zacaly pribyvat dalsi a dalsi podminky, takze je ted strasne slozite vygenerovat test s neopakujicimi se otazkami. Mohl by mi tedy nekdo poradit, zda a pripadne jak by sla naprogramovat nejaka klavesa/button, ktera by generovala test tak dlouho, dokud by vsechny podminky nebyly splneny?
Diky moc,
Aja

[xvojta]

a co nejaky makro, pripadne programek ve VB?

[aja]

Prave makra a programovani v excelu nejsou mou silnou parketou. Bylo by mozne jen nastinit jak by vypadala funkce, ktera by proste aktualizova data tak dlouho, dokud by nebyly splneny podminky 1-x?

Diky moc,
Aja

[xvojta]

Prave makra a programovani v excelu nejsou mou silnou parketou. Bylo by mozne jen nastinit jak by vypadala funkce, ktera by proste aktualizova data tak dlouho, dokud by nebyly splneny podminky 1-x?

Diky moc,
Aja

bylo... hod sem nejak priklad dat, jak ten soubor vypada a vyrobime nastin
jinak vlastni aktivite se meze nekladou.. tudiz muzes zkusit cestu pres nahravac maker (soucast excelu) a naklikat si tam dany test... trebas ti z toho vyleze, co potrebujes...

[aja]

Zkousel jsem ten nahravac maker a uz je to na dobre ceste. Jen bych jeste potreboval prikaz, ktery provede toto:

repeat
...
until (hodnota[A1]=hodnota[B1]=hodnota[C1])

Bohuzel netusim, jak tuto funkci zapsat v excelu (VBA).
Diky za pomoc,
Aja

[Kaltas]

Zkousel jsem ten nahravac maker a uz je to na dobre ceste. Jen bych jeste potreboval prikaz, ktery provede toto:

repeat
...
until (hodnota[A1]=hodnota[B1]=hodnota[C1])

Bohuzel netusim, jak tuto funkci zapsat v excelu (VBA).
Diky za pomoc,
Aja

VBA nepoužívám, ale vygooglil jsem tohle:

Sub Loop1()
    Do
        //nejaky_kod
    Loop Until //Podminka
End Sub

snad to pomůže

[Alf]

aja
Kombinací ALT+F11 otevři VBA (v excelovém sešitě) a v helpu si najdi přesnou syntakxi. To co napsal Kaltas je jen informativní.

[xvojta]

pro cyklus while napr:

Do
retezec_1 = inputString
' jakykoliv 
' dalsi 
' kod
Loop Until ActiveSheet.Cells(x, y).Value = ActiveSheet.Cells(x, y).Value

staci?

[aja]

Diky za pomoc, uz to funguje tak, jak ma.