Excel'de VLOOKUP kullanırken arama değerine karşılık gelen hücrenin arka plan rengi nasıl getirilir?
Aşağıdaki ekran görüntüsünde gösterildiği gibi bir tablonuz olduğunu varsayalım. Belirli bir değerin A sütununda olup olmadığını kontrol etmek ve ardından C sütunundaki karşılık gelen değeri, arka plan rengiyle birlikte döndürmek istiyorsunuz. Bu sorunu nasıl çözebilirsiniz? Makaledeki yöntem size bu konuda yardımcı olabilir.
Kullanıcı tanımlı işlevle VLOOKUP yap ve arama değeriyle birlikte Arka Plan Rengi döndür
Kullanıcı tanımlı işlevle VLOOKUP yap ve arama değeriyle birlikte Arka Plan Rengi döndür
Bir değeri aramak ve Excel'de ilgili değeri arka plan rengiyle birlikte döndürmek için lütfen aşağıdaki adımları izleyin.
1. VLOOKUP yapmak istediğiniz değeri içeren çalışma sayfasında, sayfa sekmesine sağ tıklayın ve bağlam menüsünden Kodu Görüntüle seçeneğini seçin. Ekran görüntüsüne bakın:
2. Açılan Microsoft Visual Basic for Applications penceresinde, aşağıdaki VBA kodunu Kod penceresine kopyalayın.
VBA kodu 1: VLOOKUP yap ve arama değeriyle birlikte Arka Plan Rengi döndür
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. Ardından Ekle > Modül seçeneğine tıklayın ve aşağıdaki VBA kodunu Modül penceresine kopyalayın.
VBA kodu 2: VLOOKUP yap ve arama değeriyle birlikte Arka Plan Rengi döndür
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. İki kodu da ekledikten sonra Araçlar > Başvurular seçeneğine tıklayın. Ardından, Başvurular – VBAProject iletişim kutusunda Microsoft Script Runtime kutusunu işaretleyin. Ekran görüntüsüne bakın:
5. Alt+Q tuşlarına basarak Microsoft Visual Basic for Applications penceresinden çıkın ve çalışma sayfasına geri dönün.
6. Arama değerinin yanındaki boş bir hücreyi seçin, ardından Formül Çubuğuna =LookupKeepColor(E2,$A$1:$C$8,3) formülünü girin ve Enter tuşuna basın.
Not: Formülde E2, arama yapacağınız değeri içerir; $A$1:$C$8, tablo aralığıdır ve 3 sayısı, döndürülecek değerin tablonun üçüncü sütununda yer aldığını gösterir. Gerektiğinde bunları güncelleyin.
7. İlk sonuç hücresini seçili bırakın ve tüm sonuçları Arka Plan Rengi ile birlikte almak için Doldurma Tutamacı'nı aşağı doğru sürükleyin. Ekran görüntüsüne göz atın.
İlgili makaleler:
- Excel'de VLOOKUP kullanırken, arama hücresinin kaynak biçimlendirmesini nasıl kopyalayabilirsiniz?
- Excel'de VLOOKUP kullanırken sonuç olarak bir tarihi nasıl döndürebilirim?
- Excel'de VLOOKUP ve TOPLA işlevleri nasıl birlikte kullanılır?
- Excel'de VLOOKUP ile bitişik veya hemen sonraki hücredeki değer nasıl alınır?
- Excel'de VLOOKUP işleviyle birlikte DOĞRU/YANLIŞ veya EVET/HAYIR sonucu nasıl döndürülür?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar