|
▼ぼこ さん:
よこから失礼
> A1="0" かつ B1="0" ならば,
ということは セルのデータ型は文字列型ということで
しょうから、
数式でいうと
IF(A1&B1="00",)
ということなので、この条件を 条件付書式の数式に
セットすれば いいということになりませんか?
> LastR = Range("A65536").End(xlUp) '最終行を取得
> としてみたのですが , これですとうまく動作しません。
どう、うまくいかなかったのでしょうね??
A列とB列の最終行が異なるばあいに大きいほうを
LastRow とするには、たとえばこんな感じで
いかがですか?
Sub Try1()
Dim r As Range
Dim LastRow As Long
'A、B列の最終行を求める
With Cells(Rows.Count, 1)
LastRow = WorksheetFunction.Max( _
.End(xlUp).Row, _
.Offset(, 1).End(xlUp).Row)
End With
'範囲に条件付書式をセットする
With Range("A1:B" & LastRow).FormatConditions
.Delete
.Add Type:=xlExpression, _
Formula1:="=NOT($A1&$B1=ASC(""00""))"
.Item(1).Interior.ColorIndex = 3
End With
End Sub
|
|