If e.Row("A") = "已送审" Then Select Case e.Col.name Case "B", "C" If e.text = Nothing Then e.style = "黄底未填" End If End Select End If If e.Row("A") = "已审定" Then Select Case e.Col.name Case "B", "C", "D", "E" If e.text = Nothing Then e.style = "黄底未填" End If End Select End If