Excel VBA質問箱 IV

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

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


55427 / 76732 ←次へ | 前へ→

【26079】Re:各々条件を指定しセルの色を変える方...
質問  mayu  - 05/6/22(水) 23:55 -

引用なし
パスワード
   ponpon さん ありがとう御座います。
説明不足で申し訳ありません。

基準値の記載について下記のようにB,C,Dセルに分ければ簡単でしょうか?
できれば測定値は日付順に列を追加しようと思います。
測定値の列は日付順であれば何処でも構いません。

また、関数の利用も考えたのですがコピー&ペーストが出来なくなると思いますので適さない次第です。


  A  B  C  D    E       F    G   H
2 計器  基準値    測定値6/1 測定値6/2  6/3  6/4
3 113A 0.1 < 0.15   0.1     0.1
4 113B 0.1 < 0.25   0.3     0.2
5 113C 0.7 <      0.8     0.8
6 113D 2.0 < 5.0    4.0     4.0
7 114A 6.0 <= 8.0    7.0     7.0
8 115A なし       1.0     2.0
  ・  ・
  ・  ・
  ・  ・
全部で500行程度


ご教授頂いた下記マクロ、今の私のレベルで理解でませんのでしたので
参考にして再度挑戦してみます。

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
 If .Count > 1 Then Exit Sub
 If IsEmpty(.Value) Then Exit Sub
 If IsNumeric(.Value) = False Then Exit Sub
 
 If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
  Application.EnableEvents = False
  .Interior.ColorIndex = xlNone
  If .Value <= .Offset(0, 2).Value Or .Value >= .Offset(0, 4).Value Then
    .Interior.ColorIndex = 8
  Else
    .Interior.ColorIndex = 2
  End If
 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 回答

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