Stránka 1 z 1

Excel makro - zvýšení hodnoty o 10% (vyřešeno)  Vyřešeno

Napsal: 30 říj 2006 13:34
od JirkaPXS
Umí někdo poradit? Potřebuji pro velkou změnu cen v Excelu takové makro, které na stávající naselektované buňce (numerická hodnota) zvýší o 10 % po zmáčknutí třeba CTRL+A hodnotu. Děkuji

Napsal: 30 říj 2006 14:47
od Jan Pašek
Průšvih je že pokud by měl být zdroj a cíl tedy vstupní číslo a výsledné číslo vloženo do stejné buňky bude vytvořen kruhový odkaz a nefungovalo by to.
Mám jiný návrh. Určitě v tom listu sešitu excelu máš někde volný sloupec nebo řádek podle toho jak ti jdou zdrojové hodnoty.
Pokud by se jednalo o sloupec Postupoval bych následně:
Dejme tomu že zdrojová čísla jsou ve sloupci "B" a volno máš ve sloupci "F" navýšení je o 10% do řádku (dejmetomu 5) který ve sloupci "F" odpovídá prvnímu číslu které chceš přepočítat napiš =B5*1,1 a stiskni enter vypočítá se ti nová cena pro první číslo ve sloupci "B" Klepmi myší na buňku F5 pusť a chytni orámovámí za pravý spodníroh a táhni směrem dolů po sloupci "F" tažení ukončíš u čísla (ceny) které je poslední na přepočet. Po uvolnění tlačítky myši by se ti mělo rozkopírovat to co jsi vložil do první buňky F5 s tím že se znění řádky v jednotlivých rovnicích a provede se výpočet pro příslušný řádek. Stiskni CTRL,C současně Kopírovat přejdi do sloupce "B" na první číslo které se mělo přepočítat Klik pravým tlačítkem myši z nabídky vybrat vložit jinak. zdalší nabídky vybrat vložit hodnoty a potvrdit. Pak už jen smažeš ten pomocný přepočet.

V řádku je postup podobný akorát kopíruješ řádek Snad to takhle stačí.
Pokud by sis něco udělal špatně nezoufej současným stiskem kláves CTRL,Z se odvolává poslední krok.

Napsal: 30 říj 2006 23:07
od mikel
Honzíku, průšvih je v tom, že to jde velmi lehce. :wink:

JirkaPXS: tady je to makro, zkopíruj si ho do sešitu.

Kód: Vybrat vše

Sub Nasobeni()
  ActiveCell.Value = ActiveCell.Value * 1.1
End Sub

Pak si v Excelu spusť Nástroje/Makro/Makra... , vyber to makro, klikni na tlačítko Možnosti... a definuj si klávesovou zkratku pro jeho spuštění. Pokud by zkratka Ctrl+písmeno byla rezervovaná pro systém nebo Office, automaticky tam šoupne Ctrl+Shift+písmeno. Ale to ti samozřejmě napíše.

Napsal: 31 říj 2006 06:23
od Jan Pašek
Mikel víš všechny cesty vedou do Říma jen některá je delší záleží jak se v tom vyznáš a já asi přece jen poněkud méně. Podstatné je dojít a neublížit.

Napsal: 31 říj 2006 08:40
od JirkaPXS
Makro funguje, to je přesně ono... děkuji :D

Napsal: 31 říj 2006 19:17
od mikel
Honzo, nikdo učený z Říma nevypad. :D Já se taky ještě pořád učím jak Excel, tak i makra. Hlavní je zkoušet a učit se v praxi.

Re: Excel makro - zvýšení hodnoty o 10% (vyřešeno)

Napsal: 11 říj 2017 21:14
od lucale
Jde to i bez makra a velmi lehce.
Hromadné násobení – někde mimo ty hodnoty si napište hodnotu násobitele (pokud chcte zvýšit o 10%, tak 1,1) a zkopírujte do schránky (Crtl+C), pak myší vyberte všechna data, která chcete změnit a klikněte na ikonu Vložit (zcela vlevo nahoře nebo pravé tlačítko myši), vyberte Vložit jinak a označte Násobit. Toho násobitele potom můžete smazat, nové hodnoty to nijak nezmění.