Excel総合相談所 62 - 暇つぶし2ch

Excel総合相談所 62 at BSOFT

209:名無しさん＠そうだ選挙にいこう
07/11/24 23:06:02
>>191
ひとくちに赤、青と言っても、明るかったり暗かったりいろんな色があるから
標準以外の色を使っていた場合にはこのVBAは使えないので注意。

Sub test() ' 呼び出しサンプル
ChangeColor ("A1") ' 置き換えたいセルを指定する
End Sub

Sub ChangeColor(R) '指定されたセルの赤い文字だけを青に変える
For I = 1 To Len(Range(R))
If Range(R).Characters(Start:=I, Length:=1).Font.Color = vbRed Then Range(R).Characters(Start:=I, Length:=1).Font.Color = vbBlue
Next I
End Sub

次ページ

続きを表示

1を表示