daj subor co si zacal aby sme nemusely ist od zaciatkucitovat
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: Vložení řádku
MS Excel
Téma: Vložení řádku 
Zaslal/a 5.8.2011 13:56
Dobrý den,pracuji na makru, které má do vybrané oblasti vložit řádky. Řádek se vloží vždy na sudou pozici...tzn: původní řádek tabulky, nový řádek, původní řádek tabulky, nový řádek, atd. Oblast jsem si uložil do proměnné, ale co dál...vůbec nevím jak mám řádky vložit. Vždy se mi vloží do horní nebo do spodní části tabulky. Děkuji za radu.
(8.8.2011 9:41)#005724
Zatím toho moc nemám, ale tady te tedy je:
Sub vlozitRadek()
Dim List1 As String
Workbooks(Soubor1).Activate
List1 = ActiveSheet.Name
Selection.SpecialCells(xlCellTypeVisible).Select
Set Oblast1 = Selection
End Subcitovat
Sub vlozitRadek()
Dim List1 As String
Workbooks(Soubor1).Activate
List1 = ActiveSheet.Name
Selection.SpecialCells(xlCellTypeVisible).Select
Set Oblast1 = Selection
End Subcitovat
(8.8.2011 12:06)#005727
Požívám toto makro a potřeboval bych ho předělat tak, aby nové řádky vkládal pouze do vybrané oblasti. Děkuj za každou radu.
Sub vlozeniRadku()
Selection.End(xlDown).Select
Do Until ActiveCell.Row = 1
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.Offset(-1, 0).Select
Loop
End Subcitovat
Sub vlozeniRadku()
Selection.End(xlDown).Select
Do Until ActiveCell.Row = 1
ActiveCell.EntireRow.Insert shift:=xlDown
ActiveCell.Offset(-1, 0).Select
Loop
End Subcitovat
(9.8.2011 9:39)#005737
A co toto:
Sub vlozeniRadku()
x = Selection.Address
PSl = Selection.Columns.Count
BRad = ActiveCell.Row
PRad = Selection.Rows.Count * 2
ERad = PRad + BRad - 1
Do
BRad = BRad + 1
Rows(BRad).Select
ActiveCell.EntireRow.Insert shift:=xlDown
BRad = BRad + 1
Loop Until BRad >= ERad
Range(x).Resize(PRad, PSl).Select
End Subcitovat
Sub vlozeniRadku()
x = Selection.Address
PSl = Selection.Columns.Count
BRad = ActiveCell.Row
PRad = Selection.Rows.Count * 2
ERad = PRad + BRad - 1
Do
BRad = BRad + 1
Rows(BRad).Select
ActiveCell.EntireRow.Insert shift:=xlDown
BRad = BRad + 1
Loop Until BRad >= ERad
Range(x).Resize(PRad, PSl).Select
End Subcitovat
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