Pokud si to dobře pamatuju, tak náhodné číslo se generuje vždy po přepočítání listu, takže bych to neřešil vzorcem, ale dosazoval náhodné číslo jako hodnotu pomocí makra.
M@citovat
M@citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: zachování hodnoty
MS Excel
Téma: zachování hodnoty 
Zaslal/a 13.12.2009 1:10
Dobrý den,
potřeboval bych poradit jak zachovat hodnotu náhodného čísla pokud je podmínka splněna, pokud není splněna pak generovat nové náhodné číslo. Potřebuju po dobu, kdy platí podmínka, mít stále to stejné náhodné číslo a když podmínka neplatí pak generovat nová náhodná čísla.
Díky za pomoc
(13.12.2009 20:07)#000934
A jak by to vypadalo? S makry jsem ještě nikdy nedělal. Představuju si to tak, že když například buňka A1 bude prázdná, potom ať je náhodné číslo v buňce A2 stále stejné, když v buňce A1 něco bude, tak ať při obnovení listu dochází ke generování nových náhodných čísel v buňce A2.citovat
ahoj,
napsat takove makro nebude tezke, problem ale bude s tim, kdy se takova procedura spusti.
Lze to spustit ruzne: napr. pri otevreni sesitu, pri zmene nejake bunky, pred zavrenim sesitu nebo treba na kliknuti...je toho hodne, co se da pouzit, jen je potreba vedet, k cemu to bude slouzit...citovat
napsat takove makro nebude tezke, problem ale bude s tim, kdy se takova procedura spusti.
Lze to spustit ruzne: napr. pri otevreni sesitu, pri zmene nejake bunky, pred zavrenim sesitu nebo treba na kliknuti...je toho hodne, co se da pouzit, jen je potreba vedet, k cemu to bude slouzit...citovat
Jeden příklad:
Platný při změně buňky - ověření sloupce A daného řádku je-li podmínka splněna (=A), pokud ne generuj náhodné číslo do sloupce B.
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 1) <> "A" Then Cells(Target.Row, 2) = Rnd
End Sub
M@citovat
Platný při změně buňky - ověření sloupce A daného řádku je-li podmínka splněna (=A), pokud ne generuj náhodné číslo do sloupce B.
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 1) <> "A" Then Cells(Target.Row, 2) = Rnd
End Sub
M@citovat
(2.7.2015 8:11)#025760
Dobrý den,
mám podobný problém, ale potřeboval bych, aby při splnění podmínky došlo k přičtení hodnoty a při nesplnění zůstala v buňce aktuální hodnota.
Část s přičtením mám hotovou, ale nevím, jak nastavit, aby se zachovávala stará hodnota.
Děkuji za pomoccitovat
mám podobný problém, ale potřeboval bych, aby při splnění podmínky došlo k přičtení hodnoty a při nesplnění zůstala v buňce aktuální hodnota.
Část s přičtením mám hotovou, ale nevím, jak nastavit, aby se zachovávala stará hodnota.
Děkuji za pomoccitovat
(2.7.2015 15:19)#025766
Díky za reakci. Potřeboval bych, ale ještě drobnou radu. Mám v práci Excel 2013 a nemůžu přijít na to, jak iterace zapnout. Podle návodů by to mělo jít v Možnostech výpočtů, ale u mě se zde nic k zapnutí iterací nenachází.
Podle jiného návodu jsem ještě zkoušel zapnout cyklické odkazy v kontrole chyb, ale ani ty mi to nedovolí zapnout.
Děkuji za odpověďcitovat
Podle jiného návodu jsem ještě zkoušel zapnout cyklické odkazy v kontrole chyb, ale ani ty mi to nedovolí zapnout.
Děkuji za odpověďcitovat
(2.7.2015 15:41)#025767
Mělo by to být nasoubor/možnosti/vzorce,ale 2013 nemám po ruce.
Ještě jedna drobnost. Tyto vzorce je vhodné obalit ještě jednou podmínkou, která vzorec vynuluje.citovat
Ještě jedna drobnost. Tyto vzorce je vhodné obalit ještě jednou podmínkou, která vzorec vynuluje.citovat
Nič také som sice nikdy nepoužil, ale myslím, že tu je obrázkový návod,
http://www.howtogeek.com/162219/how-to-change-the-automatic-calculation-and-multi-threading-features-in-excel-2013/citovat
http://www.howtogeek.com/162219/how-to-change-the-automatic-calculation-and-multi-threading-features-in-excel-2013/citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články