主题：查找的字符串,能否用色块标出?

搜索备注列的内容,被搜索出来的字符串,希望能够用色块显示出来,就像FOXTABLE的帮助文件中的搜索那样,请问如何实现呢?

此主题相关图片如下：3.jpg

我写的代码显然不对,其结果是单元格带颜色背景,而字符串依旧.

Dim dr AS Row=e.Row
If e.col.name="兼容电池" Then
  If e.Row.IsNull(e.Col.Name) = False  
    Static battery AS String          
    battery=dr("电池型号")        
    e.style="样式1"
    e.text=battery
   End If
End If

这个应该不需要用PUBLIC变量的吧.