< návrat zpět

MS Excel

Téma: Dynamické doplnění seznamu rss

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: rar10219_dyn_sez.rar (9kB, staženo 28x)
Zaslat odpověď >
Strana:  1 2   další »
marjankaj(7.11.2012 15:56)#010225
avatar
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
avatar
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
avatar
Skús toto.
Příloha: zip10237_dyn_sez.zip (16kB, staženo 44x)
citovat
Mistr-Vichr(7.11.2012 21:04)#010238
avatar
9 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
avatar
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
avatar
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
avatar
'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
avatar
Áno malo byť vpravocitovat
marjankaj(9.11.2012 17:09)#010272
avatar
Skús toto. Skopíruj tam viac buniek.
Příloha: zip10272_dyn_sez.zip (17kB, staženo 39x)
citovat
Mistr-Vichr(10.11.2012 8:18)#010279
avatar
Tak to je přesňě co jsem hledal. :) Palec nahoru :)citovat

Strana:  1 2   další »

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