-1

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

4

3 回答 3

5

选择范围

Conditional Formatting在功能区中单击。

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

在此处输入图像描述

在此处输入图像描述

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

附加资源：

于 2013-09-24T14:29:00.950 回答
0

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

于 2013-09-24T14:28:33.803 回答
0

您是否尝试过HOME->条件格式->突出显示单元格规则->包含的文本？

于 2013-09-24T14:30:37.567 回答