Highlighlight eine Zelle in VBA

Question

Ich habe dieses Stück VBA-Code;

Option Explicit 

Function GradeScore(score As Integer) As String 
    'Calculate grade based on the score given 

    ThisWorkbook.Activate 

    If score > 100 Then 
     ActiveCell.Offset(0, -1).Font.Background = rgbRed 
     MsgBox "Score can not be more than 100%" 
     Exit Function 
    End If 

    If score < 0 Then 
     ActiveCell.Offset(0, -1).Font.Background = rgbRed 
     MsgBox "Score can not be less than 0%" 
     Exit Function 
    End If 

    Select Case score 
     Case Is >= 75 
      GradeScore = "A" 

     Case Is >= 70 
      GradeScore = "B+" 

     Case Is >= 60 
      GradeScore = "B" 

     Case Is >= 50 
      GradeScore = "C" 

     Case Is >= 45 
      GradeScore = "D" 

     Case Else 
      GradeScore = "E" 

    End Select 

End Function 

Wenn er gestartet wird alles funktioniert mit Ausnahme der Spitzlichtnäpfchen Code

ActiveCell.Offset(0, -1).Font.Background = rgbRed 

Meine Vermutung ist, dass es nicht in die Zelle verwiesen wird, wählen. Wie kann ich das erreichen?

Answer 1

Versuchen Sie, diese -

ActiveCell.Offset(0, -1).Interior.Color = rgbRed