Příspěvky uživatele
< návrat zpět
A aby se to formát kopírovalo jen v případě sloupců - D,E,F,G,H ... 
Ahoj, v VBA jsme začátečník, ale nějak se s tím už nějaký ten pátek peru. Žádám vás o pomoc, mám VBA a potřeboval bych jej upravit, kde si zvolím nově vybrané řádky (to už mám) a ty by měly mít automaticky formát - ohraničení (například z řádku výše + v buňce ve sloupečku ("D") by bylo napsané velké V).
Zasílám své makro.
Sub pridani_variant()
Dim CalcMode As Long, EnableMode As Long, ScreenMode As Long
Dim lastrow As Integer, i As Integer
Dim pasterow As Byte, n As Byte
'kolik radku vlozit
pasterow = InputBox("Kolik variant chcete vložit?", "Počet nových variant", 1)
'puvodni nastaveni excelu
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
EnableMode = .EnableEvents
.EnableEvents = False
ScreenMode = .ScreenUpdating
.ScreenUpdating = False
End With
'prace s aktivnim listem
With ActiveSheet
'posledni radek v sl.A
lastrow = .Cells(.Cells.Rows.Count, "A").End(xlUp).Row
'opakuj pro vsechny radky
For i = lastrow To 1 Step -1
'opakuj pocet vlozeni
For n = 1 To pasterow
'vlozeni radku za puvodni radek
.Rows(i + 17).EntireRow.Insert
Next n
Next i
End With
'vraceni nastaveni excelu
With Application
.Calculation = CalcMode
.EnableEvents = EnableMode
.ScreenUpdating = ScreenMode
End With
End Sub
Díky
Uživatelské menu
\nMenu
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.
RSS nejnovější články