< 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:  « předchozí  1 2
marjankaj(21.11.2014 9:25)#022460
avatar

Zsolti napsal/a:


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.


Nechce sa ti mačkať tlačítko? 2
A podľa čoho má excel zistiť, či tam má vložiť riadok? Ak nájde nejaký prázdny? To by mohol vyplniť aj všetky riadky až do konca.citovat
shq32(2.6.2021 10:22)#050779
avatar
Zdravim, vlozeni prazdneho radku funguje skvele, ale potreboval bych vlozit 2 prazdne radky. Je prosim nejak resitelne? Neprisel jsem na to, jak makro nize upravit, aby vlozilo 2 prazdne radky.

Diky moc

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
Stalker(2.6.2021 11:23)#050780
Stalker
Public Sub radky2()
Application.ScreenUpdating = False 'zakázat vykreslování v průběhu makra - zvýší rychlost
Dim radek As Long
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).Resize(2).EntireRow.Insert ' Cells(radek + 1, 1).EntireRow.Insert
radek = radek + 3
Loop
Application.ScreenUpdating = True 'povolit vykreslování
End Subcitovat
shq32(2.6.2021 12:23)#050781
avatar
díkycitovat

Strana:  « předchozí  1 2

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