私が働いている場所では、Excel スプレッドシートに月次の数字が記載されています。毎月、同僚はそのフレーズを含むすべての行を見つけて、Jacobs Eng QP
その行を手動で強調表示する必要があります。私のためにこれを行うことができるマクロはありますか?
質問する
223 次
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 に答える