我工作的地方在Excel电子表格中列出了月数。每个月我的同事必须使用短语Jacobs Eng QP
查找每一行并手动突出显示该行。有没有可以为我做这个的宏?
答案 0 :(得分: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
其他资源:
答案 1 :(得分:0)
我会使用自定义格式与INSTR()之类的公式结合使用 - 我无法指导您,因为我的办公室版本使用完全不同的关键字(我喜欢办公室的翻译......)
答案 2 :(得分:0)
你试过HOME->条件格式化 - >突出显示单元格规则 - >包含?
的文字