עיצוב מותנה על רשימת ערכים

תגובה זו תורגמה באופן אוטומטי. כתוצאה מכך, ייתכן שיש שגיאות דקדוק או מילים מוזרות.

היי Hodaya863,

אני מבין את הדרישות שלך. 

להלן הגרסה ששונתה של הקוד, אשר מוסיפה קצת אינטראקטיביות. כעת, הוא יבקש ממך לבחור באופן ידני את העמודה בגיליון1 שיש לסמן. הוא יחפש תוכן רק בהתבסס על השדות בעמודה A של גיליון2. 

Sub HighlightMatches()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim cell1 As Range, cell2 As Range
    Dim searchString As String
    Dim startPos As Long
    Dim selectedColumn As Range
    
    ' Set worksheets
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' Get the selected column
    Set selectedColumn = Application.InputBox("Please select a column in Sheet1", Type:=8)
    
    ' Loop through column A in Sheet2
    For Each cell2 In ws2.Range("A1:A" & ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row)
        searchString = cell2.Value
        
        ' Loop through the selected column in Sheet1
        For Each cell1 In selectedColumn
            startPos = InStr(1, cell1.Value, searchString, vbTextCompare)
            
            ' If a match is found, highlight it
            If startPos > 0 Then
                With cell1.Characters(startPos, Len(searchString)).Font
                    .Color = RGB(255, 0, 0) ' Set highlight color to red
                    .Bold = True
                End With
            End If
        Next cell1
    Next cell2
End Sub

החלקים המתאימים של הקוד הוסברו באנגלית, וניתן לבצע שינויים קלים לפי הצורך. עדיין תוכל להפעיל אותו על-ידי לחיצה על חץ המשולש הירוק בממשק התיכנות או על-ידי הקשה על Alt+F8 ישירות בגיליון האלקטרוני. 

אם אתה מוצא את התגובה שלי מועילה, אתה יכול לסמן כן תחת התשובה שלי, כך שמשתמשים עם צרכים דומים יוכלו למצוא את התשובה מהר יותר. זה יעזור לי מאוד להמשיך לספק תמיכה טכנית בקהילה. תודה על שיתוף הפעולה. 

מצפה שתשתף אותנו בתוצאות.

שא ברכה

יונתן Z - MSFT | מומחה תמיכה קהילתית של Microsoft