makro co urobi 10 identickych tabuliek pod seba a k nim vytvori dalsie cupliky?
nezda sa vam to moc komplikovane?citovat
nezda sa vam to moc komplikovane?citovat
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: Opakovane kopirovani tabulky a vkladani radku
tu ide len o button rozpastovat 10x tabulku je minimalna vec ale dorobit ku kazdej nejaky button a este na presnej pozicie tak to je problem :)
nahrat podseba sformatovanu tabulku mozte napr. takto:
Sub Test()
Set aTable = Cells(7, 3).CurrentRegion
With aTable
aRow = .Rows(.Rows.Count).Row + 2
aEnd = .Rows.Count
aColumn = .Columns(1).Column
End With
For x = 1 To 10
aTable.Copy: Cells(aRow, aColumn).PasteSpecial
aRow = aRow + 1 + aEnd
Next
End Subcitovat
ten text ma byt spolu s kazdou novou tabulkou alebo ma zostat len pri prvej?citovat
tam staci len zmenit:
For x = 1 To 10
napr. For x = 1 To 2
alebo
si tam kludne dorobte inputbox
myNum = Application.InputBox("Enter a number")
For x = 1 To myNumcitovat
MS Excel
Téma: Opakovane kopirovani tabulky a vkladani radku 
Zaslal/a Civi 17.12.2013 15:38
Zdravim, s makry jsem začal teprve nedávno a proto bych vás rád požádal o radu.
Mám docela složitou tabulku, se kterou pracuji každý den a potřeboval bych si ušetřit práci.
1) Tlačítko na kopírování celé tabulky a vložení pod ní. Takovýchto tabulek, potřebuji i 10 pod sebou.
2) Do každé tabulky zvlášť potřebuji zabudovat tlačítka, kdy mi po stisku na konec vloží buď operaci1 nebo operaci2.
- problém je, že se mi řádky vkládají nad sebe a ne pod sebe
- když skopíruju tabulku a dám opět vložit operace, ta se přidá do první tabulky a ne do druhé
- vkládání více tabulek pod sebe - stejný problém jako s řádky...vkládají se nad sebe a ne pod
Tabulka je opravdu složitá a potřebuji, aby se zachovalo veškeré formátování a funkce!
Najde se někdo, kdo chápe můj problém a dokázal by mi v přiloženém (velmi zjednodušeném) souboru vytvořit makro?
Díky moc a případné otázky rád zodpovím.
Příloha: 
16837_vba.zip (8kB, staženo 30x)
16837_vba.zip (8kB, staženo 30x)Možná, že je to složitější. Proto si nad tím marně lámu hlavu, ale ušetří mi to čas.
Je tedy možné vytvořit makro, aby splňovalo můj požadavek?citovat
Je tedy možné vytvořit makro, aby splňovalo můj požadavek?citovat
ok tak to napisu preco je to problem
object "button" sa do formulara nepridava do cells da sa tam pridat len suradnicovo ... takze by sa muselo but suradnicovo zistovat kolko kazdy riadok ma "mm" a podla toho naformatovat button a zaroven ho pridelit
druha moznost je ze sa urobi:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'kod
End Sub
'alebo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
end sub
a samotna cells by sa prerobila na sposob cuplika
preto hovorim ze je to dost komplikovane a neviem ci sa to fakt oplati tak zlozito robitcitovat
object "button" sa do formulara nepridava do cells da sa tam pridat len suradnicovo ... takze by sa muselo but suradnicovo zistovat kolko kazdy riadok ma "mm" a podla toho naformatovat button a zaroven ho pridelit
druha moznost je ze sa urobi:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'kod
End Sub
'alebo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
end sub
a samotna cells by sa prerobila na sposob cuplika
preto hovorim ze je to dost komplikovane a neviem ci sa to fakt oplati tak zlozito robitcitovat
Jenže já dopředu nikdy nevím jak bude tabulka velká, nebo teď nevím jestli si rozumíme.
Vím, že je to složité, ale tímto by odpadly jakékoli chyby spojené s opakovaným kopírováním.
Pokud se to opravdu nedá nějak vhodně naprogramovat, tak se to pokusím vymyslet asi jinak..citovat
Vím, že je to složité, ale tímto by odpadly jakékoli chyby spojené s opakovaným kopírováním.
Pokud se to opravdu nedá nějak vhodně naprogramovat, tak se to pokusím vymyslet asi jinak..citovat
Civi napsal/a:
Jenže já dopředu nikdy nevím jak bude tabulka velká, nebo teď nevím jestli si rozumíme.
tu ide len o button rozpastovat 10x tabulku je minimalna vec ale dorobit ku kazdej nejaky button a este na presnej pozicie tak to je problem :)
nahrat podseba sformatovanu tabulku mozte napr. takto:
Sub Test()
Set aTable = Cells(7, 3).CurrentRegion
With aTable
aRow = .Rows(.Rows.Count).Row + 2
aEnd = .Rows.Count
aColumn = .Columns(1).Column
End With
For x = 1 To 10
aTable.Copy: Cells(aRow, aColumn).PasteSpecial
aRow = aRow + 1 + aEnd
Next
End Subcitovat
Ok chapu, to co jsi poslal je super, funguje to :)
Jen malý detail..pod tabulkou mám ještě nějaký text a nově vytvořená tabulka mi ho překryje.
Mohl by si to ještě upravit, aby text vždy zůstal na konci?
//EDIT..
ještě jsem se v tom vrtal a ne pokaždé potřebuji těch tabulek 10. Někdy 2, někdy 5...
Ještě by bylo fajn kdyby umělo vložit jen jednu tabulku. Po dalším kliknutí by to vložilo další pod..a tak dál..citovat
Jen malý detail..pod tabulkou mám ještě nějaký text a nově vytvořená tabulka mi ho překryje.
Mohl by si to ještě upravit, aby text vždy zůstal na konci?
//EDIT..
ještě jsem se v tom vrtal a ne pokaždé potřebuji těch tabulek 10. Někdy 2, někdy 5...
Ještě by bylo fajn kdyby umělo vložit jen jednu tabulku. Po dalším kliknutí by to vložilo další pod..a tak dál..citovat
Civi napsal/a:
Mohl by si to ještě upravit, aby text vždy zůstal na konci?
ten text ma byt spolu s kazdou novou tabulkou alebo ma zostat len pri prvej?citovat
Civi napsal/a:
//EDIT..
ještě jsem se v tom vrtal a ne pokaždé potřebuji těch tabulek 10. Někdy 2, někdy 5...
tam staci len zmenit:
For x = 1 To 10
napr. For x = 1 To 2
alebo
si tam kludne dorobte inputbox
myNum = Application.InputBox("Enter a number")
For x = 1 To myNumcitovat
Tohle mi bohužel nefunguje :/
A jde o to aby se vložila tabulka (1x)
Po dalším stisku by se tatáž tabulka vložila pod 2.
Po dalším by se vložila pod 3. atd..
Text je uplně na konci, pod všema tabulkama..citovat
A jde o to aby se vložila tabulka (1x)
Po dalším stisku by se tatáž tabulka vložila pod 2.
Po dalším by se vložila pod 3. atd..
Text je uplně na konci, pod všema tabulkama..citovat
ved to presne robi
v tomto makre som tabulku prerobil na Selection ..... tj. najprv musite zaznacit oblast ktoru chcete rozmnozit (+ s tym textom)
potom som tam dorobil inputbox kde sa vas opyta kolko krat to chcete rozmnozit (zadajte tam number pri texte to zbugne)
v tomto makre som tabulku prerobil na Selection ..... tj. najprv musite zaznacit oblast ktoru chcete rozmnozit (+ s tym textom)
potom som tam dorobil inputbox kde sa vas opyta kolko krat to chcete rozmnozit (zadajte tam number pri texte to zbugne)
Příloha: 16858_vba.zip (16kB, staženo 36x)
citovat16858_vba.zip (16kB, staženo 36x)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