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

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ž

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ž

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ž

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

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ž

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

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
  • Doplnění hodnoty do bunky - excel
    od p.bublik » 12 bře 2017 19:09 » v Kancelářské balíky
    3
    412
    od xlnc
    12 bře 2017 22:50
  • Excel - vyhledání nejbližšího času a následný přepis hodnoty
    od gdeny » 17 kvě 2017 11:11 » v Kancelářské balíky
    1
    276
    od xlnc
    17 kvě 2017 14:03
  • Excel-zakázat zápis do buněk po dosažení hodnoty v součtovém řádku
    od tondasa » 22 lis 2017 09:06 » v Kancelářské balíky
    1
    116
    od lubo.
    22 lis 2017 14:41
  • Makro excel - automatické zamykání buněk
    od Adriel12 » 16 pro 2016 08:32 » v Kancelářské balíky
    2
    433
    od Adriel12
    04 led 2017 14:32
  • Excel - makro na upravu listu
    od Gotchi » 25 kvě 2017 09:48 » v Kancelářské balíky
    1
    412
    od JozefB
    10 črc 2017 22:16

Zpět na “Programování a tvorba webu”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host