워크 시트 속성 (Microsoft Excel)
Laurie는 Excel 통합 문서의 속성을 보는 방법을 알고 있습니다. 그러나 그녀가하고 싶은 것은 개별 워크 시트와 관련된 유사한 속성을 보는 것입니다. 예를 들어, 그녀는 개별 워크 시트에 대해 만든 날짜, 수정 한 날짜, 만든 사람 또는 “마지막 수정 자”와 같은 속성을 볼 수있는 방법이 있는지 궁금합니다.
불행히도 Excel은 워크 시트에 대한 이러한 정보를 추적하지 않습니다. 우리가 알아낼 수있는 유일한 해결 방법은 통합 문서의 워크 시트에 대한 정보 기록을 직접 개발하는 것입니다. Workbook_SheetChange 이벤트 처리기를 개발하는 확실한 방법입니다. 다음은 Visual Basic Editor에서 ThisWorkbook 개체에 추가 할 수있는 예제입니다.
Private Sub Workbook_SheetChange(ByVal ws As Object, ByVal Target As Range) Dim s As Worksheet Dim J As Integer Dim FoundIt As Boolean On Error Resume Next Set s = Worksheets("Stats") On Error GoTo 0 Application.EnableEvents = False If s Is Nothing Then ' Stats worksheet did not exist Set s = Worksheets.Add(After:=Worksheets(Worksheets.Count)) s.Name = "Stats" s.Range("A1") = "Worksheet" s.Range("B1") = "Creator" s.Range("C1") = "Last Modified" s.Range("D1") = "Modifed By" With s.Range("A1:D1") .Font.Bold = True .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeBottom).Weight = xlThin End With s.Range("A2") = s.Name s.Range("B2") = s.CustomProperties.Creator s.Range("C2") = Format(Now, " mm/dd/yyyy hh:mm am/pm") s.Range("D2") = Application.UserName End If J = 2 FoundIt = False While (s.Cells(J, 1) <> "") If s.Cells(J, 1) = ws.Name Then FoundIt = True s.Cells(J, 3) = Format(Now, " mm/dd/yyyy hh:mm am/pm") s.Cells(J, 4) = Application.UserName End If J = J + 1 Wend If Not FoundIt Then ' Worksheet name not found s.Cells(J, 1) = ws.Name s.Cells(J, 2) = ws.CustomProperties.Creator s.Cells(J, 3) = Format(Now, " mm/dd/yyyy hh:mm am/pm") s.Cells(J, 4) = Application.UserName End If ws.Activate Application.EnableEvents = True End Sub
통합 문서를 변경할 때마다 이벤트 처리기가 트리거됩니다. 먼저 Stats라는 워크 시트가 있는지 확인합니다. 그렇지 않은 경우 워크 시트가 생성되고 일부 기본 정보가 여기에 추가됩니다. 핸들러는 통계 워크 시트에서 데이터에 변경이 발생한 워크 시트의 행이 포함되어 있는지 확인합니다. 그렇지 않은 경우 행이 추가되지만 추가 된 경우 행의 정보가 업데이트됩니다.
핸들러는 워크 시트 이름, 작성자, 마지막 변경 날짜 및 변경 한 사용자 이름의 네 가지 정보 만 추적합니다. (Creator 속성은 워크 시트를 만든 프로그램과 관련된 숫자 값을 나타냅니다. 사람에게는별로 도움이되지 않으며 정보를 저장하는 방법에 대한 예시로 포함했습니다.)
이것은 해결 방법 일 뿐이며 워크 시트에 대해 추적 할 정보 유형을 신중하게 고려해야합니다. 그런 다음 해당 욕구를 반영하도록 코드를 수정할 수 있습니다.
_ 참고 : _
이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.
link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요]
.
_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.
이 팁 (7542)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다.