Excel VBA 質問スレ Part14
■ このスレッドは過去ログ倉庫に格納されています
0390デフォルトの名無しさん
2010/02/23(火) 21:26:22Excelバージョン:2003
条件付き書式を設定していくマクロについて質問です.
[問題]
C1:E3の各セルに文字 aもしくはbもしくはcが入力されているとします.
このときA1のセルにa,A2のセルにbが入力されたとき
C1:E3の各セルでaもしくはbが入力されているセルのみ背景を赤にしたいのですが
どうすればよいでしょうか?
[自分なりの解答]
以下のような条件付き書式を各列で設定していくマクロを作ってみたのですが、
$C$1のところが$C$1〜$E$1とすることができず詰まっています...
Do Until ActiveCell.Value = ""
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($A$1:$A$2,$C$1)>=1"
Selection.FormatConditions(1).Font.ColorIndex = 2
Selection.FormatConditions(1).Interior.ColorIndex = 3
ActiveCell.Offset(1).Select
Loop
End Sub
■ このスレッドは過去ログ倉庫に格納されています