Příspěvky uživatele


< návrat zpět

VBA - rychlá úprava kopírování formátu (23.7.2017 16:12)

A aby se to formát kopírovalo jen v případě sloupců - D,E,F,G,H ... 1

VBA - rychlá úprava kopírování formátu (23.7.2017 16:03)

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 1


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