< návrat zpět

MS Excel


Téma: Příčítání hodnoty rss

Zaslal/a 27.10.2014 6:45

tilldaDobrý den, rád bych se s Vámi poradit. Jedná se o přičítání hodnot do buňky. Zadám 10, druhá buňka se změní na 10. Zadám pět, k druhé buňce se přičte 5, takže 15. Děkuji

Zaslat odpověď >

Strana:  1 2   další »
#022033
Hav-Ran
Ahoj, s využitím eventu Change by to malo fungovať.
Píše sa do bunky A1, v B1 spočítava a v C1 je počet zápisov. Procedúru treba vložiť vo VBA do listu, nie do modulu (píšem pre istotu 1 ).

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value + Target.Value
Target.Offset(0, 2).Value = _
Target.Offset(0, 2).Value + 1
ERRORHANDLER:
Application.EnableEvents = True
End Subcitovat
#022034
tillda
Velice děkuju za odpověď. Ale i když jsem vložil do VBA nechce se mi to rozjet. Mohl bych případně poprosit o hrubý náčrt?
Ještě bych se rád zeptal, jak to udělat, když budu potřebovat tu samou funkci pro deset hodnot. Stačí přepsat pouze hodnotu "$A$1"? Díky moc 1citovat
#022035
€Ł мσşqμΐτσ
Ahoj.
procedura funguje zkoušel jsem
bud nemáš povolená makra nebo si makro nevložil do správného listu.
co se týče otázky "samou funkci pro deset hodnot." mas na mysli 10 různých buněk?
tak tam bych volil možnost zabarvení bunky třeba na žlutou colorindex = 6
a to by stacilo přepsat Hav-Ranovo makro první řádek.
takto:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Target.Interior.ColorIndex = 6 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target.Offset(0, 1).Value = _
Target.Offset(0, 1).Value + Target.Value
Target.Offset(0, 2).Value = _
Target.Offset(0, 2).Value + 1
ERRORHANDLER:
Application.EnableEvents = True
End Sub


pro ukázku viz přílohu
Příloha: zip22035_sesi.zip (13kB, staženo 34x)
citovat
#022038
tillda
Ano, musel jsem někde udělat chybu. Ještě bych rád poprosil o jednu drobnost? Rád bych abych mohl zadat do buňky třeba číslo 5, která by se někde odečetla a dále by buňka zůstala prázdná. Jednoduše bych klikl na číslo, propočet by se udělal ale v buňce by nic dál nezůstalo. Jde něco takového? Díkycitovat
#022039
€Ł мσşqμΐτσ
jo to by šlo taky, ale
1. co je to někde odečetlo (vedle z bunky nebo jiný list?) bylo lepší popsat požadavek podrobněji
2. jak chceš odlišit kde se má co připočítat a kde zas co odečítat?

to jsou věci, bez kterých se makro těžko napíše. 1
bud sem hod přílohu kterou chceš upravit, nebo podrobněji rozepiš svůj požadavek.citovat
#022041
tillda
Velice si cením odpovědi. Přikládám tedy přílohu s podrobněji vysvětleným problémem. Ještě jednou děkuji. 1
Příloha: rar22041_problem.rar (38kB, staženo 24x)
citovat
#022043
€Ł мσşqμΐτσ
upravil jsem trochu makro viz příloha

zase jsem to delal na barvu bunky
kdyby to nefungovalo tak překopíruj si makro do svého sešitu
já to dělal na MS office 2003 takže nevím či nebudou nějaké problémy s kompatibilitou
Příloha: zip22043_ggg.zip (15kB, staženo 31x)
citovat
#022048
tillda
Perfektní. Všechno funguje, jak má. Klobou dolů. Mám však ještě dotaz, který jsem dovysvětlil v příloze. Opravdu velice děkuji už předem. 1
Příloha: rar22048_3.rar (45kB, staženo 20x)
citovat
#022049
€Ł мσşqμΐτσ
zde
Příloha: zip22049_ddd.zip (23kB, staženo 26x)
citovat
#022075
tillda
Perfektní. Všechno funguje, jak má. I když je mi to trapné, mohl bych ještě poprosit o kopírování hodnot do druhé listu také pro druhou, červenou, tabulku prodáno? Rád bych si to nastavil sám, ale bohužel, je to pro mne ještě španělská vesnice. Opět předem velice děkuji. 1
Příloha: rar22075_aaa.rar (25kB, staženo 22x)
citovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32

Čas od do

jarek1111 • 18.4. 8:31

Makro smyčka

MilanKop • 18.4. 7:18

Makro smyčka

elninoslov • 18.4. 0:18

Makro smyčka

MilanKop • 17.4. 21:33