İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də Vlookup istifadə edərkən axtarış hüceyrəsinin qaynaq formatını necə çıxarmaq olar?

Əvvəlki məqalələrdə biz Excel-də vlookup dəyərləri saxlayarkən fon rəngini saxlamağımız barədə danışdıq. Burada, bu yazıda Vlexup'u Excel'de edərkən ortaya çıxan hüceyrənin bütün hüceyrə biçimlendirmesini kopyalamak üçün bir metod tanıtacağız. Xahiş edirik bunu edin.

Excel-də Vlookup-dan istifadəçi funksiyası ilə Excel-də istifadə edərkən qaynaşma formatını kopyalayın


Bir çox iş səhifəsini / iş kitabını bir iş səhifəsinə / iş kitabına birləşdirin:

Bir çox iş səhifəsini və ya iş kitabını bir iş səhifəsinə və ya iş kitabına birləşdirin, gündəlik işinizdə böyük bir vəzifə ola bilər. Ancaq əgər varsa Excel üçün Kutools, güclü fayda - Birləşdirmək tez bir çox iş səhifəsini, iş kitabını bir iş və ya iş kitabına birləşdirməyə kömək edə bilər

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


Excel-də Vlookup-dan istifadəçi funksiyası ilə Excel-də istifadə edərkən qaynaşma formatını kopyalayın


Aşağıda göstərilən ekran görüntüsü kimi bir masanız olduğunu düşünürəm. İndi müəyyən bir dəyər (E sütununda) S sütununda olub-olmadığını yoxlamaq və S sütununda formatlaşdırma ilə uyğun qiyməti qaytarmadığınızı yoxlamaq lazımdır.

1. Çalışma kitabında vlookup istədiyiniz qiyməti ehtiva edir, hesabatı sekmesini sağ basın və seçin Kodları baxın kontekst menyusundan. Ekran görüntüsünə baxın:

2. Açılışda Proqramlar üçün Microsoft Visual Basic Pəncərədən, VBA kodu aşağıda Kod pencerəsinə kopyalayın.

VBA kodu 1: Vlookup və formatlaşdırma ilə qaytarma dəyəri

Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180706
    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
                Range(xDic.Items(I)).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. Sonra basın Taxmaq > Modules, və 2-un aşağıdakı VBA kodunu Modul pəncərəsinə kopyalayın.

VBA kodu 2: Vlookup və formatlaşdırma ilə qaytarma dəyəri

Public xDic As New Dictionary
'Update by Extendoffice 20180706
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
    End If
    Application.ScreenUpdating = True
End Function

4. klik Tools > References. Sonra yoxlayın Microsoft Script Runtime qutusunda Referanslar - VBAProject dialoq qutusu. Ekran görüntüsünə baxın:

5. Basın Dayandırmaq + Q çıxmaq üçün düymələr Proqramlar üçün Microsoft Visual Basic pəncərə.

6. Axtarış dəyərinə bitişik bir boş hüceyrəni seçin və sonra formula daxil edin =LookupKeepFormat(E2,$A$1:$C$8,3) daxil Formula Barı, və sonra basın Daxil edin açar.

Qeyd: Formula, E2 axtarış edəcək dəyərini ehtiva edir, $ A $ 1: $ C $ 8 masa aralığı və sayıdır 3 masanın üçüncü sütununda tapacaqsınız. Lazım olduğunuz halda onları dəyişdirin.

7. Birinci nəticə hücresini seçməyi davam etdirin və ekran görünüşünün aşağıda göstərildiyi kimi, bütün nəticələrini formatlaşdırma ilə birlikdə almaq üçün Doldurma Tutumu aşağı sürükləyin.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jack · 21 days ago
    hi i got the error "compile Error: Ambigious name detected: xDic
  • To post as a guest, your comment is unpublished.
    Aurelie · 1 months ago
    Hello, Thanks for the code. I do not get any error message but the formula only works as a normal vlookup would. Could you please assist? Thanks for your time.
  • To post as a guest, your comment is unpublished.
    Leigh · 2 months ago
    Hello, I've been using the above code in Excel 2010 with no problems to date. However, I was recently upgraded to Office 2016 and now the code crashes Excel every time I try to fill down more than one row. Unfortunately, it is not giving me an error other than "Microsoft Excel has stopped working". I was wondering if you have come across this issue previously, and if there is something I need to do to make it work in 2016. Thanks!
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi Leigh,
      The code works well in my Excel 2016. We are trying to upgrad the code to solve the problem. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Laura · 5 months ago
    Hello. I created a blank spreadsheet and duplicated your example in Excel 2013, but keep getting a Compile error: Syntax error and Dim I As Long is highlighted. Is there something I'm missing? I would love to get this working. Thank you.
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi Laura,
      Don't forget to enable the Microsoft Script Runtime option as mentioned in step 4.
  • To post as a guest, your comment is unpublished.
    Jeni · 6 months ago
    I tried this one and the the one that pulls just the color background and am getting the same error. Compile error: Ambiguous name detected. I click OK and it highlights xDic. Any suggestions? I'm not super familiar with all of this so please help/explain :) thanks in advance
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi Jeni,
      Don't forget to enable the Microsoft Script Runtime option as mentioned in step 4.