Thu Mar 31, 2005 10:57 am
Private Sub Scorecolors()
Dim RaB As Range, RaZ As Range
Set RaB = Application.Selection
For Each RaZ In RaB
If Not Intersect(RaZ, RaB) Is Nothing Then
Select Case RaZ.Value
Case "A+"
RaZ.Interior.Color = RGB(0, 255, 0)
Case "A"
RaZ.Interior.Color = RGB(0, 255, 0)
Case "A-"
RaZ.Interior.Color = RGB(0, 255, 0)
Case "B+"
RaZ.Interior.Color = RGB(0, 144, 125)
Case "B"
RaZ.Interior.Color = RGB(0, 144, 125)
Case "B-"
RaZ.Interior.Color = RGB(0, 144, 125)
Case "C+"
RaZ.Interior.Color = RGB(0, 48, 225)
Case "C"
RaZ.Interior.Color = RGB(0, 48, 225)
Case "C-"
RaZ.Interior.Color = RGB(0, 48, 225)
Case "D+"
RaZ.Interior.Color = RGB(98, 0, 184)
Case "D"
RaZ.Interior.Color = RGB(98, 0, 184)
Case "D-"
RaZ.Interior.Color = RGB(98, 0, 184)
Case "E+"
RaZ.Interior.Color = RGB(255, 0, 0)
Case "E"
RaZ.Interior.Color = RGB(255, 0, 0)
Case "E-"
RaZ.Interior.Color = RGB(255, 0, 0)
Case Else
RaZ.Interior.Color = RGB(255, 255, 255)
End Select
End If
Next RaZ
Set RaB = Nothing
End Sub
Function CalcOverall(Bereich As Range)
tmp = 0
For Each Zelle In Bereich.Cells
Select Case Zelle.Value
Case "A+"
tmp = tmp + 15
Case "A"
tmp = tmp + 14
Case "A-"
tmp = tmp + 13
Case "B+"
tmp = tmp + 12
Case "B"
tmp = tmp + 11
Case "B-"
tmp = tmp + 10
Case "C+"
tmp = tmp + 9
Case "C"
tmp = tmp + 8
Case "C-"
tmp = tmp + 7
Case "D+"
tmp = tmp + 6
Case "D"
tmp = tmp + 5
Case "D-"
tmp = tmp + 4
Case "E+"
tmp = tmp + 3
Case "E"
tmp = tmp + 2
Case "E-"
tmp = tmp + 1
End Select
Next Zelle
CalcOverall = tmp
End Function
Thu Mar 31, 2005 3:07 pm
Fri Apr 01, 2005 12:29 am
Fri Apr 01, 2005 1:03 am
Fri Apr 01, 2005 4:54 am
Fri Apr 01, 2005 5:21 am
Fri Apr 01, 2005 6:52 am
Fri Apr 01, 2005 8:10 pm
aphexZero wrote:This is about how i get an overview on my rookies
The First Part will show you how to colorize the Rookie-Marks.
The Second Function calculates an overall value based on the scouting-marks
Sorry, I have no web-space to post a file!
Create an Excel-table like this:
Sat Apr 09, 2005 7:24 am
Sat Apr 09, 2005 8:01 am