• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: makro kopírování rel. adres

Zaslal/a Petr 24.3.2014 15:52

Zdravím,

mam takovej zapeklitej problém..V jednom sešitě mam blok tabulek. Výpočet začíná z jedné hodnoty a procházi postupně přes všechny tabulky v bloku (výpočty tabulkek na sebe navazují). V tabulkách jsou vzorce s relativnímy odkazy.

Píšu makro, které bude tento blok kopírovat do hlavního sešitu. Bloků tak může být více, ale každý z těchto bloků bude mít jinou výchozí hodnotu, ze které se bude počítat dále.

No a nějak nevim, jak zapsat část makra, která mi nakopíruje blok s těmi relativními adresami. Absolutní být nemohou, protože se vždy vztahují k výchozí hodnotě, která bude v každém bloku tabulek jiná..

Př: definovaný blok, který budu kopírovat
A B C
1 a1 = zadana hodnota

2 a1^2 a1^3 a1^4
3 a1*a2 a1*b2 a1*c2

V hlavním sešitě by to mělo vypadat třeba takto:

150.blok:

522 2

523 4 8 16
524 8 16 32

151. blok:

522 3

523 9 27 81
524 18 54 162

Tabuly se budou sami dopočítávat, ze svojí zadané hodnoty..A potřebuji aby se ten blok zkopíroval ve stejnými rel. adresami jako je v defaultním bloku..

Měl by někdo nápad jak by se to dalo vyřešit?

Zaslat odpověď >

---

Petr(24.3.2014 15:54)#018452

Druhý blok mám špatně očíslovaný:

530 3

531 9 27 81
532 18 54 162citovat

Palooo(24.3.2014 15:54)#018453

radsej prilohu poslite :))citovat

Petr1919(24.3.2014 17:45)#018464

Připojuji přílohu:-)

Popsal jsem tam problém lépe.citovat

Palooo(25.3.2014 15:04)#018491

nic ste neposlal :)citovat

Petr1919(27.3.2014 14:43)#018528

Bohužel mi nejde vložit soubor.

"Uložení se nezdařilo. Pravděpodobně jste nezadal(a) text nebo znaky z kontrolního obrázku."

kontrolní obrázek nikde nemám a text jsem zadalcitovat

Petr1919(27.3.2014 14:48)#018529

Tak snad teď:-)

Příloha: 18529_kop_bloku.zip (9kB, staženo 20x)

citovat

Palooo(27.3.2014 15:09)#018530

zlozita otazka a pritom tak jednoducha odpoved

staci to zapisat takto:
Cells(9, 2).Formula = Cells(8, 2).Formulacitovat

Petr1919(31.3.2014 16:02)#018585

Palooo napsal/a:

zlozita otazka a pritom tak jednoducha odpoved

staci to zapisat takto:
Cells(9, 2).Formula = Cells(8, 2).Formula

Díky:-)
A pokud bych chtěl, aby se vzorec A1*F2 zkopíroval tak, že A1 by se kopírovalo do nového řádku pořád stejně a F2 by se posouvalo, tak jako u normálního kopírování.. Tzn ..A1*F3 další řádka A1*F4...citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse