Excel'de VLOOKUP kullanırken, arama hücresinin kaynak biçimlendirmesi nasıl kopyalanır?
Önceki makalelerimizde, Excel’de VLOOKUP ile değer ararken arka plan rengini koruma yönteminden bahsetmiştik. Bu yazıda ise VLOOKUP işlemi sırasında sonuç hücresinin tüm biçimlendirmesini kopyalamanın bir yolunu sizinle paylaşacağız. Aşağıdaki adımları uygulayın.
Excel'de VLOOKUP kullanırken kullanıcı tanımlı işlevle kaynak biçimlendirmeyi kopyalama
Excel'de VLOOKUP kullanırken kullanıcı tanımlı işlevle kaynak biçimlendirmeyi kopyalama
Supposing you have a table as below screenshot shown. Now you need to check if a specified value (in column E), A sütununda yer almakta ve C sütununda ilgili değeri biçimlendirmeyle birlikte döndürmektedir. Bunu gerçekleştirmek 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:
Açılan Microsoft Visual Basic for Applications penceresinde, aşağıdaki VBA kodunu Kod penceresine kopyalayın.
VBA kodu 1: Biçimlendirmeli VLOOKUP ve Dönüş değeri
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. Ardından Ekle > Modül seçeneğine tıklayın ve aşağıdaki VBA kodunu Modül 2 penceresine kopyalayın.
VBA kodu 2: Biçimlendirmeli VLOOKUP ve Dönüş değeri
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 Function4. 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.
6. Arama değerinin yanındaki boş bir hücreyi seçin ve ardından Formül Çubuğu’na =LookupKeepFormat(E2,$A$1:$C$8,3) formülünü girin, ardından Enter tuşuna basın.
Not: Formülde E2, arama yapılacak değeri içerir; $A$1:$C$8, tablo aralığıdır ve 3 sayısı, döndürülecek ilgili değerin tablonun üçüncü sütununda olduğunu gösterir. Gerektiğinde bunları güncelleyin.
7. İlk sonuç hücresini seçili tutun ve ardından aşağıya doğru Doldurma Kulpu'nu sürükleyerek aşağıdaki ekran görüntüsünde gösterildiği gibi tüm sonuçları biçimlendirmeleriyle birlikte alın.
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
İlgili makaleler:
- Excel'de VLOOKUP ile arama değerini ve onunla birlikte arka plan rengini nasıl döndürebilirim?
- Excel'de VLOOKUP ile sayı yerine tarih formatında sonuç nasıl döndürülür?
- Excel'de VLOOKUP ve TOPLA işlevleri nasıl birlikte kullanılır?
- Excel'de VLOOKUP ile dönüş değeri bitişik veya sonraki hücrede nasıl aranı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