Suradnik:Goranigaly

Izvor: KiWi

Inačica od 11:06, 8. ožujka 2009. (vidi izvor) Goranigaly (Razgovor | doprinosi) ← Starija izmjena		Inačica od 07:20, 31. ožujka 2010. (vidi izvor) Goranigaly (Razgovor | doprinosi) Novija izmjena →
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

a² + b² = c²

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