< návrat zpět

MS Excel


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

Zaslal/a 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ší »
#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
#000563
avatar
Super. dík moc.citovat
#009545
avatar
opravdu funguje 1 !! děkujemecitovat
#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 Sub
citovat
#014333
avatar
Zdravím,

jde to podobně udělat i pro sloupce? Případně jak? Zatím se mi to nijak nepodařilo.citovat
#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
#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 155x)
22438_vba.jpg
citovat
#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
#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
#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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09