כיצד לבצע חיפוש והחזרת ערך תואם עם הערה בתא?

כאשר אתם משתמשים בפונקציית Vlookup כדי להחזיר את הערך התואם, היא תחלץ רק את הערך ללא העיצוב, כגון צבע מילוי, גופן או הערה וכו'. אבל לפעמים, ייתכן שתרצו לחפש ולהחזיר את הערך התואם כולל ההערה כדי לקבל את התוצאה המוצגת בסcreenshot. כיצד תוכלו לפתור את המשימה הזו באקסל?

חיפוש והחזרת ערך תואם עם הערה בתא באמצעות קוד VBA

חיפוש והחזרת ערך תואם עם הערה בתא באמצעות קוד VBA

הקוד VBA הבא עשוי לעזור לכם לחפש ולהחזיר את הערך התואם יחד עם ההערה שלו, אנא עשו כך:

1. החזיקו את המקשים ALT + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

2. לחצו על הוסף > מודול, ולאחר מכן העתיקו והדבקו את הקוד הבא לחלון המודול.

קוד VBA: חיפוש והחזרת ערך תואם עם הערה בתא:

Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
    Application.Volatile
    Dim xRet As Variant 'could be an error
    Dim xCell As Range
    xRet = Application.Match(LookVal, FTable.Columns(1), FType)
    If IsError(xRet) Then
        VlookupComment = "Not Found"
    Else
        Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
        VlookupComment = xCell.Value
        With Application.Caller
            If Not .Comment Is Nothing Then
                .Comment.Delete
            End If
            If Not xCell.Comment Is Nothing Then
                .AddComment xCell.Comment.Text
            End If
        End With
    End If
End Function

3. ואז שמור את הקוד וסגור את חלון הקוד, הזינו את הנוסחה הבאה: =vlookupcomment(H2,A2:C10,3,FALSE) לתוך תא ריק כדי לאתר את התוצאה, והקישו על מקש Enter, הערך התואם וכן ההערה יוחזרו מיד, ראו צילום מסך:

הערה: בנוסחה שלמעלה, H2 הוא הערך אותו תרצו לחפש ולמצוא את הערך התואם לו, A2:C10 הוא טבלת הנתונים שבה תרצו להשתמש, המספר 3 הוא מספר העמודה המכילה את הערך התואם אותו תרצו להחזיר.

פתחו את הקסם של Excel עם Kutools AI

• ביצוע חכם: בצעו פעולות בתאים, ניתוח נתונים ויצירת תרשימים - הכל מונע על ידי פקודות פשוטות.
• נוסחאות מותאמות אישית: צור נוסחאות מותאמות אישית כדי להיעיל את זרימת העבודה שלך.
• תכנות VBA: כתבו והטמיעו קוד VBA ללא מאמץ.
• פרשנות נוסחאות: הבינו נוסחאות מורכבות בקלות.
• תרגום טקסט: שברו את מחסומי השפה בגיליונות הנתונים שלכם.

שפרו את יכולות ה-Excel שלכם עם כלים המופעלים על ידי AI. הורידו עכשיו וחוו יעילות כ никогда קודם לכן!