Bagaimana cara menyalin pemformatan sumber dari sel pencarian saat menggunakan Vlookup di Excel?
Di artikel sebelumnya, kita telah berbicara tentang menjaga warna latar belakang saat nilai vlookup di Excel. Di sini, di artikel ini, kami akan memperkenalkan metode menyalin semua pemformatan sel dari sel yang dihasilkan saat melakukan Vlookup di Excel. Silakan lakukan sebagai berikut.
Salin pemformatan sumber saat menggunakan Vlookup di Excel dengan fungsi yang ditentukan pengguna
Salin pemformatan sumber saat menggunakan Vlookup di Excel dengan fungsi yang ditentukan pengguna
Misalkan Anda memiliki tabel seperti gambar di bawah ini. Sekarang Anda perlu memeriksa apakah nilai yang ditentukan (di kolom E) ada di kolom A dan mengembalikan nilai yang sesuai dengan pemformatan di kolom C. Lakukan hal berikut untuk mencapainya.
1. Di lembar kerja berisi nilai yang ingin Anda vlookup, klik kanan tab lembar dan pilih Lihat kode dari menu konteks. Lihat tangkapan layar:
2. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi jendela, harap salin kode VBA di bawah ini ke jendela Kode.
Kode VBA 1: Vlookup dan mengembalikan nilai dengan pemformatan
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. Lalu klik Menyisipkan > Modul, dan salin kode VBA 2 di bawah ini ke jendela Modul.
Kode VBA 2: Vlookup dan mengembalikan nilai dengan pemformatan
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. klik Tools > Referensi. Kemudian periksa Waktu Proses Skrip Microsoft kotak di Referensi - VBAProject kotak dialog. Lihat tangkapan layar:
5. tekan lain + Q kunci untuk keluar dari Microsoft Visual Basic untuk Aplikasi jendela.
6. Pilih sel kosong yang berdekatan dengan nilai pencarian, lalu masukkan rumus =LookupKeepFormat(E2,$A$1:$C$8,3) ke dalam Formula Bar, lalu tekan Enter kunci.
Note: Dalam rumusnya, E2 berisi nilai yang akan Anda cari, $ A $ 1: $ C $ 8 adalah rentang tabel, dan angka 3 berarti bahwa nilai yang sesuai yang akan Anda kembalikan terletak di kolom ketiga tabel. Harap ubah sesuai kebutuhan Anda.
7. Tetap memilih sel hasil pertama, dan kemudian seret Fill Handle ke bawah untuk mendapatkan semua hasil bersama dengan pemformatannya seperti yang ditunjukkan gambar di bawah ini.
Artikel terkait:
- Bagaimana cara vlookup dan mengembalikan warna latar belakang bersama dengan nilai pencarian di Excel?
- Bagaimana cara vlookup dan mengembalikan format tanggal alih-alih angka di Excel?
- Bagaimana cara menggunakan vlookup dan sum di Excel?
- Bagaimana cara vlookup mengembalikan nilai di sel yang berdekatan atau berikutnya di Excel?
- Bagaimana nilai vlookup dan mengembalikan true atau false / yes atau tidak di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!