Formatowanie warunkowe: 3-kolorowa skala pokazująca trafność tekstu w programie Excel dla komputerów Mac

Czy istnieje sposób użycia formatowania warunkowego w następujący sposób w programie Excel? (Dla tych, którzy są ciekawi, używam Excel 2010 dla komputerów Mac)

Chcę, aby komórka B2 była zielona, ​​gdy A2 mówi „John lubi zielone jabłka”, a B2 także „John lubi zielone jabłka”, żółty, jeśli A2 mówi „John lubi zielone jabłka”, a B2 - „Bill lubi niebieskie jabłka”, a czerwony, jeśli A2 mówi „John lubi zielone jabłka”, a B2 mówi „Bill nienawidzi czerwonych pomarańczy”.

Zastanawiam się tylko, czy istnieje jakiś sposób na osiągnięcie tego efektu.

Dzięki

Pewnie. Wybierz komórkę B2 i przejdź do karty Strona główna > grupa Style > Formatowanie warunkowe > Nowa reguła > Użyj formuły, aby określić, które komórki sformatować

Wprowadź tę formułę:

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

Ustaw format, aby wypełnił się na zielono.

Powtórz dla każdego dodatkowego koloru i reguły.

To zdecydowanie wymagałoby VBA. Poniższa funkcja zwróci wartość z 0-1 (tj. Procent) wartości pasujących do tej samej pozycji . Użyj tego samego, jak w przypadku wbudowanej funkcji. Następnie możesz zastosować normalne formatowanie warunkowe do tej wartości.

Ma opcjonalną wartość Prawda / Fałsz (domyślnie fałsz) określającą, czy wielkość liter ma być uwzględniana.

„Bob zjadł kolację” vs „Bob zjadł kolację”. wyniósłby 0,66, ponieważ nie ignoruje interpunkcji.

„Bob Bob Bob Bob” vs „Bob Bob” = 2/4 = 0,5 - gdy łańcuchy zawierają inną liczbę słów, większy z nich jest mianownikiem, ale twój licznik osiąga maksimum na mniejszym z nich.

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

Twoje pytanie również nie jest całkowicie jasne. Czy rzeczywiste imię ma znaczenie (John, Bill)? Czy owoce będą miały znaczenie? Lub jest o 3 warunkach

1. Dopasowywanie nazw i uczucia do dopasowania do owoców
2. Nazwy nie pasują, ale uczucia do owocowego dopasowania
3. Imiona nie pasują, a uczucia do owoców nie pasują

Założyłem, że jedyne, co się liczy, to imię i nazwisko osoby, i jeśli mają takie samo uczucie do czegoś. Dlatego nazwisko osoby może być dowolne i jeśli zarówno Bill, jak i Claire nienawidzą owoców, założyłem, że jest to również pomarańcza. Masz już kod, więc jego modyfikacja powinna być łatwa!

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