如何突出显示某个短语的行?

时间:2013-09-24 14:25:21

标签: excel excel-vba vba

我工作的地方在Excel电子表格中列出了月数。每个月我的同事必须使用短语Jacobs Eng QP查找每一行并手动突出显示该行。有没有可以为我做这个的宏?

3 个答案:

答案 0 :(得分:5)

选择范围

点击功能区中的Conditional Formatting

然后Equal to并在输入框中输入 Jacobs Eng QP

enter image description here

enter image description here


VBA用户友好型解决方案

Option Explicit

Sub HighlightCells()

    Dim rangeToCheck As Range
    Set rangeToCheck = Application.InputBox(Prompt:="Please Select Range", Title:="Range Select", Type:=8)

    Dim searchTerm As String
    searchTerm = InputBox("Enter search term")

    Dim cell As Range
    For Each cell In rangeToCheck
        If InStr(1, cell, searchTerm, vbTextCompare) Then cell.Interior.Color = RGB(255, 0, 0)
    Next

End Sub

其他资源:

答案 1 :(得分:0)

我会使用自定义格式与INSTR()之类的公式结合使用 - 我无法指导您,因为我的办公室版本使用完全不同的关键字(我喜欢办公室的翻译......)

答案 2 :(得分:0)

你试过HOME->条件格式化 - >突出显示单元格规则 - >包含?

的文字