MS Excel

Dobrý den, Excel nabízí v nastavení možnosti přepočítání sešitu automaticky / ručně. Jelikož mám dost rozsáhlé výpočty, které mám zacyklené a při změně parametru mi to hnedka všechno iteruje, tak mě to dost časově zatěžuje. Už se mi stalo, že jsem čekal přes 25min, než proběhlo 30 000 kroků. Tzn. někdy potřebuju, aby se vše přepočítávalo automaticky hned a jindy, aby až k tomu dám pokyn (např. ALT + CTRL + SHIFT + F9).

Moje otázka je, zda lze nějak naprogramovat ve VBA tlačítka, která dají do vlastností pokyn, kdy chci, aby výpočet probíhal ručně, resp. automaticky a já jsem to nemusel v menu ručně předělávat?

Zaslat odpověď >

Poki(7.11.2010 21:53)#003047

Ve VBA lze nastavit, jestli se ma sesit prepocitavat:
1) automaticky(Application.Calculation = xlAutomatic),
2) poloautomaticky=s vyjimakou dat v tabulkach (Application.Calculation = xlSemiautomatic) nebo
3) rucne (Application.Calculation = xlManual).

Otazkou je, jak urcite, kdy chcete jakou vlastnost sesitu vyuzit...a to bude asi ten nejvetsi problem

citovat

stidell(7.11.2010 22:25)#003049

Děkuji za odpověď. Já jsem si už vytvořil uvítací okno, které se zobrazí při otevření excelu a v jedné záložce jsem si předem umístil OptionButton.

Takže jestli to chápu dobře, tak se mohu napat dál pod stávající podmínku

If MsgBox("Přejete si spustit výpočet?", vbYesNo + vbExclamation + vbDefaultButton2, "Spuštění výpočtu") = vbNo Then
ob_nepocitat.Value = True
ob_pocitat.Value = False
lbl_Skutecnost = VypocetZastaven
lbl_Skutecnost.ForeColor = &HFF&

Application.Calculation = xlAutomatic ?citovat

stidell(7.11.2010 22:26)#003051

A ještě jsem zapoměl pro fázi otevírání a zavírání sešitu mohu to samé použít v ThisWorkBook ?citovat

Poki(7.11.2010 22:32)#003052

tuto vlastnost muzete nastavit kdykoliv, v jakemkoliv kodu, takze pokud bude vase podminka splnena, bude se prepocitavat automaticky.
A ano, lze ji nastavit i v procedurach ThisWorkbook.
Jen nezapomente, ze si tuto vlastnost sesit podrzi a po ulozeni bude v sesite nastaven po jeho dalsim otevreni.citovat

stidell(7.11.2010 22:39)#003053

Mnohokrát Vám děkuji. Přidal jsem to jak do WorkBook_open tak i do WorkBook_close a funguje to přesně jak jsem potřeboval.

Ještě jednou. Děkuji :-)citovat

Téma: Přepočet sešitu - VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje