< návrat zpět
MS Excel
Téma: Cyklické odkazy v různých buňkách 
Zaslal/a SHaaT3k 25.1.2013 3:33
Zdraví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.
Poki(25.1.2013 10:53)#011141
Ja myslim, ze je to zrejme - hned prvni cast kodu rika, ze se makro provede jen v pripade, ze ke zmene bunky dojde na bunce F13 (v jine bunce fungovat nebude)
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
\n
RSS nejnovější články