< návrat zpět

MS Excel


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

Zaslal/a 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
#036807
avatar
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
#036808
avatar

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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09