Excel VBA質問箱 IV

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

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


55431 / 76732 ←次へ | 前へ→

【26075】Re:各々条件を指定しセルの色を変える方...
発言  ponpon  - 05/6/22(水) 21:53 -

引用なし
パスワード
   ponponです。
 私もichinoseさんの考え方を提示しようと考えていたのですが、
データが必ず、C列ならば、
D,E,F,G列を使って基準値を表示したらいかがでしょうか?
ただichinoseさんが言っているように、
基準値のパターンがよく分かりません。

以下のようにすると、
(=が付くのか付かないのかよく分かりませんが、)
C列の値が基準値の範囲内かどうかを判断しやすくなると思います。

  A   B      C       D      E     F     G
1                       基準値 
2 計器 基準値    測定値   以上 最低値  以下  最高値
3 113A 0.1<0.15   0.1      >=  0.1     <=    0.15 
4 113B 0.1<0.25   0.3      >=  0.1     <=    0.25
5 113C 0.7<     0.8      >=  0.7      
6 113D 2.0<5.0    4.0      >=  2.0     <=    5.0
7 114A 7.0±1.0   8.0      >=  6.0     <=    8.0

関数を使った方がはやいかもしれませんが、・・・
すべてが、以上 以下でよいパターンなら、
以下コードで何とかなるかも。

Sub test()
  Dim myR As Range
  Dim C As Range
 
  Set myR = Range("C3", Range("C65536").End(xlUp))
  For Each C In myR
   If C.Value <= C.Offset(0, 2).Value Or C.Value >= C.Offset(0, 4).Value Then
    C.Interior.ColorIndex = 8
   Else
    C.Interior.ColorIndex = 2
   End If
  Next
 
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 回答

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