MS Excel

v prvom rade , formatujes stlpce v kazdom cykle !
este som zrusil screenupdating

u mna to je za par sekundcitovat

Vypĺňanie buniek po jednej je pomalé. Použitie poľa to skráti na zlomok.

Problém pri 3 prevodových stupňoch je pravdepodobne prekročenie limitu riadkov v Exceli. Určite potrebujete všetky tieto cykly ? Spočítal ste si koľko je to cyklov ? Je to 13 107 200 000. Doba výpočtu je ohromná. Určite musí byť každý cyklus od 20 do 100 ? Treba nájsť iný spôsob výpočtu toho čo potrebujete ako výsledok. Lebo mne sa nezdá, že by ste potreboval spleť čísel vo viac ako milión riadkoch v 7 stĺpcoch, a celé počítané v 13 miliardách cyklov.
Výpočet "i" je určite správny ? Lebo je to :
(podriadený cyklus / nadriadený cyklus) * (podriadený cyklus / nadriadený cyklus) * (nadriadený cyklus / podriadený cyklus)
Nemá byť tretia dvojica opačne ?

Snáď Vám pomôže nejaký matematik ... citovat

Sice už sem Elninoslov vložil řešení pomocí pole, ale když už sem se s tím drbal...
Přikládám svůj soubor, defacto je to to samé jako má elninoslov akorát jiný styl zápisu.

Co píše Elninoslov o těch třech převodových stupních je pravda. Při nastavení hodnot zuby - 9, 12 a 3 převodové stupně excel přestal odpovídat (možná je to slabým železem), po přidání breakpointu a krokování sem se dostal na hodnotu přes 250 000 řádků, pak mě to přestalo bavit.citovat

Tak pokud máš ambice pustit sešit do světa, stálo by za zvážení ošetření vstupních hodnot.
Nemám přesně tušení jak mají vstupní hodnoty vypadat, ale asi by bylo vhodné omezit počty zubů (na nějakou rozumnou hodnotu, aby někoho nenapadlo zadat max počet zubů třeba 600 a pohlídat počet zubů u hodnot min a max aby nebyly vloženy obráceně), počet převodů (tedy dva) zadat jako konstantu do kódu a ošetřit hodnoty zadávané do inputboxu atd.citovat

Chlapy chtěl bych se zeptat :/ proč když si ten zápis z VBA zkopíruji a vložím do druhého sešitu tak nefunguje. Vždy se to bugne v tady té fázi

.Offset(1, 0).Resize(k, Stlpcov).Value2 = WorksheetFunction.Transpose(V)citovat