Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3501 / 76735

←次へ　｜　前へ→


	【78863】Re:特定の指名した氏名にバックカラーをつけたい

β - 17/2/12(日) 17:28 -


	引用なし

	パスワード

▼トキノハジメさん：

回答の前に。

・条件付書式はもちろんご存知ですよね？
・マクロ記録も、もちろんご存知ですよね？

>コードに埋め込んで問題なく動いております。

まず、この設定を反映させるセル領域が、シート上で決まっていれば
あるいは、行数は増減しても、列についいては開始行も含めてきまっていれば
手作業で、条件付き書式を１度、このシートに設定しておけば、マクロでは
何もしなくてもＯＫなんですよ？

また、仮に手作業ではなく、その１度限りの処理でもマクロで行いたい
ということであれば、私がアップしたコードの、設定対象領域を必要なものにして
１回実行すればいいわけで、毎回、マクロ実行するたびに設定をやりなおす必要は
全くありません。
（まぁ、その都度やり直しても実害はないですが）

で、背景色とともに、文字色も変えたいということなら、その条件付き書式設定の
操作を行う。それをマクロ記録してみる。

できあがったコードと私がアップしたコードを見比べれば、どこに何を追加したら
いいかが、たちどころにわかると思いますが？

まぁ、それらは、今後のトキノハジメさんの開発に生かしてもらうとして
面倒なので（？）以下。

Sub Sample()
　　With Range("A1", Cells(1, Columns.Count).End(xlToLeft))
　　　　.FormatConditions.Delete
　　　　.FormatConditions.Add Type:=xlExpression, Formula1:= _
　　　　　　"=OR(A1=""山田"",A1=""沼田"")"
　　　　With .FormatConditions(.FormatConditions.Count)
　　　　　　With .Interior
　　　　　　　　.PatternColorIndex = xlAutomatic
　　　　　　　　.Color = vbRed
　　　　　　　　.TintAndShade = 0
　　　　　　End With
　　　　　　With .Font
　　　　　　　　.Color = vbWhite
　　　　　　End With
　　　　End With
　　　　.FormatConditions.Add Type:=xlExpression, Formula1:= _
　　　　　　"=OR(A1=""川田"",A1=""西村"")"
　　　　With .FormatConditions(.FormatConditions.Count)
　　　　　　With .Interior
　　　　　　　　.PatternColorIndex = xlAutomatic
　　　　　　　　.Color = vbCyan
　　　　　　　　.TintAndShade = 0
　　　　　　End With
　　　　　　With .Font
　　　　　　　　.Color = vbWhite
　　　　　　End With
　　　　End With
　　End With
End Sub

1 hits

▼

【78812】特定の指名した氏名にバックカラーをつけたい トキノハジメ 17/2/8(水) 11:30