כיצד להעתיק את עיצוב התא המקור כאשר משתמשים בפונקציית Vlookup ב-Excel?

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

העתקת עיצוב מקור בעת שימוש ב-Vlookup ב-Excel עם פונקציה מותאמת אישית

העתקת עיצוב מקור בעת שימוש ב-Vlookup ב-Excel עם פונקציה מותאמת אישית

נניח שיש לך טבלה כפי שמוצג בסcreenshot למטה. כעת עליכם לבדוק אם ערך מסוים (בעמודה E) קיים בעמודה A ולהחזיר את הערך המתאים עם העיצוב מעמודה C. אנא עשו כך כדי להשיג זאת.

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

2. בחלון Microsoft Visual Basic for Applications שנפתח, אנא העתיקו את הקוד VBA הבא לחלון הקוד.

קוד VBA 1: Vlookup והחזרת ערך עם עיצוב

Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
    Dim I As Long
    Dim xKeys As Long
    Dim xDicStr As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    xKeys = UBound(xDic.Keys)
    If xKeys >= 0 Then
        For I = 0 To UBound(xDic.Keys)
            xDicStr = xDic.Items(I)
            If xDicStr <> "" Then
                Set xRg = Application.Range(xDicStr)
                xRg.Copy
                Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
            Else
                Range(xDic.Keys(I)).Interior.Color = xlNone
            End If
        Next
        Set xDic = Nothing
    End If
    Application.ScreenUpdating = True
    Application.CutCopyMode = True
End Sub

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

קוד VBA 2: Vlookup והחזרת ערך עם עיצוב

Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
    Dim xFindCell As Range
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
    If xFindCell Is Nothing Then
        LookupKeepFormat = " "
        xDic.Add Application.Caller.Address, " "
    Else
        LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
        xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
    End If
    Application.ScreenUpdating = True
End Function

4. לחצו על כלים > הפניות. לאחר מכן סמנו את תיבת Microsoft Script Runtime בחלון הדו-שיח הפניות – VBAProject. ראה תצלום מסך:

5. לחצו על מקשי Alt + Q כדי לצאת מחלון Microsoft Visual Basic for Applications.

6. בחרו תא ריק סמוך לערך החיפוש, ולאחר מכן הזינו את הנוסחה =LookupKeepFormat(E2,$A$1:$C$8,3) בשורת הנוסחאות, ולאחר מכן לחצו על מקש Enter.

הערה: בנוסחה, E2 מכיל את הערך אותו תחפשו, $A$1:$C$8 הוא טווח הטבלה, והמספר 3 אומר שהערך המתאים אותו תחזירו נמצא בעמודה השלישית של הטבלה. אנא שנה אותם לפי הצורך.

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

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

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

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

מאמרים קשורים:

• כיצד לחפש באמצעות Vlookup ולהחזיר את צבע הרקע יחד עם הערך המבוקש ב-Excel?
• כיצד לחפש באמצעות Vlookup ולהחזיר תאריך במקום מספר ב-Excel?
• כיצד להשתמש ב-Vlookup ו-Sum ב-Excel?
• כיצד להחזיר ערך Vlookup בתא הסמוך או הבא ב-Excel?
• כיצד לחפש באמצעות Vlookup ולהחזיר true או false / כן או לא ב-Excel?