takze staci upravit tuto cast (a pridat bunky, napr. A1 a B1)
' Testování změn v buňkách
If .Address = "$F$13" Or .Address = "$A$1" Or .Address = "$B$1" Then
Else
Exit Sub
End Ifcitovat
Zaslal/a
25.1.2013 3:33Zdravím, potřeboval bych vytvořit cyklické odkazy přiřazené různým buňkám, našel jsem tohle makro:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
' Testování změn v buňkách
If .Address <> "$F$13" Then Exit Sub
' Testování, zda je vstup prázdný
If .Value = "" Then
gdblRemember = 0
Exit Sub
End If
' Testování, zda je vstup číslo
If Not IsNumeric(Target.Value) Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
Exit Sub
End If
' Deaktivování událostí
Application.EnableEvents = False
' Přidání zadané hodnoty k předchozí hodnotě
.Value = .Value + gdblRemember
' Povolení událostí
Application.EnableEvents = True
' Uložení aktuální hodnoty do globální proměnné
gdblRemember = .Value
' Povolení buňky pro zadání
.Select
End With
End Sub
Ale funguje mi jen na jednu buňku, poraďte mi prosím jak ho upravit pro vícero.
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.