조건부 서식 : Mac 용 Excel에서 텍스트 관련성을 나타내는 3 색 눈금

Excel에서 다음과 같은 방식으로 조건부 서식을 사용하는 방법이 있습니까? (호기심이 많은 사람들을 위해 Mac 용 Excel 2010을 사용하고 있습니다)

A2가 "John은 녹색 사과를 좋아합니다"라고 말하고 B2는 "John은 녹색 사과를 좋아합니다"라고 말할 때 Cell B2를 녹색으로 만들고 싶습니다. A2는 "John은 녹색 사과를 좋아하고"는 B2는 "Bill hates red oranges"라고 말합니다.

그 효과에 대한 방법이 있는지 궁금합니다.

감사

확실한. 셀 B2를 선택하고 홈 탭> 스타일 그룹> 조건부 서식 > 새 규칙 > 수식을 사용하여 서식을 지정할 셀 결정으로 이동하십시오.

이 공식을 입력하십시오 :

=AND(A2="John likes green apples",B2="John likes green apples")

형식을 녹색으로 채우도록 설정하십시오.

추가 색상과 규칙마다 반복하십시오.

VBA가 필요합니다. 다음 함수는 동일한 위치에서 일치하는 0-1 (즉, 백분율)의 값을 반환합니다 . 내장 기능을 사용할 때와 동일하게 사용하십시오. 그런 다음 일반 조건부 서식을이 값에 적용 할 수 있습니다.

대소 문자를 구분해야하는지 여부에 대한 선택적 True / False (기본값은 false)입니다.

"밥 먹은 저녁 식사"vs "밥 먹은 저녁 식사" 구두점을 무시하지 않으므로 0.66이됩니다.

"Bob Bob Bob Bob"대 "Bob Bob"= 2/4 = 0.5-- 문자열에 다른 수의 단어가 포함 된 경우 두 개 중 큰 숫자가 분모이지만 분자는 두 개 중 작은 것에서 최대가됩니다.

Function ScorePair(stringInput As String, stringTarget As String, Optional caseSensitive As Boolean = False) As Double

Dim scoreNum As Integer
Dim scoreDen As Integer
Dim splitInput As Variant
Dim splitTarget As Variant
Dim theScore As Double
Dim sizeTarget As Integer
Dim sizeInput As Integer
Dim loopSize As Integer

'Initialize
scoreNum = 0
i = 0

'Extract strings into arrays of words
splitInput = Split(stringInput, " ")
splitTarget = Split(stringTarget, " ")

'Get sizes of arrays to know how much to loop (smaller of two) and what to set denominator at (bigger of two)
sizeInput = UBound(splitInput, 1)
sizeTarget = UBound(splitTarget, 1)
scoreDen = WorksheetFunction.Max(sizeTarget, sizeInput) + 1
loopSize = WorksheetFunction.Min(sizeTarget, sizeInput)

'Loop through arrays comparing them by matching position
For i = i To loopSize
    If caseSensitive Then
        If splitInput(i) = splitTarget(i) Then
            scoreNum = scoreNum + 1
        End If
    ElseIf LCase(splitInput(i)) = LCase(splitTarget(i)) Then
        scoreNum = scoreNum + 1
    End If
Next

'Calculate the score as percentage
theScore = scoreNum / scoreDen
ScorePair = theScore

End Function

귀하의 질문도 명확하지 않습니다. 실제 이름이 중요합니까 (John, Bill)? 과일이 중요할까요? 또는 약 3 가지 조건입니다

1. 이름 일치와 과일 일치에 대한 느낌
2. 이름은 일치하지 않지만 과일에 대한 느낌
3. 이름이 일치하지 않고 과일에 대한 감정이 일치하지 않습니다

나는 중요한 것은 사람의 이름과 그들이 무언가에 대해 같은 느낌을 가지고 있다고 가정했습니다. 따라서 그 사람의 이름은 무엇이든 될 수 있으며 Bill과 Claire가 과일을 싫어한다면 나는 또한 오렌지라고 가정했습니다. 코드가 작성되었으므로 쉽게 수정할 수 있습니다!

Sub Button1_Click()

Dim row As Integer
row = 1
Do While (True)

If Range("A" & row).Value = "" Then
    Exit Do
End If

Dim score As Integer
score = 0

Dim wordsA() As String
wordsA = Split(Range("A" & row).Value, " ")

Dim wordsB() As String
wordsB = Split(Range("B" & row).Value, " ")

If wordsA(0) = wordsB(0) Then
    score = score + 1
End If

If wordsA(1) = wordsB(1) Then
    score = score + 1
Else
    score = score + 3
End If


'2 = both same name, both feel same way
'1 = different name, both feel same way
'3 = differet feelings

Select Case score
   Case 1
   Case 4
Range("B" & row).Interior.ColorIndex = 46

   Case 2
   Range("B" & row).Interior.ColorIndex = 43

   Case 3
Range("B" & row).Interior.ColorIndex = 30


End Select

row = row + 1

Loop

End Sub