☰

Excel: 수락해야 하는 최근 변경 사항 필터링

tag-icon • tag-icon windows-7 microsoft-excel
Excel: 수락해야 하는 최근 변경 사항 필터링

변경 내용 추적 기능을 통해 검토용으로 표시된 셀이 있는 행만 표시하도록 시트를 필터링하고 싶습니다. 가능한지/어떻게 가능한지 아는 사람 있나요?

답변1

아래에 작성된 코드는 활성 시트의 모든 변경 사항과 새 항목을 강조 표시하고 시트 이름, 셀 주소 및 입력된 데이터를 전달하는 로그 시트를 생성합니다.

감사 시트와 같습니다.

새 항목을 강조 표시하는 작업은 다음과 같습니다 Mark Track Changes. 데이터를 로그 파일로 이동하는 작업은 다음과 같습니다.Filter those entries

추가 요구 사항에 맞게 이 코드를 수정할 수도 있습니다.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws As Worksheet, ws2 As Worksheet
Dim i As Boolean
Application.ScreenUpdating = False

i = False
For Each ws In ThisWorkbook.Worksheets
    If ws.Name = "Change Log" Then
        i = True
        Exit For
    End If
Next ws
If Not i Then
   Set ws2 = ThisWorkbook.Worksheets.Add

   ws2.Name = "Change Log"
   ws2.Range("A1") = "Sheet"
   ws2.Range("B1") = "Range"
   ws2.Range("C1") = "New Data"
Else
   Set ws2 = Sheets("Change Log")
End If


ws2.Range("A1").Offset(ws2.UsedRange.Rows.Count, 0) = Target.Worksheet.Name
ws2.Range("B1").Offset(ws2.UsedRange.Rows.Count - 1, 0) = Target.Address
ws2.Range("C1").Offset(ws2.UsedRange.Rows.Count - 1, 0) = Target.Cells.Value

Target.Font.Color = 255

Application.ScreenUpdating = True
End Sub

관련 정보