Excel VBA質問箱 IV

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

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


55045 / 76738 ←次へ | 前へ→

【26473】Re:If関数で
回答  Jaka  - 05/7/6(水) 12:55 -

引用なし
パスワード
   こんにちは。

▼ちい さん:
>1,2が真の場合は
>Sheets("C")にRange("C3:C4")とRange("D3:D4")に色を付けてプリントアウトしたいのです。
それなら、小僧さんのコードに色を消すコードをこんな感じに追加すれば良いです。
最初にC3:C4、D3:D4の色を消してから判定しても良いですし....。

    If Cells(13, 2).Value = 3 And Cells(6, 5).Value = 1 Then
      Worksheets("C").Range("C3:C4").Interior.ColorIndex = 4
    Else
      Worksheets("C").Range("C3:C4").Interior.ColorIndex = xlNone
    End If
    If Cells(13, 2).Value = 3 And Cells(7, 5).Value = 2 Then
      Worksheets("C").Range("D3:D4").Interior.ColorIndex = 4
    Else
      Worksheets("C").Range("D3:D4").Interior.ColorIndex = xlNone
    End If
    
他   
    Worksheets("C").Range("C3:C4").Interior.ColorIndex = xlNone
    If Cells(13, 2).Value = 3 Then
      If Cells(6, 5).Value = 1 Then
       Worksheets("C").Range("C3:C4").Interior.ColorIndex = 4
      End If
      If Cells(7, 5).Value = 2 Then
       Worksheets("C").Range("D3:D4").Interior.ColorIndex = 4
      End If
    End If

0 hits

【26428】If関数で ちい 05/7/5(火) 13:30 質問
【26429】Re:If関数で Jaka 05/7/5(火) 13:36 発言
【26431】Re:If関数で ちい 05/7/5(火) 14:05 質問
【26433】Re:If関数で 小僧 05/7/5(火) 14:40 回答
【26434】Re:If関数で ちい 05/7/5(火) 15:07 質問
【26436】Re:If関数で 小僧 05/7/5(火) 15:33 回答
【26437】Re:If関数で Jaka 05/7/5(火) 15:39 発言
【26470】Re:If関数で ちい 05/7/6(水) 11:38 質問
【26473】Re:If関数で Jaka 05/7/6(水) 12:55 回答
【26479】Re:If関数で ちい 05/7/6(水) 17:13 お礼
【26480】Re:If関数で Jaka 05/7/6(水) 17:24 発言
【26482】Re:If関数で ちい 05/7/6(水) 19:09 お礼
【26469】Re:If関数で ちい 05/7/6(水) 11:30 質問

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