可以用条件格式来实现。
第一步:选中需要实现该功能的区域(本例选取A1到A10),然后在“开始”选项卡中找到“条件格式”,选择“突出显示单元格规则”项下的“文本包含”
第二步:在弹出的对话框中,左侧输入所需文本,右侧为设置格式。系统自带了一些格式,如果不满意可以点击“自定义格式”设置
第三步:在弹出的”自定义格式“对话框中完成自定义格式的设置
此时,在A1到A10单元格中输入内容,如果包含自己设置的文本(本例为”百度“),该单元格自动变为相应格式(本例为绿色填充)。
效果如下:
用代码
复制代码到代码窗口即可
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Sub 根据最大值筛选对应列黑色数据到F列()
If [A1].Interior.ColorIndex = 10 Then
[A2].Interior.ColorIndex = 10'表示绿色
End If
End Sub