공돌이공돌이

조건부 서식을 사용하면 색칠할 수 있다. 과연 조건부 서식의 셀 인덱스 값을 가져올 수 있을까? 확인해보자. 우선 확인을 위해 셀의 색값을 가져오는 방법을 알아보자. 셀 색을 칠할때와 마찬가지로 색의 값을 가져오는 방식은 2가지가 있다. 1. 셀 인덱스 가져오기 2. 셀 RGB값 가져오기 우선 인덱스 부터 가져와 보자. *셀의 색 인덱스 가져오기 --------------------------------------------------------------------------------------------------------- Sub 색칠하기_RGB컬러() Cells(2, 2).Interior.ColorIndex = "1" MsgBox (Cells(2, 2).Interior.ColorIndex) E..

엑셀에 조건부 서식을 사용하는 이유는 변경 사항을 색으로 잘보기 위함이다. 조건부 서식을 하나하나 다 해주기는 데이터가 많으면 시간도 소모되고 필요없는일이된다. VBA를 이용해 색칠하는 방법을 이용해 변경점을 쉽게 파악할 수 있도록 해보자. 색칠하는 방법은 두 가지이다. 1. COLOR INDEX(미리정의된) 이용하는 방법 2. RGB색의 숫자를 조절하는 방법 우선 COLOR INDEX를 활용하여 색칠하는 방법을 알아보자. *아래는 COLOR INDEX 참고 *빨간색으로 인덱스 이용 셀 칠하기 ----------------------------------------------------------------------------------------------------------------- Sub 색..

FOR문 돌릴때 전체 셀을 다돌기에는 시간이 아깝다. 데이터가 많으면 더욱더 컴퓨팅 시간을 줄여야 한다. 그러므로 마지막 셀위치를 알아내서 FOR문에 넣으면 좋겠다는 생각이 든다. 코드는 아래와 같다. ​ Sub 마지막셀찾기() last = Cells(Rows.Count, 1).End(xlUp).Row ': 1열의 값이 들어있는 마지막 셀을 찾는다. MsgBox (last) ':마지막 위치를 확인한다. For d = 1 To last Cells(d, 2).Value = "Copy" ':옆에 행에다가 copy를 기록한다. Next End Sub​ 코드 테스트를 해보자 테스트에 앞서 마지막셀을 찾기 위해 숫자를 아래와 같이 채운다. 그 다음 위의 코드를 실행한다. 마지막 값이 21임을 확인했다. 확인을 누르..