Excel VBA質問箱 IV

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

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


54173 / 76732 ←次へ | 前へ→

【27359】Re:条件によるセル色の変更について
回答  りん E-MAIL  - 05/8/6(土) 13:44 -

引用なし
パスワード
   ヒライ さん、こんにちわ。

>例
>100<150 →値が100より大きく150より小さい時は真、そうでなければ偽(色を付ける) 
>100<  →値が100より大きければ真、そうでなければ偽(色を付ける)
>という具合で

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lngCol As Long
  Dim lngRow As Long
  Dim Cflg As Boolean
  '
  Application.EnableEvents = False
  '
  lngCol = Cells(10, 256).End(xlToLeft).Column
  lngRow = Cells(Rows.Count, 26).End(xlUp).Row
  With Target
   If .Count = 1 Then
     If Not IsEmpty(.Value) Then
      If IsNumeric(.Value) Then
        If (.Row >= 10 And .Row <= lngRow) And (.Column >= 26 And .Column >= lngCol) Then
         MsgBox Cells(.Row, 11).Address
         Select Case Cells(.Row, 11).Value
           Case "<"
            '両方入っていないものは考慮にいれてありません
            If Cells(.Row, 10).Value = "" Then
              'X<
              Cflg = .Value < Cells(.Row, 12).Value
            Else
              '<X
              Cflg = Cells(.Row, 10).Value < .Value
              '<X<
              If Cells(.Row, 12).Value <> "" Then _
               Cflg = Cflg And (.Value < Cells(.Row, 12).Value)
            End If
           Case "≦", "〜"
            '"〜"と"≦"との違いがわからないので統合。
            '両方入っていないものは考慮にいれてありません
            MsgBox Cells(.Row, 10).Value
            If Cells(.Row, 10).Value = "" Then
              'X<=
              Cflg = .Value <= Cells(.Row, 12).Value
            Else
              '<=X
              Cflg = Cells(.Row, 10).Value <= .Value
              '<=X<=
              If Cells(.Row, 12).Value <> "" Then _
               Cflg = Cflg And (.Value <= Cells(.Row, 12).Value)
            End If
           Case Else
            Cflg = False
         End Select
         'ここで色を変化させる
         Select Case Cflg
           Case True: .Interior.ColorIndex = 8 '条件に適応
           Case False: .Interior.ColorIndex = xlNone
         End Select
        End If
      End If
     End If
   End If
  End With
Application.EnableEvents = True
End Sub

こんな感じです。
0 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 お礼

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