EXCEL에서 특정 column에서 동일한 값을 갖는 셀(cell)을 같은 색으로 설정하는 VBA

무식하게 EXCEL로 로그 분석을 하다 보니, 제일 눈에 들어오게 만드는 방법이 셀(cell)의 색상을 바꾸는 것이라고 생각했는데,

VBA를 잘 모르니 문법을 겁나 구글링을 해서 간단하게 만들어 봤다.

요즘은 MS에서 지원을 접은건지 (아니면 내가 잘 못 찾아서 그런건지) 뭔지 잘 모르겠지만, MSDN에서만 찾아서는

VB 문법들이 주로 나오고, 그 문법들은 VBA와는 다른지 제대로 동작하지 않는 것들이 많았다.

이런건 StackOverflow에도 글들이 많지 않고, 그냥 구글링이 최고더라!!!ㅎㅎ

Public Function GetColor(dic As Collection, key As String) As Long On Error GoTo NewItem Dim color As Long color = dic.Item(key) GetColor = color Exit Function NewItem: color = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) dic.Add color, key GetColor = color Exit Function End Function Sub UpdateClassColor() Dim key As String Dim color As Long Dim dic As Collection Set dic = New Collection key = "" color = RGB(0, 0, 0) Range("B2").Select Do Until IsEmpty(ActiveCell) If key <> ActiveCell.Value Then key = ActiveCell.Value color = GetColor(dic, key) End If If key = ActiveCell.Value Then ActiveCell.Interior.color = color End If ActiveCell.Offset(1, 0).Select Loop End Sub

색상은 key value 별로 랜덤하게 설정하도록 되어 있고(Function GetColor), UpdateClassColor()에서

컬럼(Column)을 선택하는 "B2" 부분을 적절하게 변경해서 사용하면 될 듯.

(입력으로 받도록 만들 수도 있겠으나... 허접-0-)