Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And IsNumeric(Target.Value) = True Then
Cells(Target.Row, 2) = Cells(Target.Row, 2) + Target.Value
Target.Value = 0
End If
End Sub
citovat
Zaslal/a
1.8.2012 11:43Zdravím, prosím Vás existuje funkce pro přičtení hodnoty z nově zadané buňky ke stávající buňce s hodnotou? Tedy například hráč se stávající hodnotou 100 bodů, získá další 20 bodů které zapíši do určené buňky pro zadávání nově získaných bodů. Těchto 20bodů by se mělo přičíst ke stávajícím 100 bodům. V další hře získá 30 bodů a napíši respektive přepíši buňku pro nově získané body(ke stávajícím 120bodům se přičte 30bodů ve stávající kolonce).
Vím, že tu je možnost přepisovat ručně celkový počet bodů tedy využít stisknutí F2 připsat +20, ale nerad bych aby někdo nepřipsal znaménko "+".
Prosím poraďte jak toto vyřešit.
Děkuji
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.