MS Excel

Téma: VBA podmíněné formátování, písmo + pozadí

Zaslal/a Merlin99 20.4.2021 9:35

Zdravim vsechny
chci se zeptat jestli nekdo poradi jak sloucit tyto dve podminky podmineneho formatovani do jedne, nijak se mi to nepodarilo.. viz příloha

.Range("A2:A" & MaxRadek & "").FormatConditions.Add(Type:=xlExpression, Formula1:="=$A2=1").Font.ColorIndex = 33

.Range("A2:A" & MaxRadek & "").FormatConditions.Add(Type:=xlExpression, Formula1:="=$A2=1").Interior.ColorIndex = 6

Příloha: rar

50492_format.rar (13kB, staženo 14x)

Zaslat odpověď >

Stalker(20.4.2021 13:37)#050500

Myslel si to takto: ???
Private Sub Workbook_Open()
Dim MaxRadek As Long
With List1
MaxRadek = .Cells(Rows.Count, "A").End(xlUp).Row

.Cells.FormatConditions.Delete
With .Range("A2:A" & MaxRadek & "").FormatConditions.Add(Type:=xlExpression, Formula1:="=$A2=1")
.Font.ColorIndex = 33
.Interior.ColorIndex = 6
End With
End With
End Sub

Příloha: rar

50500_format.rar (12kB, staženo 17x)

citovat

Merlin99(20.4.2021 15:04)#050502

Stalker
Perfektní, DĚKUJI moc

citovat

Uživatelské menu

Nejste přihlášen(a)

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.