[[20090914213511]]　『色字（赤色）の文字を抽出する方法』（ネロリ）　ページの最後に飛ぶ

『色字（赤色）の文字を抽出する方法』（ネロリ）

 こんにちは。はじめまして。
 既出でしたら申し訳ございませんが、（ニーズはありそうなので）
 セルの中の字が赤色のものだけを抽出して、
 その文字を削除する方法を探しています。

 もし、知見がある方がいらっしゃいましたら、
 よろしくお願いいたします。

 WinXp/Excel2000です。

 以上よろしくお願いいたします。

 2002からだったかな？
検索機能で文字の色が有ります。
2000も確認してみて下さい。
なければVBAでの処理になると思います。
(bbq)

 bbqさんこめんとありがとうございます。
 残念ながら2000には検索機能に文字の色はございません。
 やはりマクロになるのでしょうか・・・

 セルのフォントの色が赤に設定されているセルをクリアにする　と言う仕様なら、

 Option Explicit

 Sub 赤フォントセルクリア()
    Dim rng As Range
    Dim crng As Range
    On Error Resume Next
    Set rng = Selection
    If Err.Number = 0 Then
       Set rng = Union(rng, rng)
       For Each crng In rng
          If crng.Font.Color = vbRed Then
             crng.ClearContents
          End If
       Next
    End If
    Set rng = Nothing
    Set crng = Nothing
    On Error GoTo 0
 End Sub

 査定したいセル範囲を選択した状態で上記の「赤フォントセルクリア」を実行してみてください。

 あるセルに

 私は,ichinoseです

 と入力されていて、ichinoseと言う文字のみ赤の場合、

 処理後は、

 私は,です

 にしたいなら、もうちょっと工夫が必要です。Charctersを使います

 ichinose

コメント返信：

[ 一覧(最新更新順) ]

[[20090914213511]] 『色字（赤色）の文字を抽出する方法』（ネロリ） ページの最後に飛ぶ

[[20090914213511]]　『色字（赤色）の文字を抽出する方法』（ネロリ）　ページの最後に飛ぶ