< návrat zpět

MS Excel

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

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
avatar
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
avatar
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
avatar
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
avatar
Hezký večer.
Jenom takový nápad.

Edit: přidáno tl. pro postupné přičitání.
Příloha: rar37351_soucet.rar (18kB, staženo 98x)
citovat
Marica(22.8.2017 10:05)#037353
avatar
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. 1

Ještě jednou děkuji.citovat
a.mlady(22.8.2017 10:22)#037354
avatar

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

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
avatar
Omlouvám se, ale trochu jsem Vám upravil kod na listu "Tlačítko_nej řešení", snad to nebude vadit. 1
Příloha: rar37358_test11.rar (36kB, staženo 84x)
citovat
Marica(22.8.2017 12:19)#037359
avatar
za to se vůbec neomlouvejte, býval bych nad tím bloumal hodiny, né-li dny :)

Mnohokrát děkuji!

1citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje