Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9017 / 76732

←次へ　｜　前へ→


	【73283】Re:条件に合うセルの色づけ

tk - 12/12/17(月) 17:23 -


	引用なし

	パスワード

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

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

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