[땡큐엑셀vba & 엑셀매크로] 조건에 따른 바탕색 칠하기

설정

 

실행전

 

실행후

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=280850592
'
'사진과 같이 기준값 O,X 입력에 따른 자동 색상이 변화되고
'기준값 대비 답안1,2가 맞을 때, 하나라도 틀릴 때, 다 틀렸을 경우를 텍스트 O,X로 설정해서
'색상이 자동으로 변하도록 함수를 만들고 싶습니다.
'가르침 부탁 드립니다 ^^
'가능한 간단한 영상으로 보여주시면 더욱 도움이 될 것 같습니다.
'감사합니다.


'사전에 이미지와 같이 설정시트를 만들고 실행하세요.
'
'
' source by 땡큐엑셀vba & 엑셀매크로
'
Sub 바탕색칠하기()

    Set 검색범위 = Sheets("설정").Range("D:D")

    마지막행 = Cells(Rows.Count, "A").End(xlUp).Row
    
    '2행부터 마지막행까지 루프
    For i = 2 To 마지막행
        찾을값 = Cells(i, "A") & Cells(i, "B") & Cells(i, "C")
        
        
         '1.검색범위에서 동일한값 찾기
         Set Rng = 검색범위.Find(What:=찾을값, LookAt:=xlWhole, LookIn:=xlValues)
    
         If Not Rng Is Nothing Then '검색결과가 있다면
            
            '찾은셀에 바탕색칠하기
            Cells(i, "A").Interior.Color = Rng.Offset(0, -3).Interior.Color
            Cells(i, "B").Interior.Color = Rng.Offset(0, -2).Interior.Color
            Cells(i, "C").Interior.Color = Rng.Offset(0, -1).Interior.Color
         End If
         
    
    Next i

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

End Sub

 

조건에따른 바탕색칠하기-Find_Offset_Interior-땡큐엑셀vba.xlsm

0.18MB