Excel에서 셀이 변경된 횟수를 세는 방법은 무엇입니까?

Excel에서 지정된 셀이 변경된 횟수를 세기 위해 이 문서에 제공된 VBA 코드가 도움이 될 수 있습니다.

VBA 코드로 셀이 변경된 횟수 세기

VBA 코드로 셀이 변경된 횟수 세기

다음 VBA 코드는 Excel에서 지정된 셀이 변경된 횟수를 세는 데 도움을 줄 수 있습니다.

1. 하나 이상의 셀에 대해 총 변경 횟수를 계산해야 하는 워크시트에서 시트 탭을 마우스 오른쪽 버튼으로 클릭한 다음, 바로 가기 메뉴에서 보기 코드를 클릭합니다. 스크린샷 보기:

2. 열리는 Microsoft Visual Basic for Applications 창에서 필요에 따라 다음 VBA 코드 중 하나를 복사하여 코드 창에 붙여넣습니다.

VBA 코드 1: 하나의 셀에 대한 변경 사항 추적

Dim xCount As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If Target = Range("B9") Then
        xCount = xCount + 1
        Range("C9").Value = xCount                                     
    End If
    Application.EnableEvents = False
    Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
    If Not xRg Is Nothing Then
        xCount = xCount + 1
        Range("C9").Value = xCount
    End If
    Application.EnableEvents = True
End Sub

참고: 코드에서 B9는 변경 횟수를 세야 하는 셀이고, C9는 카운트 결과를 표시할 셀입니다. 필요에 따라 이를 변경하십시오.

VBA 코드 2: 열 내 여러 셀에 대한 변경 사항 추적

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220916
    Dim xSRg As Range
    Dim xRRg As Range
    
    Set xSRg = Range("B9:B1000")
    Set xCell = Intersect(xSRg, Target)
    If xCell Is Nothing Then Exit Sub
    
    
    Application.EnableEvents = False
    On Error Resume Next
    Set xCell = xCell.Range("A1")
    Set xRRg = xCell.Offset(0, 1)
    
    xRRg.Value = xRRg.Value + 1

    Application.EnableEvents = True
End Sub

참고: 이 줄 "Set xRRg = xCell.Offset(0, 1)"에서 숫자 1은 시작 참조의 오른쪽으로 오프셋할 열 수를 나타냅니다 (여기서 시작 참조는 열 B이며, 반환하려는 카운트는 열 C에 위치합니다). 결과를 열 S에 출력해야 하는 경우 숫자 1을 10으로 변경하십시오.

이제부터 B9 셀 또는 B9:B1000 범위 내의 어떤 셀이 변경될 때마다 변경 횟수의 총합이 누적되어 지정된 셀에 자동으로 입력됩니다.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!