|
こんにちは
>動きませんでしたので「r(1, c)」→「r(g, c)」と思い
>変更しました。
意味を理解するまで変更はしない方がいいですよ。
これで試して、表示されたエラーをお知らせ下さい。
Sub マクロ1()
Dim c As Long
Dim g As Long
Dim r As Range
c = ActiveCell.Column
g = ActiveCell.Row
' On Error Resume Next
For Each r In Range("A" & g & ":A65536") _
.SpecialCells(xlCellTypeConstants)
Select Case True
Case r(1, c) = 1 And Not IsEmpty(r(1, c + 1))
Case r(1, c) = 2 And IsEmpty(r(1, c + 1))
Case IsEmpty(r(1, c)) And _
(IsEmpty(Cells(r.Row, "Z")) Or _
Cells(r.Row, "Z").Value = 3)
Case Else
r(1, c).Interior.ColorIndex = 3
End Select
Next
End Sub
|
|