Stránka 1 z 1

makro - hromadný převod

Napsal: 05 kvě 2011 15:58
od Transmit
Zdravim,

pokusil by se mi prosím někdo poradit s jedním makrem? Potřeboval bych již zadané hodnoty v tabulce hromadne vydělit kurzem EUR, mam hotovou tabulku s daty v CZK v různých nijak systematicky serazených bunkách (tzn není to a1 až a25, ale jednou data v a3, podruhé b4, pak d8 atd, tabulka je formou dotazníku). Potřeboval bych šikovný makro s relativním odkazem, které při označení jedné a zároven i více buňek najednou dané čísla přepočítá. Slo by tak postupne přes CTRL oznacit jednotlivé bunky a spustením makra všechny prepočítat kurzem EUR. Pokud je to zapotřebí, jedná se mi konkrétně o přepočet kurzem 24,40 Kč/EUR.

Díky. Štěpán

Re: makro - hromadný převod

Napsal: 06 kvě 2011 16:13
od Branscombe
Ahoj, něco jsem zkusil a vyšlo to, mělo by to fungovat tak jak chceš (samotného mě překvapilo že mi to funguje na první pokus :-D)

Vlož do standartního modulu proceduru:

Kód: Vybrat vše

Sub prepocet()

Dim Oblast As Range, Cll As Range

Set Oblast = Selection

For Each Cll In Oblast

Cll.Value = Cll * 24.4

Next

End Sub



A pak již jen označ buňky a spusť makro. Doufám že to je to co jsi požadoval.