【发布时间】:2015-07-30 20:52:10
【问题描述】:
我工作的地方在 Excel 电子表格中列出了每月的数字。每个月我的同事都必须找到带有短语Jacobs Eng QP 的每一行并手动突出显示该行。有没有可以为我做这个的宏?
【问题讨论】:
我工作的地方在 Excel 电子表格中列出了每月的数字。每个月我的同事都必须找到带有短语Jacobs Eng QP 的每一行并手动突出显示该行。有没有可以为我做这个的宏?
【问题讨论】:
选择范围
点击功能区中的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
其他资源:
【讨论】:
cell.EntireRow.Interior.Color = RGB(255, 0, 0)。如果有用,请考虑接受此答案::)
我会使用自定义格式并结合 INSTR() 之类的公式 - 我无法指导您,因为我的 office 版本使用完全不同的关键字(我喜欢 office 的翻译...)
【讨论】:
您是否尝试过HOME->条件格式->突出显示单元格规则->包含的文本?
【讨论】: