• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: makro na přičítání hodnot z nakliklýc buněk

Zaslal/a Marica 21.8.2017 13:52

Dobrý den,
prosím Vás, nemohl by jste mi někdo poradit. Mám tabulku s různými čísly v různých buňkách. Pod tabulkou mam buňku pro součet. Potřeboval bych vymyslet macro, s kterým by se mi každé nakliknuté číslo z tabulky přičetlo do výsledného součtu.
Narazil jsem jen na makra, že si označím (pomocí ctrl) všechna čísla a oni se mi sečtou po vzoru funkce SUM.
Já ale potřebuji, že si po jednou kliku na buňku přičte číslo, které je v ní napsano do součtu pod tabulkou.
Snad se mi to podařilo dobře vysvětlit.
Něco ve smyslu např: A1 = A1 + selected cell ( nebo target) .. a tak dokola dokud si nenaklikám např 8 čísel.

Děkuji

Zaslat odpověď >

---

Strana:  1 2   další »

Marica(21.8.2017 13:56)#037346

případně by tam mohlo být tlačítko <přičíst>

- vždy bych si klikl na buňku, dal přičíst a do součtu by se mi přičetlo číslo v dané buňce.. a tak dokolacitovat

Maximus(21.8.2017 14:08)#037347

Dobrý den.
Jen tak od pasu.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("A1") = Range("A1") + ActiveCell.Value
End Subcitovat

Marica(21.8.2017 14:52)#037348

Maximus, super přesně něco takového by šlo, jen jestli by bylo možné namísto "doubleclick" mít vytvořené tlačítko "přičíst"

Každopádně Děkujicitovat

a.mlady(21.8.2017 18:51)#037351

Hezký večer.
Jenom takový nápad.

Edit: přidáno tl. pro postupné přičitání.

Příloha: 37351_soucet.rar (18kB, staženo 84x)

citovat

Marica(22.8.2017 10:05)#037353

Ahoj,
paráda, děkuji mnohokrát. Ještě taková malá drobnost, pokud má tedy řešení. Posílám příklad tabulku v příloze, záložka "Tlačítko_nej řešení" .. Když přičítám tedy přes tlačítko "přičíst", nalevo od tabulky HRDLA se mi sepisuje počet "QTY". Funguje vše jak má do doby, než přičtu 2x po sobě tutéž buňku.

Např:
kliknu na buňku K6 (68), poté na tlačítko přičíst a hned na to znovu na buňku K6 (68). Bohužel v ten moment se mi hodnota přičte, ale nalevo do QTY se mi již nezapočítá onen klik na tu buňku (hodnota QTY zůstává jedna, nezvýší se), řešení je jednoduché, stačí jen mezi přičítáním stejné hodnoty kliknout jednou vedle do nějaké prázdné buňky, s tím se dá žít. Nicméně pokud někdo znáte jednoduché řešení, za otázku nic nedám.

Ještě jednou děkuji.citovat

a.mlady(22.8.2017 10:22)#037354

Marica napsal/a:

Posílám příklad tabulku v příloze

Příloha se nějak ztratila.
Zkoušel jsem připočitat hodnotu z určité buňky několikrát za sebou, jenom tím, že jsem klikal na tlačítko "Přičíst".citovat

Marica(22.8.2017 10:27)#037355

pardon :) raději posílám přes let. poštu

ano jde opakovaně přičíst, ale já mám ještě makro, které mi zaznamenává počet "klinutí" na buňku, abych věděl co kolikrát přičítám, viz příloha O:)

http://leteckaposta.cz/679526743

Napadá mě, kdyby se po kliknutí na tlačítko přičíst, defaultně nastavil target na buňku A1, nebo jinou prázdnou.citovat

a.mlady(22.8.2017 10:45)#037356

Marica napsal/a:

Napadá mě, kdyby se po kliknutí na tlačítko přičíst, defaultně nastavil target na buňku A1, nebo jinou prázdnou.

V tom případě stačí
Private Sub CommandButton1_Click()
Range("D15") = Range("D15") + ActiveCell.Value
Range("A1").Activate
End Subcitovat

a.mlady(22.8.2017 12:02)#037358

Omlouvám se, ale trochu jsem Vám upravil kod na listu "Tlačítko_nej řešení", snad to nebude vadit.

Příloha: 37358_test11.rar (36kB, staženo 73x)

citovat

Marica(22.8.2017 12:19)#037359

za to se vůbec neomlouvejte, býval bych nad tím bloumal hodiny, né-li dny :)

Mnohokrát děkuji!

citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse