怎样使用VBA灰色底纹显示优异成绩之成员?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    For Each rng In Application.Intersect(Range("f:f"),
        ActiveSheet.UsedRange.Offset(2, 0))
    If rng="优" Then
    With rng.Offset(0,-5).Interior
      .ThemeColor=xlThemeColorDark1
      .TintAndShade=-0.149998474074526
      .PatternTintAndShade=0
    End With
    End If
    Next
End Sub

5、在数据后面添加一行数据，输入数据后，可以发现评语为“优”者姓名已加上灰色底纹