| |
Intersectメソッドで共有セル範囲を得、Loop処理するとよいです。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim fc As Range
Dim rs As Range
Dim r As Range
Set fc = Range("D4:AG4").Find(What:="ステータス")
If fc Is Nothing Then Exit Sub
Set rs = Intersect(Target, Range(fc.Offset(1), Cells(Rows.Count, fc.Column)))
If Not rs Is Nothing Then
For Each r In rs
Select Case r.Value
Case "対応中"
'// 書式を出力する範囲 //
Case "返事待ち"
'// 書式を出力する範囲 //
Case "完了"
'// 書式を出力する範囲 //
'・
'・
'・
Case Else
'// 書式を元に戻す範囲 //
End Select
Next
End If
Set rs = Nothing
Set fc = Nothing
End Sub
|
|
n
- 08/7/2(水) 22:54 -
