|
ウッシさん お世話になります。
マクロ1()を実行してみましたところ、うまくいかない点が
ありましたので大変お手数ですが対応策を教えていただけ
ないでしょうか。
アクティブセルをデータの先頭行において実行すると
動きませんでしたので「r(1, c)」→「r(g, c)」と思い
変更しました。
変更後一応走ったのですが、
・条件式の3番目が機能していない
Case IsEmpty(r(1, c)) And _
(IsEmpty(Cells(r.Row, "Z")) Or _
Cells(r.Row, "Z").Value = 3)
・最終セルから2行オーバーして終了
という状況です。
どうかよろしくお願いいたします。
---------------------------------------
Sub マクロ1()
Dim c As Long
Dim g As Long
Dim r As Range
c = ActiveCell.Column
g = ActiveCell.Row
With WorksheetFunction
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 With
End Sub
|
|