• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Dynamické doplnění seznamu

Zaslal/a Mistr-Vichr 7.11.2012 8:31

Dobrý den.
Chtěl bych poradit, zda je možné dynamicky rozšiřovat seznam na základě doplňování hodnot ve "Sloupci 1". Moje představa je, že když ručně doplním v prvním sloupci hodnotu či hodnoty, tak ve druhém sloupci se doplní vzorec který je v poslední obsazené buňce shora. Doposud jsem to dělal tak, že jsem buňku ve sloupci "roztáhl" dolů, ale při zadávání většího počtu hodnot v prvním sloupci je toto nepohodlné.
Snad je to trošku pochopitelné a přikládám vzorový soubor.
Věřím že se najde někdo kdo by mi dokázal pomoci.

Příloha: 10219_dyn_sez.rar (9kB, staženo 28x)

Zaslat odpověď >

---

Strana:  1 2   další »

marjankaj(7.11.2012 15:56)#010225

No išlo by to.
Ale nestačilo by ti keby si klikol na poslednú bunku so vzorcami a potom urobil dvojklik na prvý spodný roh tej bunky?citovat

Mistr-Vichr(7.11.2012 18:32)#010234

No on to byl jen demonstrativní příklad, ale v tabulce ve které bych to chtěl, je více sloupců které by se takto doplňovaly.citovat

marjankaj(7.11.2012 20:17)#010237

Skús toto.

Příloha: 10237_dyn_sez.zip (16kB, staženo 44x)

citovat

Mistr-Vichr(7.11.2012 21:04)#010238

Luxus!!! Díky moc. Jsi borec. Já to zkoušel vyšpekulovat přes fci posun, či index, ale nejsem ještě tak zběhlý a přes VBA jsem tušil, že to určitě půjde, ale je to pro mne španělská ves...a mohl bych tě ještě poprosit o výklad kódu?
A ještě jednou mockrát děkuji.citovat

marjankaj(8.11.2012 10:10)#010246

Je to umiestnené na liste kde sa to má aplikovať, teda LIST1. TARGET je menená bunka.
Private Sub Worksheet_Change(ByVal Target As Range)
' zužuje kontrolovanú oblasť na OBLAST. Tú si môžeš meniť, tak že pomenovanú oblasť zmeníš.
Set prienik = Application.Intersect(Range("oblast"), Target)
If Not prienik Is Nothing Then
'Skopíruje bunku vpravo nad meneným riadkom o riadok nižšie. Hodnoty aj formáty.
Target.Offset(-1, 1).Copy Target.Offset(0, 1)
' skopíruje vyfarbenie bunky nad menenou bunkou do menenej bunky
Target.Interior.ColorIndex = Target.Offset(-1, 0).Interior.ColorIndex
End If
End Sub

Meniť oblasť môžeš na karte VZORCE > definovať názovcitovat

Mistr-Vichr(9.11.2012 6:05)#010266

Já si to tak nějak přeložil :) a ještě jedná věc. Toto funguje v případě, že vkládám data ručně řádek po řádku. Bude potřeba nějakých složitějších zásahů v případě, že vložím zkopírovaný sloupec hodnot?citovat

Mistr-Vichr(9.11.2012 6:47)#010268

'Skopíruje bunku vľavo nad meneným riadkom o riadok nižšie. Hodnoty aj formáty.

Target.Offset(-1, 1).Copy Target.Offset(0, 1)

Vlevo? Není to vpravo?citovat

marjankaj(9.11.2012 10:05)#010269

Áno malo byť vpravocitovat

marjankaj(9.11.2012 17:09)#010272

Skús toto. Skopíruj tam viac buniek.

Příloha: 10272_dyn_sez.zip (17kB, staženo 39x)

citovat

Mistr-Vichr(10.11.2012 8:18)#010279

Tak to je přesňě co jsem hledal. :) Palec nahoru :)citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse