[[20171004163144]]　『シート内でセル内の特定文字を置換』（koji）　ページの最後に飛ぶ

『シート内でセル内の特定文字を置換』（koji）

エクセル2003を使っています。
シート内に特定文字があった場合セル内のその文字だけの置換を考えています。
例えば
ラーメン（塩）大
ラーメン（しょうゆ）小
ラーメン（みそ）大
というセルが其々存在した場合にセル内の　"（塩）"　のみ色を変えたいです。
宜しくお願い致します。

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

Sub test()
Dim tx As String
Dim rng As Range, r As Range, i As Long, colInd As Integer
With ActiveSheet
Set rng = .Range("a1:a100")
txt = "(塩)"
colInd = 3
For Each r In rng
If InStr(r, tx) > 0 Then _
r.Characters(InStr(r, tx), Len(tx)) _
.Font.ColorIndex = colInd
Next
End With
End Sub
（＋＋） 2017/10/04(水) 16:52

Sub test999()
Dim tx As String
Dim rng As Range, r As Range, i As Long, colInd As Integer
With ActiveSheet
Set rng = .Range("a1:a100")
tx = "(塩)"
colInd = 3
For Each r In rng
If InStr(r, tx) > 0 Then _
r.Characters(InStr(r, tx), Len(tx)) _
.Font.ColorIndex = colInd
Next
End With
End Sub

（＋＋） 2017/10/04(水) 16:54

選択範囲のコピー貼ったはずだったのに
笑い

Sub test()
Dim tx As String
Dim rng As Range, r As Range, i As Long, colInd As Integer
With ActiveSheet
Set rng = .Range("A2", Cells(Rows.Count, 1).End(xlUp))
tx = "(塩)"
colInd = 3
For Each r In rng
If InStr(r, tx) > 0 Then _
r.Characters(InStr(r, tx), Len(tx)) _
.Font.ColorIndex = colInd
Next
End With
End Sub
（＋＋） 2017/10/04(水) 17:03

 なんか、学級崩壊って感じ...
 きちんと整理してから投稿した方がいいと思うけど。

 Sub test()
     Dim r As Range, ff As String, t As Long
     Const txt As String = "（塩）"
     Set r = Cells.Find(txt, , , 2)
     If Not r Is Nothing Then
         ff = r.Address: t = 1
         Do
             t = InStr(r.Value, txt)
             Do While t > 0
                 r.Characters(t, Len(txt)).Font.Color = vbRed
                 t = InStr(t + 1, r.Value, txt)
             Loop
             Set r = Cells.FindNext(r)
         Loop Until ff = r.Address
     End If
 End Sub
（seiya） 2017/10/04(水) 18:04

早速の回答ありがとうございます。
ためしてみます。_(__)_
（koji） 2017/10/04(水) 18:15

ばっちり！解決できました。
ありがとうございました。
（koji） 2017/10/04(水) 18:22

コメント返信：

[ 一覧(最新更新順) ]

[[20171004163144]] 『シート内でセル内の特定文字を置換』（koji） ページの最後に飛ぶ

[[20171004163144]]　『シート内でセル内の特定文字を置換』（koji）　ページの最後に飛ぶ