|
▼akaishi さん
こんにちは
セルの入力されてる文字列の中に、当該文字があって、その部分だけ赤字・・
じゃなくて、セルにはその当該文字しか入力されてないですか?
(LookAt:=xlWhole)ですもんね?
だったら
>Sub test_20090623()
>Dim SearchWord As String, FR As Range
>SearchWord = "テキスト" →1.該当文字列が見付かったら、該当文字を赤字で表 示したい。
> 2.このコードを実行すると、二つ目の文字列も1.の ようにしたい。
>With Worksheets("Sheet1").Range("A1:f15")
>Set FR = .Find(What:=SearchWord, LookIn:=xlValues, LookAt:=xlWhole)
>If Not FR Is Nothing Then
>MsgBox FR.Address
FR.Font.ColorIndex = 3
↑ここにこれ入れるだけですよね?
>End If
>End With
>Set FR = Nothing
続いて検索・・・は、Findのヘルプに、「FindNext」も使った例があるので、それを参考にされたら出来ると思います。
>End Sub
|
|