Excel VBA質問箱 IV

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

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


9017 / 76732 ←次へ | 前へ→

【73283】Re:条件に合うセルの色づけ
質問  tk  - 12/12/17(月) 17:23 -

引用なし
パスワード
   ご報告が遅くなりました。
無事やりたいマクロが出来ました。本当にありがとうございました。

ついで申し訳ないのですが、一つ追加したい部分があります。
セルの色づけをする際にrのA列に数字のフラグを付けてフィルターを掛けたいです。
フィルターは解るのですがrの一つ左のセル指定の書き方が解りませんでした、どうかご教授お願いします。

Private f As Range
Sub check_release()
  Dim r As Range
  Dim t As Range
  Dim b As Boolean
   
  Set t = Worksheets("変更・リリース管理台帳").Range("A1").CurrentRegion.Columns(1)
  With Worksheets("インシデント管理台帳")
    For Each r In .Range("B8", .Cells(Rows.Count, 2).End(xlUp))
      Select Case r.EntireRow.Range("E1").Value
        Case "7.クローズ"
          Select Case r.EntireRow.Range("AL1").Value
            Case "1.オープン"
              b = False
            Case "2.クローズ"  'クローズ分岐
              b = Search_DB3(r.EntireRow.Range("AK1").Value, t)
            Case ""
              b = True
          End Select
        Case Else
          Select Case r.EntireRow.Range("AL1").Value
            Case "1.オープン"  'オープン分岐1.
              b = Search_DB1(r.EntireRow.Range("AK1").Value, t)
            Case "2.クローズ"  'オープン分岐2.
              b = Search_DB2(r.EntireRow.Range("AK1").Value, t)
            Case ""
              b = True
          End Select
      End Select
      If b = False Then
         r.Interior.ColorIndex = 43
      End If
      Set f = Nothing
    Next
  End With
 End With
MsgBox "処理終了"
End Sub

Function Search_DB1(ByVal s As Variant, Target As Range) As Boolean
'オープン分岐1.
  Set f = Target.Find(s, , xlValues, xlWhole)
  If f Is Nothing Then
    Search_DB1 = False
    Exit Function
  End If
  If f.EntireRow.Range("D1").Value Like "13.クローズ(終了)" And _
      IsNumeric(f.EntireRow.Range("N1").Value) = False Then
    Search_DB1 = False
  Else
    Search_DB1 = True
  End If
End Function

Function Search_DB2(ByVal s As Variant, Target As Range) As Boolean
'オープン分岐2.
  Set f = Target.Find(s, , xlValues, xlWhole)
  If f Is Nothing Then
    Search_DB2 = False
    Exit Function
  End If
  If f.EntireRow.Range("D1").Value Like "13.クローズ(終了)" And _
      IsDate(f.EntireRow.Range("N1").Value) = True Then
    Search_DB2 = True
  Else
    Search_DB2 = False
  End If
End Function

Function Search_DB3(ByVal s As Variant, Target As Range) As Boolean
'クローズ分岐
  Set f = Target.Find(s, , xlValues, xlWhole)
  If f Is Nothing Then
    Search_DB3 = False
    Exit Function
  End If
  If f.EntireRow.Range("D1").Value Like "13.クローズ(終了)" And _
      IsDate(f.EntireRow.Range("N1").Value) = True Then
    Search_DB3 = True
  Else
    Search_DB3 = False
  End If
End Function

224 hits

【73244】条件に合うセルの色づけ tk 12/12/12(水) 11:25 質問
【73245】Re:条件に合うセルの色づけ UO3 12/12/12(水) 13:37 発言
【73246】Re:条件に合うセルの色づけ ウッシ 12/12/12(水) 14:17 回答
【73247】Re:条件に合うセルの色づけ tk 12/12/12(水) 16:54 発言
【73249】Re:条件に合うセルの色づけ UO3 12/12/12(水) 21:44 発言
【73254】Re:条件に合うセルの色づけ UO3 12/12/13(木) 10:16 発言
【73256】Re:条件に合うセルの色づけ ウッシ 12/12/13(木) 13:31 回答
【73259】Re:条件に合うセルの色づけ tk 12/12/14(金) 11:11 発言
【73283】Re:条件に合うセルの色づけ tk 12/12/17(月) 17:23 質問
【73296】Re:条件に合うセルの色づけ ウッシ 12/12/18(火) 11:26 回答
【73310】Re:条件に合うセルの色づけ tk 12/12/19(水) 16:19 お礼

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