|
▼ムカイ さん:
>列A,B,Cが店舗1
>列D,E,Fが店舗2
>列G,H,Iが店舗3 。。。。
>
>といった感じで作ろうと思っています。
1行目:店舗名
2行目:前年実績 本年実績 本年目標 (一店舗につき 3列づつ使用)
3行目〜:データ
Sub 条件付き書式設定() '店舗30×365日
Dim r As Range
Dim i As Long
Set r = ActiveSheet.Range("A3").Resize(365, 30 * 3)
r.FormatConditions.Delete
For i = 2 To 30 * 3 Step 3
With r.Columns(i).FormatConditions
.Add Type:=xlExpression, _
Formula1:="=AND(RC>0,RC[-1]>RC)"
.Item(1).Interior.ColorIndex = 3 '赤
.Add Type:=xlExpression, _
Formula1:="=AND(RC>0, RC>RC[1])"
.Item(2).Interior.ColorIndex = 8 '水色
End With
Next
End Sub
365日分の行見出し(日付)はどこに?
|
|