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

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

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

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

4、在模块当中输入如下代码，然后运行Private Sub Worksheet_Change(ByVal Target As Ra荏鱿胫协nge) 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 NextEnd Sub

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