Excel VBA質問箱 IV

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

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


54188 / 76732 ←次へ | 前へ→

【27343】条件によるセル色の変更について
質問  ヒライ  - 05/8/5(金) 20:26 -

引用なし
パスワード
   何卒、ご教授宜しくお願いいたします。

下記のフォーマットを利用しています。
日付の下に値を入れるのですがJ、K、L列の範囲を超えた場合にセルに色を付けたく思います。

100<150 →値が100より大きく150より小さい時は真、そうでなければ偽(色を付ける) 
100<  →値が100より大きければ真、そうでなければ偽(色を付ける)
という具合で
下記にマクロを実行しましたが
100 <
120 ≦
のようにL列が空欄の場合に旨く動作しません。

何方かご指摘をお願いいたします

  A  B C・・ J  K  L・・・Z  AA  AB AC
1 

・ 
9 No         範囲     7/1 7/2 7/3 7/4・・
11 101      100 < 150         
12 102      100 <
13 103         < 150
14 104      120 ≦ 
15 105      80  ≦ 100
16 106         ≦ 120
17 107      150 〜 160





700


Private Sub Worksheet_Change(ByVal Target As Range)
 Dim lngCol As Long
 Dim lngRow As Long
 Dim lngR As Range


 With Target
 If .Count > 1 Then Exit Sub
 If IsEmpty(.Value) Then Exit Sub
 If IsNumeric(.Value) = False Then Exit Sub
  
 lngCol = Cells(10, 256).End(xlToLeft).Column
 lngRow = Cells(Rows.Count, 26).End(xlUp).Row
 Set lngR = Range(Cells(10, 26), Cells(lngRow, lngCol))
 
 
 If Not Application.Intersect(Target, lngR) Is Nothing Then
  Application.EnableEvents = False
  .Interior.ColorIndex = xlNone
  
   Select Case Cells(.Row, 11).Value
   Case Is = "<"
  If Cells(.Row, 12) = "" And .Value <= Cells(.Row, 10).Value Then
      .Interior.ColorIndex = 8
        Else
     .Interior.ColorIndex = xlNone
      End If
 If Cells(.Row, 10) = "" And .Value >= Cells(.Row, 12).Value Then
      .Interior.ColorIndex = 8
        Else
     .Interior.ColorIndex = xlNone
      End If

   If .Value <= Cells(.Row, 10).Value Or .Value >= Cells(.Row, 12).Value Then
     .Interior.ColorIndex = 8
   Else
     .Interior.ColorIndex = xlNone
   End If
   
     Case Is = "≦"
      If Cells(.Row, 10) = "" And .Value > Cells(.Row, 12).Value Then
      .Interior.ColorIndex = 8
        Else
     .Interior.ColorIndex = xlNone
      End If
 If Cells(.Row, 12) = "" And .Value < Cells(.Row, 10).Value Then
      .Interior.ColorIndex = 8
        Else
     .Interior.ColorIndex = xlNone
      End If
    
   If .Value < Cells(.Row, 10).Value Or .Value > Cells(.Row, 12).Value Then
     .Interior.ColorIndex = 8
   Else
     .Interior.ColorIndex = xlNone
   End If
   
   Case Is = "〜"
        If Cells(.Row, 10) = "" And .Value > Cells(.Row, 12).Value Then
      .Interior.ColorIndex = 8
      End If
 If Cells(.Row, 12) = "" And .Value < Cells(.Row, 10).Value Then
      .Interior.ColorIndex = 8
      End If
   If .Value < Cells(.Row, 10).Value Or .Value > Cells(.Row, 12).Value Then
     .Interior.ColorIndex = 8
   Else
     .Interior.ColorIndex = xlNone
   End If
   Case Else
     .Interior.ColorIndex = xlNone
  
   End Select
    
  End If
Application.EnableEvents = True

End With


End Sub

1 hits

【27343】条件によるセル色の変更について ヒライ 05/8/5(金) 20:26 質問
【27359】Re:条件によるセル色の変更について りん 05/8/6(土) 13:44 回答
【27360】Re:条件によるセル色の変更について ヒライ 05/8/6(土) 14:01 質問
【27362】Re:条件によるセル色の変更について かみちゃん 05/8/6(土) 14:06 回答
【27363】Re:条件によるセル色の変更について ヒライ 05/8/6(土) 14:27 お礼
【27374】Re:条件によるセル色の変更について りん 05/8/7(日) 12:05 発言
【27367】Re:条件によるセル色の変更について yasu 05/8/6(土) 16:15 回答
【27368】Re:条件によるセル色の変更について かみちゃん 05/8/6(土) 16:22 回答
【27371】Re:条件によるセル色の変更について りん 05/8/6(土) 20:18 発言
【27372】Re:条件によるセル色の変更について yasu 05/8/7(日) 6:57 質問
【27373】Re:条件によるセル色の変更について かみちゃん 05/8/7(日) 7:20 発言
【27375】Re:条件によるセル色の変更について りん 05/8/7(日) 12:13 発言
【27378】Re:条件によるセル色の変更について yasu 05/8/7(日) 18:02 質問
【27393】Re:条件によるセル色の変更について りん 05/8/8(月) 9:00 回答
【27417】Re:条件によるセル色の変更について yasu 05/8/8(月) 19:12 お礼

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