pokus
Příloha: 
21589_propojeni-tabulek.zip (15kB, staženo 19x)
citovat21589_propojeni-tabulek.zip (15kB, staženo 19x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Propojení tabulek
MS Excel
Téma: Propojení tabulek 
Zaslal/a bwian 15.9.2014 21:41
Ahoj znalci,
potřeboval bych poradit s propojením dvou tabulek. V jednom souboru mám dvě tabulky, v každé jsou prováděny nějaké výpočty. Potřeboval bych přijít na způsob, jak udělat, aby se mi po přidání řádku v tabulce jedna přidal i řádek v tabulce dva. předpokládám, že jinak než přes nějaké makro to nepůjde. A s makry si moc nerozumím. Díky za rady.
Příloha: 21588_propojeni-tabulek.zip (8kB, staženo 17x)
21588_propojeni-tabulek.zip (8kB, staženo 17x)
alebo takto:
v tabulke2 si zmeň stĺpec H na =Tabulka1[@ID]
do kódového okna listu nakopíruj:Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myLoOne As ListObject, myLoTwo As ListObject
Set myLoOne = ListObjects("Tabulka1")
Set myLoTwo = ListObjects("Tabulka2")
If Not Intersect(Target, myLoOne.Range) Is Nothing Then
With myLoTwo.ListRows
Do While myLoOne.ListRows.Count > .Count
.Add
Loop
Do While myLoOne.ListRows.Count < .Count
.Item(.Count).Delete
Loop
End With
End If
Set myLoOne = Nothing
Set myLoTwo = Nothing
End Subcitovat
v tabulke2 si zmeň stĺpec H na =Tabulka1[@ID]
do kódového okna listu nakopíruj:Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myLoOne As ListObject, myLoTwo As ListObject
Set myLoOne = ListObjects("Tabulka1")
Set myLoTwo = ListObjects("Tabulka2")
If Not Intersect(Target, myLoOne.Range) Is Nothing Then
With myLoTwo.ListRows
Do While myLoOne.ListRows.Count > .Count
.Add
Loop
Do While myLoOne.ListRows.Count < .Count
.Item(.Count).Delete
Loop
End With
End If
Set myLoOne = Nothing
Set myLoTwo = Nothing
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články