MS Excel

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

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

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řílohucitovat

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.
bud sem hod přílohu kterou chceš upravit, nebo podrobněji rozepiš svůj požadavek.citovat

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 kompatibilitoucitovat

zdecitovat