OfficeTutor 365

위의 프로시져는 56개의 색상버튼에 색상을 입히는 것입니다. ctl은 컨트롤을 대신하는 개체변수입니다. 

frmCompareSheets.Controls는 폼의 각종 컨트롤을 대신할 수 있는데, cboSheet1, cboSheet2같은 ComboBox, Label, CommandButton등을 대신할 수 있습니다. 

그런데 색상을 입혀야 할 것은 모든 컨트롤이 아니라 아래 그림과 같이 흰색상자로 표시한 버튼들입니다. 

이 버튼은 모두 Tag프로퍼티에 "ColorButton"이라는 값을 가지고 있어 다른 컨트롤과 코드상으로 구분이 됩니다( If ctl.Tag = "ColorButton" Then ) 

그리고 컬러버튼으로 분류된 컨트롤은 Buttons컬렉션 개체의 ColorButton이라는 개체로 저장됩니다. ( Set Buttons(ButtonCount).ColorButton = ctl )

또한 버튼의 배경색상을 아래와 같이 지정합니다. 아래의 코드는 ColorButton버튼의 BackColor프로퍼티를 현재통합문서의 색상버튼색을 지정합니다.
Buttons(ButtonCount).ColorButton.BackColor = _
ActiveWorkbook.Colors(ButtonCount)

Public Sub Initialize()
     Dim cltSht() As String
     Dim sht As Worksheet
     Dim i As Byte

     If ActiveWorkbook.Sheets.Count <= 1 Then
         MsgBox "비교할 대상의 시트가 2개이상이어야 합니다", vbInformation
           Unload frmCompareSheets
     End If 
     ReDim cltSht(ActiveWorkbook.Sheets.Count - 1)
     For Each sht In ActiveWorkbook.Sheets
          cltSht(i) = sht.Name
          i = i + 1
     Next 
     frmCompareSheets.cboSheet1.Clear
    frmCompareSheets.cboSheet2.Clear
    For i = LBound(cltSht) To UBound(cltSht)
          frmCompareSheets.cboSheet1.AddItem cltSht(i)
        frmCompareSheets.cboSheet2.AddItem cltSht(i)
    Next
End Sub

위의 프로시져는 작업대상인 현재통합문서의 워크시트목록을 콤보상자 cboSheet1,cboSheet2에 저장하는 프로시져입니다. 이때 몇 가지 주의할 점은 현재통합문서에 시트의 갯수가 최소 2개이상인지를 체크하고(If ActiveWorkbook.Sheets.Count <= 1 Then), frmCompareSheets.cboSheet1.Clear와 같이 콤보상자에 기존의 내용이 없도록 지우는 일을 해야 한다. 그리고 AddItem메소드를 사용하여 cboSheet1,cboSheet2의 목록을 시트이름으로 채웁니다.

Public Sub CompareSheetsMain(sht1 As String, sht2 As String)
     Dim sh1 As Worksheet
     Dim sh2 As Worksheet

     Dim Row As Integer
     Dim Col As Integer

     Dim Cmp1
    Dim Cmp2

     Dim r As Integer
     Dim c As Integer

     Set sh1 = ActiveWorkbook.Sheets(sht1)
     Set sh2 = ActiveWorkbook.Sheets(sht2)

     Row = sh1.Range("A1").End(xlDown).Row
    Col = sh1.Range("A1").End(xlToRight).Column

     For r = 1 To Row
          For c = 1 To Col
               Cmp1 = sh1.Cells(r, c)
               Cmp2 = sh2.Cells(r, c)
               If Cmp1 <> Cmp2 Then
                    sh1.Cells(r, c).Interior.Color = ColorValue
                    If GetQueueStatus(QS_INPUT) <> 0 Then DoEvents
               End If
          Next 
     Next

     Set sh1 = Nothing
     Set sh2 = Nothing
End Sub

두 개의 워크시트를 비교하는 부분입니다. 비교대상을 저장하도 있는 Cmp1과 Cmp2는 별다른 형을 지정하지 않고 Variant형이 되도록 했습니다. 비교하는 것이 정수일 수도 있고, 문자열일 수도 있으며, 혹은 날짜형일 수도 있기 때문입니다. 
비교하려는 범위는 시트전체가 아닙니다. 사용자가 데이터를 기록해던 부분까지만 비교하는 것이 효율적입니다. 그래서 행과 열의 끝부분을 다음과 같이 찾습니다.
Row = sh1.Range("A1").End(xlDown).Row
Col = sh1.Range("A1").End(xlToRight).Column

이제 값이 서로 일치하는 경우 선택한 색상을 칠해줍니다.
sh1.Cells(r, c).Interior.Color = ColorValue