|
皆さん、こんばんは。
一日、出かけていたので遅くなりましたが、
条件付書式の設定については、回答がついているみたいなので
よろしいですよね?
>同じ条件で複数列指定する場合、
>絶対座標で代入しない場合、マクロからは、全部横にずれるようなので
>難易度が高いみたいです
そうですねえ!!
私も列単位の設定で複数列指定を考えてみました。
'=============================================
Sub main1()
fml = ""
For idx = 1 To Selection.Columns.Count
With Selection.Columns(idx).FormatConditions
.Delete
.Add Type:=xlExpression, Formula1:= _
IIf(fml = "", "=AND(rc[1]="""",rc<TODAY())", fml)
.Item(1).Interior.ColorIndex = 3
If fml = "" Then
fml = Application.ConvertFormula(.Item(1).Formula1, _
xlA1, _
xlA1, _
xlRelRowAbsColumn)
'↑列のアドレスだけ絶対番地に変換
End If
End With
Next
End Sub
今度は、例えば、c2:f7と選択し(c列が予定日、d列が完了日だとして)
Main1を実行してみて下さい。
|
|