Excel VBA質問箱 IV

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

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


55431 / 76738 ←次へ | 前へ→

【26081】Re:各々条件を指定しセルの色を変える方法に...
回答  りん E-MAIL  - 05/6/23(木) 10:25 -

引用なし
パスワード
   mayu さん、おはようございます。

>現在、下記の表を使用しています。
>この時、基準値を外れた場合、セルの色を変えて分かり易くしたいです。
>  A   B      C
>1
>2 計器 基準値    測定値
>3 113A 0.1<0.15   0.1
>4 113B 0.1<0.25   0.3 ←基準値を超えた場合セルの色を変える
>5 113C 0.7<     0.8
>6 113D 2.0<5.0    4.0
>7 114A 7.0±1.0   8.0
>  ・  ・

基準値の条件がここに書いてあるものしかないとして、条件付書式をマクロで付加していく方法です。
Sub test()
  Dim fmc As FormatCondition
  '
  For RR& = 3 To 500
   With Cells(RR&, 4)
     '念のため前回の設定の削除
     With .FormatConditions
      If .Count > 0 Then .Delete
     End With
     '式をチェックして条件付書式の条件を分岐
     A$ = Trim(Cells(RR&, 3).Value)
     If InStr(A$, "<") > 0 Then
      Md& = InStr(A$, "<")
      Select Case Md&
        Case Len(A$)
         Tp& = xlGreater
         V1# = Val(Left(A$, Md& - 1))
         fml1$ = Trim(CStr(V1#))
        Case Else
         Tp& = xlNotBetween
         V1# = Val(Left(A$, Md& - 1))
         V2# = Val(Mid(A$, Md& + 1, Len(A$)))
         fml1$ = Trim(CStr(V1#))
         fml2$ = Trim(CStr(V2#))
      End Select
     ElseIf InStr(A$, "±") > 0 Then
      Md& = InStr(A$, "±")
      Tp& = xlNotBetween
      V1# = Val(Left(A$, Md& - 1))
      V2# = Val(Mid(A$, Md& + 1, Len(A$)))
      fml1$ = Trim(CStr(V1# - V2#))
      fml2$ = Trim(CStr(V1# + V2#))
     Else
      Tp& = -1
     End If
     '
     If Tp& > 0 Then
      Select Case Tp&
       Case xlNotBetween
         Set fmc = .FormatConditions.Add( _
          Type:=xlCellValue, Operator:=Tp&, Formula1:=fml1$, Formula2:=fml2$)
       Case xlGreater
         Set fmc = .FormatConditions.Add( _
          Type:=xlCellValue, Operator:=Tp&, Formula1:=fml1$)
      End Select
      fmc.Interior.ColorIndex = 38
      Set fmc = Nothing
     End If
   End With
  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 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free