|
自分で試行錯誤してみたところ、
下記コードにて思うような処理が行えましたが
もっとスッキリとしたコードにならないものかと思っています。
Flg = True
For Each Sh In Worksheets
Sh.Select (Flg)
Flg = False
Columns("E").Select
Selection.Find(What:="イベントA", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
If ActiveCell.Value <> "イベントA" Then
GoTo Exitsub
ElseIf ActiveCell.Value = "イベントA" Then
J = ActiveCell.Address
Range(J).Offset(1, 0).Select
Row = ActiveCell.Row
Do Until Range("E" & Row).Value <> ""
Range("D" & Row & ":AS" & Row).Interior.Color = RGB(192, 192, 192)
Range("D" & Row).Value = ""
Row = Row + 1
Loop
lngRow = Range("F65536").End(xlUp).Row
If lngRow = 1 Then
If Range("F11").Value = "" Then
Exit Sub
Else
lngRow = 65536
End If
End If
Application.ScreenUpdating = False
For i = lngRow To 2 Step -1
If Range("E" & i).Value = "イベントA" Then
Range("F" & i).Value = "○○"
Range("G" & i).Value = "○○○"
End If
Next i
End If
Next Sh
Application.ScreenUpdating = True
Exitsub:
End Sub
初心者な為、必要のない処理などを加えてるかもしれません。
必要のない箇所がございましたらご教授をお願いします。
|
|