» Poradna » Programy

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

 |   |  Microsoft Windows 7 Firefox 13.0.1

Ahoj,Potřeboval bych poradit. Mám tabulku (ceník), do níž se občas přidávájí další řádky. Potřeboval bych, aby v jednom sloupci byl téměř vždy použitý vzorec. Tento Vzorec je v celém sloupci stejný a měl by se aplikovat, pokud není celý řádek úplně prazdný (pro visualní oddělení kategorií). Jde o to, aby když někdo přidá další řádek byl v daném sloupci do tohoto řádku ten vzorec aplikován automaticky a nemusel se tam dávát ručně.

Odpovědi na otázku

 |   |  Microsoft Windows XP IE 8.0

Co znamená téměř? Pokud to není vždy, tak ti moc žádnou automatiku přes makro nedoporučím bez bližších informací.Spíš si rozkopíruj toto:=KDYŽ(A1="";"";A1+15%)(A1 je buňka s hodnodtou, na které provádíš výpočet a +15% ti pro příklad přidá 15% k hodnotě A1, to si uprav dle potřeby)Pokud nebude v A1 nic vyplněno, buňka se bude jevit, jako prázdná ("")

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 13.0.1

Ahoj, moc děkuji za odpověď. Vpodstatě to téměř znamená to, že se občas vyskytnou prázdné řádky a pokud tam ten vzorec dám, tak i na prázdném řádku budu mít "0,00 Kč". Takže by ten vzorec měl asi zohlednit, že se aplikuje pouze pokud například v prvním sloupci je nejaký obsah (standartně je tam název, tedy pokud není název není potřeba to počítat), ale to nevím, zda jde. Vzorec vypadá takto "=SOUČIN(RC[-8];RC[-2];RC[-1])"Pokud to takto opodmínkovat nejde, tak prosím alespoň o radu, jak to udělat bez podmínky, aby se tento vzorec doplnil všude v celém sloupci automaticky i když následně někdo přidá další řádek.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Macintosh OS X Firefox 14.0.1

Prostě tu buňku se vzorcem přetáhněte po celém sloupci...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 13.0.1

Chápu-li to správně, mohl by výsledný vzorec vypadat takto: =KDYŽ(RC[-10];'')=SOUČIN(RC[-8];RC[-2];RC[-1]) ? a pokud ho aplikuji na celý sloupec označením sloupce a ne buněk, tak se mi bude i sám doplňovat ?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP IE 8.0

OK, tak zkusíme makro, v jakém sloupci je vzorec?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 13.0.1

Sloupce mám číselné ( z důvodu možnosti používání vzorců R[0]C[0] ) takže vzorec je v 12. sloupci. Název je v 2 RC[-10] sloupci, hodnota #1 je v 4 RC[-8] sloupci, hodnota #2 je v 10 RC[-2] sloupci a hodnota 3# je v 11 RC[-1] sloupci. Vzorec by měl být tedy pokud to správně chápu: pokud je vyplněn sloupec 2 násobí se sloupce 4, 10, 11 s výsledkem do 12 sloupce.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP IE 8.0

Tak, nejdřív zazálohuj a zkus toto makro:Sub VyplnSloupec() Range("L:L") = "=RC[-8]*RC[-2]*RC[-1]"End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP IE 8.0

Makro ti vyplní celý sloupec tvým vzorcem(respektive místo součinu jsem použil prosté násobení buněk, ekvivalen součinu mi v makru nefungoval), ideální bude ho spouštět automaticky se startem sešitu. Aby to zafugovalo s každým přidáním řádku z hlavy nevymyslím.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 13.0.1

Tak, sice makro od tebe nezafungovalo jak mělo (syntaxe error), ale nakoplo mne to správným směrem takže:Macro:Sub VyplnSloupec()Range("L10:L1000").FormulaR1C1 = "=PRODUCT(RC[-8],RC[-2],RC[-1])"End SubZ toho vyplývá, že a) Byť se používá zápis RC, je potřeba makro zapsat A1 formátu, ale následně mu říci, že se jedná o RC vzorecb) opět to je ta slavná písníčka překládání funkcí v Excelu, kdy Macra umějí pracovat jen s funkcemi v ENG a v ENG zápisu tedy, namísto ; slovník je zde http://office.lasakovi.com/excel/funkce/ms-excel-fun... Každopádně vřele děkuji za nakopnutí teď jěště musím přijít na to, jak udělat tu podmínku, aby to bylo závislé na buňce A2. Tedy ono =IF(RC[-10];'')=PRODUCT(RC[-8];RC[-2];RC[-1])

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP IE 8.0

Já to s "product" zkoušel, ale házelo mi to chybku, nejsem ve VBA tolik zběhlý :) S těma číslovanejma sloupcema (RC) jsi mi trochu zamotal hlavu, viděl jsem to poprvé v životě a nemám dnes moc času to studovat.Jsem rád, že jsem tě alespoň nasměroval a dej vědět, jestli to vyřešíš, kdyžtak na to zkusím zítra ještě mrknout, abych se zorientoval i do budoucna

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 13.0.1

Tak DIKY ti ještě jednou. Pokud to někdy někomu k něčemu bude tak tady je to Macro:Sub VyplnSloupec()Range("L10:L1000").FormulaR1C1 = "=IF(RC[-10]="""","""",PRODUCT(RC[-8],RC[-2],RC[-1]))"End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 13.0.1

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

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Macintosh OS X Firefox 14.0.1

Určitě na to bude nějaká prďácká další podmínková funkce, ale proč to neudělat mudlovsky? Prostě si přetáhněte vzorec ve sloupci do X stovek/tisíců dalších řádků a v případě potřeby je odmazat v prázdných řádcích.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 13.0.1

Ahoj, moc děkuji za odpověď. Jde o to, že to budou zpracovávat sekretářky a tam to musí býti blbuvzdorné.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP Chrome 20.0.1132.57

Už vkládání řádků není blbuvzdorné. Naopak nakopírování jediného vzorce je tak jednoduché, že to snad nemůže pokazit nikdo. Asi by to šlo řešit nějakým makrem, ale proč to dělat jednoduše, když to jde složitě, že?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 13.0.1

Chci to udělat maximálně automatizovaně, abych lidem co s tím budou muset pracovat tu práci maximálně usnadnil.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP Firefox 14.0.1

Opakovaně píšeš "přidat řádek". Opravdu tím myslíš přidat = VLOŽIT prázdný řádek, nebo to jen znamená vkládat hodnoty v dalším řádku?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Firefox 13.0.1

Ano máte pravdu, myslím tím VLOŽIT prázdný řádek, za nepřesnost se omlouvám.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP Firefox 14.0.1

Jasně. Asi máš šikovný sekretářky. Já bych právě kvůli blbuvzdornosti přidávat řádky nebo sloupce do hotový tabulky se vzorcema tu naši rozhodně nenechal a ještě všechno kam nemá hrabat, pro jistotu zamknul.

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Automatické doplňování, Oddělení, Ceník




Určitě si přečtěte

Jak horko bude ve vašem městě, až vám bude 80 let? Podívejte se, jak se projeví klimatické změny!

Jak horko bude ve vašem městě, až vám bude 80 let? Podívejte se, jak se projeví klimatické změny!

** Srpen byl třetí nejteplejší za posledních více než sto let ** Bude to ale daleko horší, jak ukazuje aplikace NYT ** V Praze vzroste počet horkých dní na čtyřnásobek

Karel Kilián | 21

Modelářský zázrak: Maketa raketoplánu Columbia, která létá jako skutečná raketa

Modelářský zázrak: Maketa raketoplánu Columbia, která létá jako skutečná raketa

** Model raketoplánu Columbia od českého konstruktéra umí i létat ** Obdivuhodný model si vzal 1600 hodin práce ** Podívejte se na fotografie ze stavby a prvního letu

Karel Jeřábek | 20

Jak funguje největší akumulátor v Česku: podívejte se do elektrárny Dlouhé Stráně

Jak funguje největší akumulátor v Česku: podívejte se do elektrárny Dlouhé Stráně

** Přečerpávací vodní elektrárna Dlouhé stráně je obdivuhodné technické dílo ** Stejná turbína vyrábí elektřinu i tlačí vodu zpět do horního jezera ** Strojovna elektrárny je zabudována v podzemí

David Polesný | 34

Kde se bere elektřina v zásuvce? Poznejte 10 tajemství venkovních stožárů s dráty

Kde se bere elektřina v zásuvce? Poznejte 10 tajemství venkovních stožárů s dráty

Elektřina se vyrábí v elektrárnách, ale do zásuvek v našich domovech to pak má ještě hodně daleko. Dnes se na tuhle dlouhou cestu podíváme.

David Polesný | 81

Porno insider: Jak Greg Lansky mění internet pro dospělé

Porno insider: Jak Greg Lansky mění internet pro dospělé

** Erotický obsah generoval ohromné peníze, pak ale přišel internet... ** Pornografie dostupná všude a zdarma uvedla tvůrce do krize ** Někteří ale dokázali potenciál internetu využít i v tomto oboru

Jan Dudek | 11

Tohle tak jednou zažít: Nová vzducholoď Airlander 10 s prosklenou podlahou

Tohle tak jednou zažít: Nová vzducholoď Airlander 10 s prosklenou podlahou

** Airlander 10 nabídne plavby vzduchem v interiéru s prosklenou podlahou ** Luxusní vzducholoď byla původně vyvíjena pro vojenské účely ** Počítá se s třídenními „kochacími“ výlety za poznáním

Karel Kilián | 7


Aktuální číslo časopisu Computer

Megatest: 13 grafických karet

Srovnání 7 dokovacích stanic s USB-C

Jak na perfektní noční fotografie

Kvalitní zdroje informací pro sebevzdělávání