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

[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

[Reklama]

[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.

[mikel]

Honzíku, průšvih je v tom, že to jde velmi lehce.

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.

[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.

[JirkaPXS]

Makro funguje, to je přesně ono... děkuji

[mikel]

Honzo, nikdo učený z Říma nevypad. Já se taky ještě pořád učím jak Excel, tak i makra. Hlavní je zkoušet a učit se v praxi.

[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í.