>

두 시트의 N 열에서 데이터를 일치시키는 이벤트를 만들려고하는데 데이터가 일치하면 행의 백그라운드 채우기 프로세스를 수행합니다.

코드는 다음과 같습니다. 이것을 사용하는 동안 오류가 발생하여 루프에 넣을 수 없습니다.

아래는 코드입니다.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set wkbDest = ThisWorkbook
Set wksDest_All = wkbDest.Worksheets("All Leads")
Set wksDest_New = wkbDest.Worksheets("New Leads")
    If Not Intersect(Target, Columns.Range("A:AS")) Is Nothing Then
        If Application.WorksheetFunction.CountA(Target) = 0 Then
             ' Not Empty
            For Each rw In Target.Row
                    If VBA.Trim(wksDest_All.Range("N" & rw).Value) = VBA.Trim(wksDest_New.Range("N" & rw).Value) Then
                    Target.Parent.Range("A" & rw.Row & ":AS" & rw.Row).Interior.ColorIndex = 15
                    Target.Parent.Range("A" & rw.Row & ":AS" & rw.Row).Borders.LineStyle = xlContinuous
                End If
            Next rw
          'Empty
            For Each rw In Target.Rows
                If VBA.Trim(wksDest_All.Range("N" & rw).Value) <> VBA.Trim(wksDest_New.Range("N" & rw).Value) Then
                    Target.Parent.Range("A" & rw.Row & ":AS" & rw.Row).Interior.ColorIndex = 0
                    Target.Parent.Range("A" & rw.Row & ":AS" & rw.Row).Borders.LineStyle = xlContinuous
                End If
            Next rw
          End If
    End If
End Sub

  • 답변 # 1

    오류 자체에 대한 정보를 제공하면 도움이 될 것입니다.

    실수는 코드의 8 번째 줄에 있다고 생각합니다 :

    For Each rw In Target.Row
    
    

    이것은

    For Each rw In Target.Rows
    
    

관련 자료

  • 이전 reverse proxy - 누락 된 모든 프론트 엔드 규칙을 사용자 정의 오류 페이지에 바인딩
  • 다음 reactjs - 반응 구성 요소 소품이 늦게 수신되고 있습니다 (유성 JS)