RE: Excel 2010, automatické doplňování vzorců do nově přidaných řádků

vegan | 26. 7. 2012 9:41:24 | Odpovědí: 0

Tak už naposledy kompletní macro : Sub VyplnSloupec() ' vsecko pryc Range("L10:L1000").FormulaR1C1 = "" ' spocitat obsazene radky na sloupci B RowCount = 0 For Each cell In Range("B10:B1000") If cell.Value <> "" Then RowCount = cell.Row End If Next ' nastavit vzorec sel = "L10:L" & RowCount Range(sel).FormulaR1C1 = "=IF(RC[-10]="""","""",PRODUCT(RC[-8],RC[-2],RC[-1]))" End Sub Trebas to někdy někomu pomůže. Samo si to spočítá řádky a na obsazené aplikuje vzorec.

Jméno:

E-mail (nepovinné, adresa bude v zabezpečené podobě zobrazena u přezdívky):

Odeslat

Pravidla diskuzí v Poradně webu Živě.cz

Zasláním příspěvku do Poradny souhlasíte s těmito pravidly:

Podmínky užívání služby informační společnosti
Informace o zpracování osobních údajů
Příspěvky se musí týkat tématu otázky.
Příspěvky nesmí obsahovat vulgární výrazy a slovní útoky na jiné osoby. Příspěvky nesmí poškozovat web Živě.cz ani jeho provozovatele.
Je zakázáno vkládat do příspěvků odkazy na stránky nabízející obsah porušující autorská a jiná práva.
Příspěvky nelze využívat k propagaci.
Příspěvky, které porušují pravidla diskuzí, budou odstraněny. Případně budou upraveny tak, aby neporušovaly pravidla diskuzí. V textu bude následně uvedeno, že příspěvky byly ze strany moderátorů upraveny.
Právo moderovat Poradnu mají pouze zástupci vybraní redakcí Živě.cz. Základní kontrola příspěvku probíhá ještě před jeho zveřejněním.
Živě.cz je soukromý web a provozovatel má při řešení sporů, které se týkají příspěvků v Poradně, vždy konečné slovo.

Kdy vám můžeme smazat příspěvek?

Když budete vulgární.
Když budete slovně útočit na ostatní.
Když se nebudete držet tématu dotazu.
Když budete poradnu zneužívat pro reklamu.
Když záměrně zneužijete cizí přezdívku.
Když budete porušovat zákony.
A když budete na takové příspěvky reagovat, protože se vždy mažou včetně odpovědí ve stromu.