エクセルＶＢＡ負の値を含む行を表内で配色する方法

質問

列幅は固定（Ａ：Ｑ）で、行数は毎回変化する表を作成しております。

Ｑ行が負の値である行のみ、表の範囲内で色づけするようマクロを組みたいのですが、
適切なコードがわからず困っています。

本やネット検索で、特定のセルのみや行全体を指定する方法はわかったのですが、
数値検索と表内での範囲指定をどう組み合わせてよいのかわかりませんでした。

なお、必ずしも全ての列にデータが入っているわけではない為、
xlToLeftなどは使えないのかな？と思っております。

ＶＢＡをはじめたばかりで、初歩的な質問であれば申し訳ありません。
解決策をご教示頂ければ幸いです。

回答No.5

imogasi

＃２、#4です。
エクセルの条件付き書式をＶＢＡでやってみました。
私自身悩んだ点がありましたので、参考までにコードを上げてみました。
xlExpressionを使う点です。
Sub Example2()
ThisWorkbook.Worksheets(4).Select
Selection.FormatConditions.Delete
With ThisWorkbook.Worksheets(4).Range("B1:h10") '色を付ける列限定
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=$Q1<0" '条件が同行のＱ列にあることを示す
.FormatConditions(1).Interior.ColorIndex = 6
End With
End Sub

回答No.4

imogasi

#2です。前回答のほかに下記の方法もあります。
（３）オートフィルタを使う方法
（４）Ｆｉｎｄメソッドを使う方法。
ーー
（３）は
Sub test04()
Dim c As Range
Dim d As Range
Range("A1").AutoFilter
ActiveSheet.Range("A1").AutoFilter Field:=17, Criteria1:="<0"
With ActiveSheet.AutoFilter
Set A = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Set B = Range("G2:Q20") '列限定のため
Set d = Application.Intersect(A, B) '列限定のため
d.Interior.ColorIndex = 6 '黄色
End With
End Sub
言いたいことは、(該当の行を探すため）いろいろな方法が考えられる、ということです。

回答No.3

kagakusuki

For Each～Nextを使った方が手っ取り早いかも知れません。

Sub QNo8993372_エクセルVBA負の値を含む行を表内で配色する方法()

Dim c As Range

For Each c In Range("Q1:Q" & Range("Q" & Rows.Count).End(xlUp).Row)
If c.Value < 0 Then Application _
.Intersect(c.EntireRow, Columns("A:Q")).Interior.Color = 255
Next c

End Sub

回答No.2

imogasi

何も「むつかしいとか、悩む点はない」と思うが。
初歩的なＶＢＡの本にも載っている話が多い。
（１）考え方では、初歩的な方法
（２）エクセル機能の「条件付き書式」を用いての設定
などある。
（１）の方法では（（２）は省略）
Sub test01()
lr = Range("Q1000").End(xlUp).Row
MsgBox lr
For i = 2 To lr
If Range("Q" & i) < O Then
MsgBox i
ActiveSheet.Range("A" & i & ":Q" & i).Interior.ColorIndex = 3
End If
Next i
End Sub
（Ａ）最下行の捉え方は、２，３種ヴァリエーションがある。
（Ｂ）セルの表現の仕方にも、２，３種ヴァリエーションがある
（３）色の表現も、ColorIndex、、ＲＧＢ、VbRedのようなヴァリエーションがある。
こんあんちょころえこんなところへ質問する前に、Ｇｏｏｇｌｅで
「エクセル　ＶＢＡ　条件　セルの色付け」
「エクセル　ＶＢＡ　最下行の捉え方」
「エクセル　ＶＢＡ　色」
http://officetanaka.net/excel/vba/cell/cell05.htm
「エクセル　ＶＢＡ　色」条件付き書式」　セル色と文字色などがある
で照会したら。
ーー
マクロの記録も勉強に使うとよい。
エクセルの条件付き書式も操作を知ってますか。それをして
マクロの記録を取ると出るようなコード。それに多少手を加えたら仕舞。

回答No.1

keithin

sub macro1()
　dim r as long

　for r = 1 to range("Q65536").end(xlup).row
　　if cells(r, "Q").value < 0 then
　　　application.intersect(range("A:Q"), rows(r)).interior.color = vbred
　　end if
　next r
end sub

みたいな。