Excel makro - zvýšení hodnoty o 10% (vyřešeno) Vyřešeno
Excel makro - zvýšení hodnoty o 10% (vyřešeno) Vyřešeno
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
- Jan Pašek
- Tvůrce článků
-
Level 6.5
- Příspěvky: 3701
- Registrován: leden 06
- Bydliště: Plzeň
- Pohlaví:
- Stav:
Offline
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.
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.
Jendův rozcestník (Odkazy, které jsem měl dříve v podpisu najdete v mém rozcestníku.) Jendovy novinky - Co je pro Vás odemne nového Pokud potřebujete mermomocí vědět na čem páchám PC kriminalitu sestavy jsou v profilu.
Honzíku, průšvih je v tom, že to jde velmi lehce.
JirkaPXS: tady je to makro, zkopíruj si ho do sešitu.
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.
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.
Znáte pravidla?
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
- Jan Pašek
- Tvůrce článků
-
Level 6.5
- Příspěvky: 3701
- Registrován: leden 06
- Bydliště: Plzeň
- Pohlaví:
- Stav:
Offline
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.
Jendův rozcestník (Odkazy, které jsem měl dříve v podpisu najdete v mém rozcestníku.) Jendovy novinky - Co je pro Vás odemne nového Pokud potřebujete mermomocí vědět na čem páchám PC kriminalitu sestavy jsou v profilu.
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.
Znáte pravidla?
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
Re: Excel makro - zvýšení hodnoty o 10% (vyřešeno)
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í.
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í.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Nastavení měřítka obrazovky na jiné, než předdefinované hodnoty Příloha(y)
od Grander » 29 čer 2023 17:34 » v Windows 11, 10, 8... - 0
- 1050
-
od Grander
Zobrazit poslední příspěvek
29 čer 2023 17:34
-
-
- 9
- 1111
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 16
- 5988
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 1
- 262
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 2
- 1637
-
od honzzicek
Zobrazit poslední příspěvek
01 črc 2023 08:57
Zpět na “Programování a tvorba webu”
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů