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

Místo pro dotazy a rady ohledně programovacích jazyků (C++, C#, PHP, ASP, Javascript, VBS..) a tvorby webových stránek

Moderátor: Mods_senior

JirkaPXS
nováček
Příspěvky: 2
Registrován: říjen 06
Pohlaví: Nespecifikováno
Stav:
Offline

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

Příspěvekod JirkaPXS » 30 říj 2006 13:34

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
Uživatelský avatar
Jan Pašek
Tvůrce článků
Level 6.5
Level 6.5
Příspěvky: 3701
Registrován: leden 06
Bydliště: Plzeň
Pohlaví: Muž
Stav:
Offline

Příspěvekod Jan Pašek » 30 říj 2006 14:47

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

Uživatelský avatar
mikel
Level 5
Level 5
Příspěvky: 2298
Registrován: květen 05
Bydliště: Karviná
Pohlaví: Muž
Stav:
Offline

Příspěvekod mikel » 30 říj 2006 23:07

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

Uživatelský avatar
Jan Pašek
Tvůrce článků
Level 6.5
Level 6.5
Příspěvky: 3701
Registrován: leden 06
Bydliště: Plzeň
Pohlaví: Muž
Stav:
Offline

Příspěvekod Jan Pašek » 31 říj 2006 06:23

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.

JirkaPXS
nováček
Příspěvky: 2
Registrován: říjen 06
Pohlaví: Nespecifikováno
Stav:
Offline

Příspěvekod JirkaPXS » 31 říj 2006 08:40

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

Uživatelský avatar
mikel
Level 5
Level 5
Příspěvky: 2298
Registrován: květen 05
Bydliště: Karviná
Pohlaví: Muž
Stav:
Offline

Příspěvekod mikel » 31 říj 2006 19:17

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

lucale
nováček
Příspěvky: 1
Registrován: říjen 17
Pohlaví: Žena
Stav:
Offline

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

Příspěvekod lucale » 11 říj 2017 21:14

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


  • 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
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    5988
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    262
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    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ů