Bagaimana cara vlookup dan mengembalikan warna latar belakang bersama dengan nilai pencarian di Excel?
Misalkan Anda memiliki tabel seperti gambar di bawah ini. Sekarang Anda ingin memeriksa apakah nilai yang ditentukan ada di kolom A dan kemudian mengembalikan nilai yang sesuai bersama dengan warna latar belakang di kolom C. Bagaimana mencapainya? Metode dalam artikel dapat membantu Anda mengatasi masalah tersebut.
Vlookup dan mengembalikan warna latar belakang dengan nilai pencarian oleh fungsi yang ditentukan pengguna
Lakukan hal berikut untuk mencari nilai dan mengembalikan nilai yang sesuai bersama dengan warna latar belakang di Excel.
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 warna latar belakang dengan nilai pencarian
Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = 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.Keys(I)).Interior.Color = _
Range(xDic.Items(I)).Interior.Color
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
End Sub3. Lalu klik Menyisipkan > Modul, dan salin kode VBA 2 di bawah ini ke jendela Modul.
Kode VBA 2: Vlookup dan mengembalikan warna latar belakang dengan nilai pencarian
Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepColor = ""
xDic.Add Application.Caller.Address, ""
Else
LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
End If
End Function4. Setelah memasukkan kedua kode tersebut, lalu 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 dan kembali ke lembar kerja.
6. Pilih sel kosong yang berdekatan dengan nilai pencarian, lalu masukkan rumus =LookupKeepColor(E2,$A$1:$C$8,3) ke dalam Formula Bar, lalu tekan tombol Enter.
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 seret Fill Handle ke bawah untuk mendapatkan semua hasil bersama dengan warna latar belakangnya. Lihat tangkapan layar.
Artikel terkait:
- Bagaimana cara menyalin pemformatan sumber dari sel pencarian saat menggunakan Vlookup 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!
