Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menyalin pemformatan sumber sel lookup apabila menggunakan Vlookup dalam Excel?

Dalam artikel sebelumnya, kami telah berbincang tentang mengekalkan warna latar belakang apabila nilai vlookup dalam Excel. Di sini dalam artikel ini, kami akan memperkenalkan kaedah menyalin semua pemformatan sel sel yang dihasilkan apabila melakukan Vlookup dalam Excel. Sila buat seperti berikut.

Salin pemformatan sumber apabila menggunakan Vlookup dalam Excel dengan fungsi yang ditentukan pengguna


Menggabungkan berbilang lembaran kerja / buku kerja ke dalam satu lembaran kerja / buku kerja:

Menggabungkan pelbagai lembaran kerja atau buku kerja ke dalam satu lembaran kerja atau buku kerja mungkin menjadi tugas yang besar dalam kerja harian anda. Tetapi, jika anda ada Kutools untuk Excel, utiliti yang berkuasa - Gabungkan boleh membantu anda dengan cepat menggabungkan pelbagai lembaran kerja, buku kerja ke dalam satu lembaran kerja atau buku kerja

Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60. Muat turun dan percubaan percuma Sekarang!


Salin pemformatan sumber apabila menggunakan Vlookup dalam Excel dengan fungsi yang ditentukan pengguna


Sekiranya anda mempunyai jadual seperti gambar di bawah yang ditunjukkan. Sekarang anda perlu menyemak sama ada nilai tertentu (dalam lajur E) berada dalam lajur A dan kembalikan nilai yang sesuai dengan pemformatan dalam lajur C. Sila lakukan seperti berikut untuk mencapainya.

1. Dalam lembaran kerja mengandungi nilai yang ingin anda lihat, klik kanan tab helaian dan pilih Lihat Kod dari menu konteks. Lihat tangkapan skrin:

2. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi tetingkap, sila salin di bawah kod VBA ke dalam tetingkap Kod.

Kod VBA 1: Vlookup dan nilai pulangan dengan pemformatan

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. Kemudian klik Memasukkan > Modul, dan salin kod VBA di bawah 2 ke dalam tetingkap Modul.

Kod VBA 2: Vlookup dan nilai pulangan dengan pemformatan

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 Alatan > Rujukan. Kemudian periksa Runtime Script Microsoft kotak di Rujukan - VBAProject kotak dialog. Lihat tangkapan skrin:

5. Tekan butang Alt + Q kunci untuk keluar Microsoft Visual Basic untuk Aplikasi tingkap.

6. Pilih sel kosong bersebelahan dengan nilai carian, dan masukkan formula =LookupKeepFormat(E2,$A$1:$C$8,3) ke Bar Formula, dan kemudian tekan Masukkan utama.

Nota: Dalam formula, E2 mengandungi nilai yang akan anda cari, $ A $ 1: $ C $ 8 adalah julat jadual dan nombor 3 bermakna nilai yang sepadan yang anda akan kembali ditetakkan di lajur ketiga jadual. Sila ubah seperti yang anda perlukan.

7. Pastikan sel keputusan pertama dipilih, dan seret Pengendalian Isi ke bawah untuk mendapatkan semua keputusan berserta dengan pemformatan mereka seperti ditunjukkan di bawah skrin.


Related articles:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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.
    LTBallard · 1 years ago
    I got the same error.

    You will have to change the &quot; &quot for actual "', without ';' as indicated below
    LookupKeepFormat = &quot; &quot;
    xDic.Add Application.Caller.Address, &quot; &quot;

    LookupKeepFormat = ""
    xDic.Add Application.Caller.Address ""
    • To post as a guest, your comment is unpublished.
      crystal · 11 months ago
      Hi,
      Sorry for the mistake, the code has been updated in the article. Thank you for sharing.
  • To post as a guest, your comment is unpublished.
    ltballard · 1 years ago
    I also got the compiler error.
    It gets corrected if you change the following variable with actual "". No ';' in the middle.
    LookupKeepFormat = &quot; &quot;
    xDic.Add Application.Caller.Address, &quot; &quot
    • To post as a guest, your comment is unpublished.
      crystal · 11 months ago
      Hi,
      Sorry for the mistake, the code has been updated in the article.
      The mistake &quot; &quot; should be two quotation marks " ". Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Sayed · 1 years ago
    it give me Compile Error ,Syntax error

    please help
    • To post as a guest, your comment is unpublished.
      crystal · 11 months ago
      Good Day,
      The code has been updated in the artcle. Thank you for your comment.