在VBA中高亮顯示一個單元格

Question

我有這塊VBA代碼;

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 

當運行一切正常，除了突出顯示單元代碼

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

我的猜測是，它不挑引用的單元格。我怎樣才能做到這一點？

Answer 1

試試這個 -

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