Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15833 / 76733

←次へ　｜　前へ→


	【66374】Re:条件を満たすセルの背景色を変えるには

kanabun - 10/8/29(日) 21:37 -


	引用なし

	パスワード

▼ムカイさん：

>列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日分の行見出し（日付）はどこに？

3 hits

▼

【66367】条件を満たすセルの背景色を変えるには ムカイ 10/8/27(金) 20:02