| |
複数のセルに文字数がランダムで記載されています
セル毎に文字の色が変わっています
一つのセル内に黒と赤といったように文字の色が途中で変わっているセルがあります
そこで各セル内を文字単位で一文字づつ文字の色を検索し
黒であった場合に限り白く変更したく思います
下記のように書いたのですが
セル内の先頭の文字色が黒だった場合のみ
一文字めのみが白くなり二文字目以降に実行されません
ご指摘をお願いいたします。
EndRow = ActiveCell.SpecialCells(xlLastCell).Row
EndCol = ActiveCell.SpecialCells(xlLastCell).Column
For C = 1 To EndCol
For R = 1 To EndRow
If Cells(R, C) <> "" Then
EndLen = Len(Cells(R, C))
For LP = 1 To EndLen
If Cells(R, C).Font.ColorIndex =1 Then
Cells(R, C).Characters(Start:=LP, Length:= 1).Font.ColorIndex = 2
End If
Next LP
End If
Next R
Next C
|
|
どんた
- 09/2/15(日) 0:35 -
