|
▼ぼこ さん:
>[質問1]↑行全体ではなく,条件にあう行のかつB列のみを塗りつぶしたい
> という場合は,kanabunさんのコードをどのように修正すれば
> よいでしょうか?
B列だけに条件付書式設定を適用するようにすればよいのでは?
条件の数式は 変更なしです。
Sub Try1_BColumn() 'B列だけに条件付書式設定バージョン
Dim LastRow As Long
With Cells(Rows.Count, 1)
LastRow = WorksheetFunction.Max( _
.End(xlUp).Row, _
.Offset(, 1).End(xlUp).Row, _
.Offset(, 2).End(xlUp).Row _
)
End With
With Range("B1:B" & LastRow)
.Item(1).Select
With .FormatConditions
.Delete
.Add Type:=xlExpression, _
Formula1:="=ASC($A1&$B1)<>""00"""
.Item(1).Interior.ColorIndex = 6
End With
End With
End Sub
>[質問2]↑応用して,A,B,C列の最終行(A列とB列とC列の最終行が
> 異なるばあいに大きいほうをLastRow とする)を求めるとしたい
> ときはコードをどのようにすればよいでしょうか?
上のサンプルを見てください。
A列、B列およびC列のうち 最大の行番号を LastRowにセットしています。
|
|