< návrat zpět

MS Excel

Téma: Excel - přidání řádků rss

Zaslal/a patrix 3.7.2009 9:14

Potřeboval bych nějakým jednoduchým způsobem pod každý řádek z daty vložit prázdný řádek.Pracuji i z 1000 řádky a nechce se mě vkládat prázdné řádky po jednom.Ví někdo o něčem ?

Zaslat odpověď >
Strana:  1 2   další »
Jeza.m(5.7.2009 10:04)#000555
Jeza.m
Asi jedině použitím makra viz. následující 2 kódy:
1) Ověřování jestli ve sloupci A je hodnota, pokud ano, tak vloží řádek:
Public Sub radky()
Application.ScreenUpdating = False 'zakázat vykreslování v průběhu makra - zvýší rychlost
For i = 1 To 65536 'maximum řádků na listu, ale lze nastavit vlastní a nižší číslo - makro pak bude rychlejší protože bude ověřovat jen třeba 2000 řádků
If Cells(i, 1) <> "" Then Cells(i + 1, 1).EntireRow.Insert
Next
Application.ScreenUpdating = True 'povolit vykreslování
End Sub

2) anebo za předpokladu, že data jsou pod sebou bez prázdných řádků a ve sloupci A je vždy hodnota:
Public Sub radky2()
Application.ScreenUpdating = False 'zakázat vykreslování v průběhu makra - zvýší rychlost
Dim radek As Single
radek = 1
Do While Cells(radek, 1) <> "" 'maximum řádků na listu, ale lze nastavit vlastní a nižší šíslo - makro pak bude rychlejší protože bude ověřovat jen třeba 2000 řádků
Rows(radek).EntireRow.Insert ' Cells(radek + 1, 1).EntireRow.Insert
radek = radek + 2
Loop
Application.ScreenUpdating = True 'povolit vykreslování
End Sub
M@citovat
patrix(8.7.2009 8:36)#000563
avatar
Super. dík moc.citovat
HN(20.9.2012 10:22)#009545
avatar
opravdu funguje 1 !! děkujemecitovat
marjankaj(20.9.2012 10:45)#009547
avatar
No aby to bolo presne podľa zadania, tak by som to trochu upravil

Public Sub radky2()
Application.ScreenUpdating = False 'zakázat vykreslování v průběhu makra - zvýší rychlost
Dim radek As Single
radek = 1
Do While Cells(radek, 1) <> "" 'maximum řádků na listu, ale lze nastavit vlastní a nižší šíslo - makro pak bude rychlejší protože bude ověřovat jen třeba 2000 řádků
Rows(radek+1).EntireRow.Insert ' Cells(radek + 1, 1).EntireRow.Insert
radek = radek + 2
Loop
Application.ScreenUpdating = True 'povolit vykreslování
End Subcitovat
LuM(14.7.2013 0:27)#014333
avatar
Zdravím,

jde to podobně udělat i pro sloupce? Případně jak? Zatím se mi to nijak nepodařilo.citovat
Palooo(15.7.2013 8:54)#014338
avatar
Prerobil som Jeza.m sub na stlpce:
Public Sub radky()
Application.ScreenUpdating = False
For i = 1 To Columns.Count
If Cells(1, i) <> "" Then Cells(1, i + 1).EntireColumn.Insert
Next
Application.ScreenUpdating = True
End Sub
citovat
Zsolti(20.11.2014 11:01)#022438
avatar
Dobrý den,
lze toto udělat i tak aby makro přidávalo řádek pod poslední vyplněný?
Příloha: jpg22438_vba.jpg (101kB, staženo 156x)
22438_vba.jpg
citovat
Zsolti(20.11.2014 11:03)#022439
avatar

Zsolti napsal/a:

Dobrý den,
lze toto udělat i tak aby makro přidávalo řádek pod poslední vyplněný?Příloha: 22438_vba.jpg


Nevím kde se ta příloha vzala, ale ode mě není :)citovat
€Ł мσşqμΐτσ(20.11.2014 17:53)#022449
€Ł мσşqμΐτσ

Zsolti napsal/a:

Dobrý den,
lze toto udělat i tak aby makro přidávalo řádek pod poslední vyplněný?


Nějak postrádám význam vkládat řádek pod poslední vyplněný řádek.
Každý list má omezený počet řádků (dle verze excelu), takže ty když přidáš řádek navíc tak stejně počet řádků nezvýšíš.citovat
Zsolti(21.11.2014 8:58)#022459
avatar

€Ł мσşqμΐτσ napsal/a:


Nějak postrádám význam vkládat řádek pod poslední vyplněný řádek.
Každý list má omezený počet řádků (dle verze excelu), takže ty když přidáš řádek navíc tak stejně počet řádků nezvýšíš.


Omlouvám se, vyjádřil jsem se špatně, ono VBA je pro mne trochu španělská vesnice 7
Řešil jsem problém, kdy jsem chtěl v zamčeném listu přidat řádek pod poslední vyplněný. Zároveň do něj překopírovat vzorce z řádku se "šablonou pro prázdný řádek".
Vyřešil jsem to tlačítkem s náslůedujícím makrem:

Public Sub kopiruj_radek()
List1.Unprotect
Dim Last_Row As Integer
Last_Row = Range("A:A").End(xlDown).Offset(1).Row
Range("A2:AW2").Copy Range("A" & Last_Row)
List1.Protect
End Sub

Jen mě napadlo zda by to nešlo udělat automaticky, abych nemusel mačkat tlačítko vždy když budu chtít přidat řádek, ale aby se vytvořil automaticky, když v tom posledním bude nějaký záznam.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