|
▼ISOTOPE さん:
>メール頂き、ありがとうございます。
>ただ、初心者のため、解る様で解りません。
>どんな設定にすればいいでしょうか?
>ご連絡お待ちしております。
同じ条件で複数列指定する場合、
絶対座標で代入しない場合、マクロからは、全部横にずれるようなので
難易度が高いみたいです
ISOTOPE さん:のコードを改良して
複数列に 対応するコードに修正しました。
左から
作業完了予定 作業完了日 の順に選択した状態で使ってください。あとに続く右の文字はなんでもいいです。
作業完了予定より左にあるセルも色を変えるには、また別のコードに修正する必要があります。
絶対アドレスで、コードを書く方が、FormatConditionsが補正をかけないので
簡単なんですけどね・・・
Private Sub CommandButton1_Click()
Call FormatConditionsTest
End Sub
Public Sub FormatConditionsTest()
Dim Siki As String
Dim i, j As Long
Dim sRange As String
Dim Kyori As Long
For i = 1 To Selection.Rows.Count
For j = 1 To Selection.Columns.Count
sRange = Selection.Cells(i, j).Address
Kyori = 1 - j
Siki = "=AND(RC[" + CStr(Kyori + 1) + "]=""""," + _
"RC[" + CStr(Kyori) + "]<TODAY())"
' "=AND(rc[1]="""",rc<TODAY())"
' MsgBox Siki + vbCrLf + sRange
With Range(sRange).FormatConditions
.Delete
.Add Type:=xlExpression, Formula1:=Siki
.Item(1).Interior.ColorIndex = 3
End With
Next
Next
' RCについては、 Address プロパティの使用例参照
End Sub
|
|