Suradnik:Goranigaly
Izvor: KiWi
(Usporedba među inačicama)
Redak 12: | Redak 12: | ||
[[SvH.Home]] | [[SvH.Home]] | ||
+ | |||
+ | Private Sub Worksheet_Change(ByVal Target As Range) | ||
+ | |||
+ | Dim icolor As Integer | ||
+ | |||
+ | |||
+ | |||
+ | If Not Intersect(Target, Range("A1:A10")) is Nothing Then | ||
+ | |||
+ | Select Case Target | ||
+ | |||
+ | Case 1 To 5 | ||
+ | |||
+ | icolor = 6 | ||
+ | |||
+ | Case 6 To 10 | ||
+ | |||
+ | icolor = 12 | ||
+ | |||
+ | Case 11 To 15 | ||
+ | |||
+ | icolor = 7 | ||
+ | |||
+ | Case 16 To 20 | ||
+ | |||
+ | icolor = 53 | ||
+ | |||
+ | Case 21 To 25 | ||
+ | |||
+ | icolor = 15 | ||
+ | |||
+ | Case 26 To 30 | ||
+ | |||
+ | icolor = 42 | ||
+ | |||
+ | Case Else | ||
+ | |||
+ | 'Whatever | ||
+ | |||
+ | End Select | ||
+ | |||
+ | |||
+ | |||
+ | Target.Interior.ColorIndex = icolor | ||
+ | |||
+ | End If | ||
+ | |||
+ | |||
+ | |||
+ | End Sub |
Inačica od 07:20, 31. ožujka 2010.
dr.sc. Goran Igaly, viši predavač
web stranica: osobna stranica
Konzultacije:
- srijedom 9-10
- četvrtkom 17.30-18.30
a2 + b2 = c2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("A1:A10")) is Nothing Then
Select Case Target
Case 1 To 5
icolor = 6
Case 6 To 10
icolor = 12
Case 11 To 15
icolor = 7
Case 16 To 20
icolor = 53
Case 21 To 25
icolor = 15
Case 26 To 30
icolor = 42
Case Else
'Whatever
End Select
Target.Interior.ColorIndex = icolor
End If
End Sub