MS Excel

Téma: Barva buňky za určité podmínky

Zaslal/a Raders486 4.7.2017 14:15

Ahoj.

Pro někoho banalita pro mě neřešitelný problém.

Chtěl bych požádat o proceduru na:

a) Když buňka ve sloupci "M"= než hodnota buňky ActiveCell.Offset(0, -1) tak barva buňky třeba zelená

b) Když buňka ve sloupci "M"< než hodnota ActiveCell.Offset(0, -1) tak nic

c) Když buňka ve sloupci "M"> než hodnota ActiveCell.Offset(0, -1) tak barva buňky třeba červená

To vše od řádku 3 po poslední obsazenou buňku ve sloupci "M"

Děkuji
Radek

Zaslat odpověď >

Strana: « předchozí 1 2

anyman(6.7.2017 1:58)#036807

Taky se to tak dá, ale tady stačí:Sub AktualizacePF()
Dim rdLast As Long
Application.ScreenUpdating = False
rdLast = Cells(Rows.Count, 1).End(xlUp).Row

Columns(14).FormatConditions.Delete
With Range(Cells(3, 14), Cells(rdLast, 14))
With .FormatConditions
.Add Type:=xlExpression, Formula1:="=RC13=RC"
.Add Type:=xlExpression, Formula1:="=RC13<R[1]C"
End With
.FormatConditions(1).Interior.Color = 5296274
.FormatConditions(2).Interior.Color = 255
End With

Columns(15).FormatConditions.Delete
With Range(Cells(3, 15), Cells(rdLast, 15))
With .FormatConditions
.Add Type:=xlExpression, Formula1:="=RC13=RC"
.Add Type:=xlExpression, Formula1:="=RC13<R[1]C"
End With
.FormatConditions(1).Interior.Color = 5296274
.FormatConditions(2).Interior.Color = 255
End With

Application.ScreenUpdating = True
End Sub
citovat

Raders486(6.7.2017 6:15)#036808

anyman napsal/a:

.Add Type:=xlExpression, Formula1:="=RC13<R[1]C"

Dobré ráno.
Upravil jsem jen výše uvedené na.Add Type:=xlExpression, Formula1:="=RC13<RC", protože jinak to porovnávalo M3 s N4, ale jinak šlape skvěle.

Opět skvělá práce.Navíc jste mi ukázali, jak se dá elegantně stanovit rozsah řádku od do.
Moc děkuji
Radekcitovat

Strana: « předchozí 1 2

Téma: Barva buňky za určité podmínky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje