Excel VBA質問箱 IV

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

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


15832 / 76732 ←次へ | 前へ→

【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日分の行見出し(日付)はどこに?

2 hits

【66367】条件を満たすセルの背景色を変えるには ムカイ 10/8/27(金) 20:02 質問
【66368】Re:条件を満たすセルの背景色を変えるには あああ 10/8/27(金) 20:48 回答
【66372】Re:条件を満たすセルの背景色を変えるには ムカイ 10/8/29(日) 19:43 回答
【66373】Re:条件を満たすセルの背景色を変えるには マジ村レス次郎 10/8/29(日) 21:32 回答
【66374】Re:条件を満たすセルの背景色を変えるには kanabun 10/8/29(日) 21:37 発言
【66369】Re:条件を満たすセルの背景色を変えるには kanabun 10/8/27(金) 20:50 発言
【66381】Re:条件を満たすセルの背景色を変えるには UO3 10/9/1(水) 23:36 発言

15832 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free