< návrat zpět

MS Excel


Téma: Cyklické odkazy v různých buňkách rss

Zaslal/a 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.

Zaslat odpověď >

icon #011141
Poki
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 If
citovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

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.

On-line nástroje