|
▼ぼこ さん:
解決後にすみません。
実をいうと
Sub Try1b()
でも、条件にあう行が塗りつぶされませんでした。
その理由をずっと考えても分からなかったので、
他の掲示板に質問しましたところ、すぐ理由が分かりました
Sub Try1c()
Dim LastRow As Long
With Cells(Rows.Count, 1)
LastRow = WorksheetFunction.Max( _
.End(xlUp).Row, _
.Offset(, 1).End(xlUp).Row)
End With
With Range("A1:B" & LastRow)
.Interior.ColorIndex = xlNone
.Cells(1).Select '◆ここを追加
With .FormatConditions
.Delete
.Add Type:=xlExpression, _
Formula1:="=NOT(ASC($A1)&ASC($B1)=""00"")"
.Item(1).Interior.ColorIndex = 6
End With
End With
End Sub
マクロ記録のコードがうまく行って、Select Selectionを取り払った
コードがうまくいかなかったのは、
数式中で使っている $A1 というアドレスと 選択範囲の先頭セルが
対応するということを指定するために、[A1]をアクティブにしてやら
ないとダメだったんですね。
以上、事後談となりましたが、何かの機会に参考になれば
と思いまして投稿させていただきました
では (^^)
|
|