Pozdravljeni,
Pravite, da uporabljate Excel 2003 - v tem primeru vam Pogojno oblikovanje prav nič ne pomaga, saj lahko v Excelu 2003 določite samo 3 pogoje, vi pa pravite, da jih potrebujete 5. Pa tudi sicer je nesmiselno z VBA funkcijo določati pogoje pogojnega oblikovanja. Ko namreč enkrat določite pogoje pogojnega oblikovanja, potem ne potrebujete VBA kode, saj bo pogojno oblikovanje barvalo celice glede na vaše želje. Če pa uporabljate VBA kodo, patem pa ne potrebujete pogojnega oblikovanja, saj bo VBA koda zadolžena za barvanje celic.
Torej problema ste se lotili povsem na napačnem koncu. Napisati morate preprosto VBA kodo, ki ob spremembi celice v koloni I obarva kolone od A do H. Uporabiti morate torej odziv na dogodek spremembe vsebine celice Worksheet_Change. Po forumu poiščite tematike, ki obravnavajo dogodek Worksheet_Change, spodaj pa vam podajam rešitev vašega problema (barve sem si pa seveda kar izmislil!):
Koda: Izberi vse
'
' www.matjazev.net
' december 2013
'
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, r
Set rng = Intersect(Target, Range("I:I"))
If (Not rng Is Nothing) Then
For Each r In rng.Rows
With Range(Cells(r.Row, 1), Cells(r.Row, 8)).Interior
.Pattern = xlSolid
If (Cells(r.Row, 9) > 0) And (Cells(r.Row, 9) < 6) Then
.ColorIndex = 2 * Cells(r.Row, 9) + 1
Else
.ColorIndex = xlNone
End If
End With
Next
End If
End Sub