Attribute VB_Name = "modCellColorMark"
Option Explicit

Sub ¼¿»öÇ¥½Ã(control As IRibbonControl)

    Dim cfChoice As VbMsgBoxResult
    Dim rngApply As Range
    Dim rngBaseCell As Range
    Dim baseCol As Long
    Dim baseAddr As String

    Dim mode As String
    Dim condText As String
    Dim formula1 As String

    Dim pickedColor As Long
    Dim resp As VbMsgBoxResult
    Dim topLeft As Range

    On Error GoTo CleanFail

    ' [¿äû»çÇ×] ¸ÅÅ©·Î ½ÇÇà ½Ã Á¶°ÇºÎ¼­½Ä ó¸® ¹æ½Ä ¼±ÅÃ
    cfChoice = UI_ChoiceToMsg(UI_Choose("Á¶°ÇºÎ ¼­½Ä ó¸®", "Á¶°ÇºÎ ¼­½Ä ó¸® ¹æ½ÄÀ» ¼±ÅÃÇϼ¼¿ä.", Array("ÇØ´ç ¹üÀ§ÀÇ Á¶°ÇºÎ¼­½Ä ¸ðµÎ »èÁ¦ ÈÄ »õ·Î ½ÃÀÛ", "Á¶°ÇºÎ¼­½Ä Ãß°¡ (»õ ±ÔÄ¢À» 1¼øÀ§·Î Àû¿ë)")))
    If cfChoice = vbCancel Then Exit Sub

    ' 1) ¹üÀ§ ¼±Åà (Ctrl+A = CurrentRegion)
    resp = UI_ChoiceToMsg(UI_Choose("1. ¹üÀ§ ¼±ÅÃ", "Àû¿ë ¹üÀ§¸¦ ¾î¶»°Ô Á¤ÇÒ±î¿ä?", Array("ÇöÀç ¼¿ÀÇ ¿¬°áµÈ ¹üÀ§(CurrentRegion) ÀÚµ¿ ¼±ÅÃ", "Á÷Á¢ ¹üÀ§ ¼±ÅÃ")))
    If resp = vbCancel Then Exit Sub

    If resp = vbYes Then
        Set rngApply = ActiveCell.CurrentRegion
    Else
        Set rngApply = Application.InputBox( _
            prompt:="»öÀ» Àû¿ëÇÒ ¹üÀ§¸¦ µå·¡±×·Î ¼±ÅÃÇϼ¼¿ä.", _
            title:="1. ¹üÀ§ ¼±ÅÃ", Type:=8)
    End If
    If rngApply Is Nothing Then Exit Sub

    ' ¼±ÅùüÀ§ÀÇ "°¡Àå ÀÛÀº(Á»ó´Ü) ¼¿"
    Set topLeft = GetTopLeftCell(rngApply)

    ' 2) ±âÁØ¿­ ¼±Åà (¼¿ 1°³)
    Set rngBaseCell = Application.InputBox( _
        prompt:="±âÁØ¿­¿¡¼­ ¼¿ 1°³¸¦ ¼±ÅÃÇϼ¼¿ä." & vbCrLf & _
                "¡Ø ÀÌ ¿­ÀÇ °°Àº 'Çà' °ªÀ¸·Î Á¶°ÇÀ» ÆÇ´ÜÇÕ´Ï´Ù.", _
        title:="2. ±âÁØ¿­ ¼±ÅÃ", Type:=8)
    If rngBaseCell Is Nothing Then Exit Sub

    If rngBaseCell.Worksheet.name <> rngApply.Worksheet.name Then
        MsgBox "±âÁØ¿­Àº Àû¿ë ¹üÀ§¿Í °°Àº ½ÃÆ®¿¡¼­ ¼±ÅÃÇØ¾ß ÇÕ´Ï´Ù.", vbExclamation
        Exit Sub
    End If

    baseCol = rngBaseCell.Column

    ' Á¶°ÇºÎ¼­½Ä ¼ö½Ä¿¡¼­: ¿­Àº °íÁ¤, ÇàÀº Àû¿ë¹üÀ§ ù Çà ±âÁØ »ó´ë
    baseAddr = rngApply.Worksheet.cells(rngApply.row, baseCol).Address(RowAbsolute:=False, ColumnAbsolute:=True)

    ' 3) ¹æ¹ý ¼±ÅÃ
    mode = CStr(UI_Choose("3. ¹æ¹ý ¼±ÅÃ", "¼¿»öÀ» Ç¥½ÃÇÒ Á¶°ÇÀ» °í¸£¼¼¿ä.", Array("ISODD(±âÁؼ¿) °¡ TRUEÀÏ ¶§", "ISODD(±âÁؼ¿) °¡ FALSEÀÏ ¶§", "»ç¿ëÀÚ Á¶°Ç (<10, >10, >10%, ¶Ç´Â =¼ö½Ä)", "ÅؽºÆ® Á¶°Ç (°°À½ / Æ÷ÇÔ)")))
    mode = Trim$(mode)
    If mode = "0" Then Exit Sub

    Select Case mode
        Case "1"
            formula1 = "=ISODD(" & baseAddr & ")"

        Case "2"
            formula1 = "=NOT(ISODD(" & baseAddr & "))"

        Case "3"
            condText = UI_Input("3-3. Á¶°Ç ÀÔ·Â", _
                "Á¶°ÇÀ» ÀÔ·ÂÇϼ¼¿ä." & vbCrLf & _
                "¿¹) <10   >10   >10%   =AND(" & baseAddr & ">0," & baseAddr & "<100)", "<10")
            If condText = vbNullString Then Exit Sub

            If Left$(condText, 1) = "=" Then
                formula1 = condText
            Else
                If Left$(condText, 1) = "<" Or Left$(condText, 1) = ">" Or Left$(condText, 1) = "=" Then
                    formula1 = "=" & baseAddr & condText
                Else
                    MsgBox "Á¶°Ç Çü½ÄÀ» ÀνÄÇÒ ¼ö ¾ø½À´Ï´Ù. ¿¹: <10, >10%, ¶Ç´Â =¼ö½Ä ÇüÅ·ΠÀÔ·ÂÇϼ¼¿ä.", vbExclamation
                    Exit Sub
                End If
            End If

        Case "4"
            formula1 = BuildTextConditionFormula(rngApply, baseAddr)
            If formula1 = vbNullString Then Exit Sub

        Case Else
            MsgBox "¹æ¹ýÀº 1, 2, 3, 4 Áß Çϳª·Î ÀÔ·ÂÇϼ¼¿ä.", vbExclamation
            Exit Sub
    End Select

    ' 4) »ö»óÇ¥¿¡¼­ ¼±Åà (XFD·Î È­¸é Á¡ÇÁ ¹æÁö + ³¡³ª¸é topLeft·Î À̵¿)
    Select Case UI_Choose("4. »ö ¼±ÅÃ", "Á¶°Ç¿¡ ¸Â´Â Çà¿¡ Ä¥ÇÒ »öÀ» °í¸£¼¼¿ä.", Array("¿¬ÇÑ ³ë¶û", "¿¬ÇÑ ÃÊ·Ï", "¿¬ÇÑ ÆĶû", "¿¬ÇÑ »¡°­", "¼¿ ¼­½Ä ´ëÈ­»óÀÚ¿¡¼­ Á÷Á¢ ¼±ÅÃ"))
        Case 1: pickedColor = RGB(255, 242, 204)
        Case 2: pickedColor = RGB(226, 239, 218)
        Case 3: pickedColor = RGB(221, 235, 247)
        Case 4: pickedColor = RGB(252, 228, 214)
        Case 5
            pickedColor = PickColorFromFormatCellsDialog_NoJump(topLeft)
            If pickedColor = -1 Then Exit Sub
        Case Else: Exit Sub
    End Select

    Application.ScreenUpdating = False

    ' [¿äû»çÇ×] Yes¸é ÇØ´ç¹üÀ§ Á¶°ÇºÎ¼­½Ä ÀüºÎ »èÁ¦
    If cfChoice = vbYes Then
        rngApply.FormatConditions.Delete
    End If

    ' 5) Àû¿ë(Ãß°¡) + No¸é 1¼øÀ§·Î ¿Ã¸®±â
    With rngApply.FormatConditions.Add(Type:=xlExpression, formula1:=formula1)
        .Interior.color = pickedColor
        .StopIfTrue = False

        If cfChoice = vbNo Then
            ' ±âÁ¸ ±ÔÄ¢ À¯Áö + »õ ±ÔÄ¢À» ÃÖ¿ì¼±(1¼øÀ§)·Î
            .SetFirstPriority
        End If
    End With

    ' È­¸é º¹±Í
    topLeft.Select
    ActiveWindow.ScrollRow = topLeft.row
    ActiveWindow.ScrollColumn = topLeft.Column

CleanExit:
    Application.ScreenUpdating = True
    Exit Sub

CleanFail:
    Application.ScreenUpdating = True
    MsgBox "Ãë¼ÒµÇ¾ú°Å³ª ÀÔ·Â/¼±ÅÃÀÌ ¿Ã¹Ù¸£Áö ¾Ê½À´Ï´Ù.", vbExclamation

End Sub


' === 4¹ø(ÅؽºÆ® Á¶°Ç) ¼ö½Ä ¸¸µé±â ===
Private Function BuildTextConditionFormula(ByVal rngApply As Range, ByVal baseAddr As String) As String
    Dim subMode As String
    Dim critCell As Range
    Dim critAddrAbs As String
    Dim txt As String

    subMode = CStr(UI_Choose("4. ÅؽºÆ® Á¶°Ç", "ÅؽºÆ® Á¶°ÇÀ» °í¸£¼¼¿ä.", Array("±âÁØ¿­ °ªÀÌ '¼±ÅÃÇÑ ¼¿ °ª'°ú °°À½", "±âÁØ¿­ °ª¿¡ 'ÀÔ·Â ÅؽºÆ®'°¡ Æ÷ÇÔµÊ")))
    If subMode = "0" Then
        BuildTextConditionFormula = vbNullString
        Exit Function
    End If

    Select Case subMode
        Case "1"
            Set critCell = Application.InputBox( _
                prompt:="ºñ±³ ±âÁØÀÌ µÉ ¼¿ 1°³¸¦ ¼±ÅÃÇϼ¼¿ä(±× ¼¿ÀÇ °ª°ú °°À¸¸é Àû¿ë).", _
                title:="4-1. °°Àº °ª(±âÁØ ¼¿ ¼±ÅÃ)", Type:=8)
            If critCell Is Nothing Then
                BuildTextConditionFormula = vbNullString
                Exit Function
            End If

            If critCell.Worksheet.name <> rngApply.Worksheet.name Then
                MsgBox "ºñ±³ ±âÁØ ¼¿Àº Àû¿ë ¹üÀ§¿Í °°Àº ½ÃÆ®¿¡¼­ ¼±ÅÃÇØ¾ß ÇÕ´Ï´Ù.", vbExclamation
                BuildTextConditionFormula = vbNullString
                Exit Function
            End If

            critAddrAbs = critCell.Address(RowAbsolute:=True, ColumnAbsolute:=True)
            BuildTextConditionFormula = "=(" & baseAddr & "=" & critAddrAbs & ")"

        Case "2"
            txt = UI_Input("4-2. ÅؽºÆ® Æ÷ÇÔ", _
                "Æ÷ÇÔ ¿©ºÎ¸¦ °Ë»çÇÒ ÅؽºÆ®¸¦ ÀÔ·ÂÇϼ¼¿ä." & vbCrLf & _
                "¿¹) ¼­¿ï", "")
            If Len(txt) = 0 Then
                BuildTextConditionFormula = vbNullString
                Exit Function
            End If

            ' ´ë/¼Ò¹®ÀÚ ±¸ºÐ ¾øÀ½(SEARCH). ¿À·ù´Â FALSE ó¸®.
            BuildTextConditionFormula = "=IFERROR(ISNUMBER(SEARCH(""" & EscapeCFString(txt) & """," & baseAddr & ")),FALSE)"

        Case Else
            MsgBox "4¹ø ÅؽºÆ® Á¶°ÇÀº 1 ¶Ç´Â 2·Î ÀÔ·ÂÇϼ¼¿ä.", vbExclamation
            BuildTextConditionFormula = vbNullString
    End Select
End Function


Private Function EscapeCFString(ByVal s As String) As String
    EscapeCFString = Replace(s, """", """""")
End Function


' ¼±ÅÃÇÑ ¹üÀ§(¿©·¯ Area Æ÷ÇÔ)¿¡¼­ "°¡Àå ÀÛÀº(Á»ó´Ü) ¼¿" ¹Ýȯ
Private Function GetTopLeftCell(ByVal rng As Range) As Range
    Dim a As Range
    Dim candidate As Range

    Set candidate = rng.Areas(1).cells(1, 1)

    For Each a In rng.Areas
        If a.cells(1, 1).row < candidate.row Then
            Set candidate = a.cells(1, 1)
        ElseIf a.cells(1, 1).row = candidate.row Then
            If a.cells(1, 1).Column < candidate.Column Then
                Set candidate = a.cells(1, 1)
            End If
        End If
    Next a

    Set GetTopLeftCell = candidate
End Function


' "¼¿ ¼­½Ä > ÆÐÅÏ" ´ëÈ­»óÀÚ·Î »öÀ» °í¸£°Ô ÇÏ°í,
' (1) XFD ¼±ÅÃÀ¸·Î È­¸é Á¡ÇÁ ¹æÁö
' (2) ³¡³ª¸é returnTo ¼¿·Î À̵¿
Private Function PickColorFromFormatCellsDialog_NoJump(ByVal returnTo As Range) As Long

    Dim ws As Worksheet
    Dim tmp As Range
    Dim oldValue As Variant
    Dim oldColor As Variant
    Dim oldPattern As Variant
    Dim savedScrollRow As Long, savedScrollCol As Long
    Dim ok As Boolean

    On Error GoTo Fail

    Set ws = returnTo.Worksheet
    Set tmp = ws.cells(ws.rows.Count, ws.Columns.Count) ' XFD1048576

    savedScrollRow = ActiveWindow.ScrollRow
    savedScrollCol = ActiveWindow.ScrollColumn

    oldValue = tmp.value
    oldColor = tmp.Interior.color
    oldPattern = tmp.Interior.pattern
    Dim oldColorIndex As Variant: oldColorIndex = tmp.Interior.ColorIndex

    tmp.value = ""
    tmp.Interior.pattern = xlSolid
    tmp.Interior.ColorIndex = xlColorIndexNone

    Application.ScreenUpdating = False
    tmp.Select
    ActiveWindow.ScrollRow = savedScrollRow
    ActiveWindow.ScrollColumn = savedScrollCol
    Application.ScreenUpdating = True

    ok = Application.Dialogs(xlDialogPatterns).Show
    If Not ok Then
        PickColorFromFormatCellsDialog_NoJump = -1
        GoTo RestoreAndMove
    End If

    PickColorFromFormatCellsDialog_NoJump = tmp.Interior.color

RestoreAndMove:
    Application.ScreenUpdating = False

    tmp.value = oldValue
    If oldColorIndex = xlColorIndexNone Then
        tmp.Interior.ColorIndex = xlColorIndexNone   ' ¿ø·¡ ä¿ì±â ¾øÀ½ÀÌ¸é ±×´ë·Î ¾øÀ½À¸·Î
    Else
        tmp.Interior.pattern = oldPattern
        tmp.Interior.color = oldColor
    End If

    returnTo.Select
    ActiveWindow.ScrollRow = returnTo.row
    ActiveWindow.ScrollColumn = returnTo.Column

    Application.ScreenUpdating = True
    Exit Function

Fail:
    PickColorFromFormatCellsDialog_NoJump = -1
End Function