Excel VBA質問箱 IV

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

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


55389 / 76732 ←次へ | 前へ→

【26118】Re:各々条件を指定しセルの色を変える方...
発言  ponpon  - 05/6/23(木) 20:09 -

引用なし
パスワード
   こんばんは。
500行近くあるものが、Changeイベントでうまくいくか
自信がないのですが、基準値が提示されたパターンで、
B列、C列、D列に提示されたように入力されているなら、数値が入力されたときに
色づけできると思います。

Changeイベントの範囲は、
行はA列で見ています。
列は、2行目で見ています。
基準値がない場合はC列に"なし"とでも入れてください。
シートモジュールにコピペして、試してみてください。

うまくいかない場合は、上級者の回答をお待ちください。

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim myCol As Long
 Dim myRow As Long
 Dim myR As Range

With Target
 If .Count > 1 Then Exit Sub
 If IsEmpty(.Value) Then Exit Sub
 If IsNumeric(.Value) = False Then Exit Sub
 
 myCol = Cells(2, 256).End(xlToLeft).Column
 myRow = Cells(Rows.Count, 1).End(xlUp).Row
 Set myR = Range(Cells(3, 5), Cells(myRow, myCol))
 
 If Not Application.Intersect(Target, myR) Is Nothing Then
  Application.EnableEvents = False
  .Interior.ColorIndex = xlNone
  
  Select Case Cells(.Row, 3).Value
   Case Is = "<"
   If .Value <= Cells(.Row, 2).Value Or _
     .Value >= Cells(.Row, 4).Value Then
     .Interior.ColorIndex = 8
   Else
     .Interior.ColorIndex = 2
   End If
   Case Is = "<="
   If .Value < Cells(.Row, 2).Value Or _
     .Value > Cells(.Row, 4).Value Then
     .Interior.ColorIndex = 8
   Else
     .Interior.ColorIndex = 2
   End If
   Case Else
     .Interior.ColorIndex = 2
  
   End Select
   
 
 End If
  Application.EnableEvents = True

End With

End Sub
0 hits

【26007】各々条件を指定しセルの色を変える方法に... mayu 05/6/21(火) 16:28 質問
【26008】Re:各々条件を指定しセルの色を変える方法... m2m10 05/6/21(火) 16:36 発言
【26010】Re:各々条件を指定しセルの色を変える方法... Nossori 05/6/21(火) 18:54 回答
【26022】Re:各々条件を指定しセルの色を変える方法... m2m10 05/6/22(水) 8:07 回答
【26023】Re:各々条件を指定しセルの色を変える方法... ichinose 05/6/22(水) 8:34 発言
【26063】Re:各々条件を指定しセルの色を変える方... mayu 05/6/22(水) 18:18 質問
【26065】Re:各々条件を指定しセルの色を変える方... ichinose 05/6/22(水) 18:38 発言
【26076】Re:各々条件を指定しセルの色を変える方... mayu 05/6/22(水) 21:56 質問
【26077】Re:各々条件を指定しセルの色を変える方... ponpon 05/6/22(水) 23:04 発言
【26079】Re:各々条件を指定しセルの色を変える方... mayu 05/6/22(水) 23:55 質問
【26118】Re:各々条件を指定しセルの色を変える方... ponpon 05/6/23(木) 20:09 発言
【26075】Re:各々条件を指定しセルの色を変える方... ponpon 05/6/22(水) 21:53 発言
【26081】Re:各々条件を指定しセルの色を変える方法... りん 05/6/23(木) 10:25 回答
【26123】Re:各々条件を指定しセルの色を変える方法... mayu 05/6/24(金) 1:21 質問
【26126】Re:各々条件を指定しセルの色を変える方法... りん 05/6/24(金) 8:20 回答

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