|
>セルの入力されてる文字列の中に、当該文字があって、その部分だけ赤字・・
>じゃなくて、セルにはその当該文字しか入力されてないですか?
う・・・「当該文字」って、「該当文字」やんね。
削除して、再投稿も面倒なので、ここでお詫びorz
「末端」とか「端末」とかよく間違えるやんねw
(私だけか・・・orz)
これだけだと、ほんまアホなので、ついでに・・・・
セルの文字列の中に「該当文字」が途中に入ってる場合
'==============================================
Sub test()
Dim SearchWord As String, FR As Range
Dim strAddress As String
SearchWord = "テキスト"
With Worksheets("Sheet2").Range("A1:f15")
Set FR = .Find(What:=SearchWord, LookIn:=xlValues, LookAt:=xlPart)
If Not FR Is Nothing Then
strAddress = FR.Address
Do
Call ColorChange(FR, SearchWord)
Set FR = .FindNext(FR)
Loop While Not FR Is Nothing And FR.Address <> strAddress
End If
End With
Set FR = Nothing
End Sub
'==============================================
Sub ColorChange(arg_rngTarget As Range, arg_strText As String)
Dim lngS As Long
lngS = InStr(arg_rngTarget.Value, arg_strText)
arg_rngTarget.Characters(Start:=lngS, Length:=Len(arg_strText)).Font _
.ColorIndex = 3
End Sub
|
|