[땡큐엑셀vba & 엑셀매크로] 잔량과 지수합계가 다른셀 색칠및 행삭제

잔량과 지수합계가 다른셀 색칠

 

빨간색인 행 삭제

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=1040103&docId=280216079
'
'각 행의 O와 Q셀에있는 데이터 비교하여 값 차이가날경우 Q셀에 색칠
'그후 색칠되어있는 값 찾아서 행전체삭제 하고싶은데 서치해도 코드 찾기가 어렵네요 ㅠㅠ.
'부탁드립니다



'
' source by 땡큐엑셀vba & 엑셀매크로
'
Sub 색칠()
    
    마지막행 = Cells(Rows.Count, "O").End(xlUp).Row
    
    '2행부터 데이터가 있는 마지막행까지 루프
    For i = 2 To 마지막행
        잔량 = Cells(i, "O")
        지수 = Cells(i, "Q")
        
        '잔량과 지수합계가 다르면 색칠(빨간색)
        If 잔량 <> 지수 Then
            Cells(i, "Q").Interior.Color = vbRed '빨강색
        End If
        
    Next i
    
    
    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub




'
' source by 땡큐엑셀vba & 엑셀매크로
'
' 행삭제
Sub 행삭제()

    마지막행 = Cells(Rows.Count, "O").End(xlUp).Row
    
    '마지막행부터 2행까지 루프
    For i = 마지막행 To 2 Step -1
        
        '바탕색이 빨강색이면 행삭제
        If Cells(i, "Q").Interior.Color = vbRed Then
            Cells(i, "Q").EntireRow.Delete
        End If
        
    Next i


    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub

데이터비교후색칠-색칠되어있는 행 삭제-Interior_EntireRow-땡큐엑셀vba.xlsm

0.05MB