Jak skopiować formatowanie źródłowe komórki odnośnika podczas korzystania z Vlookup w programie Excel?
W poprzednich artykułach rozmawialiśmy o zachowaniu koloru tła podczas przeglądania wartości w programie Excel. W tym artykule wprowadzimy metodę kopiowania całego formatowania komórki wynikowej podczas wykonywania Vlookup w programie Excel. Wykonaj następujące czynności.
Kopiuj formatowanie źródłowe podczas korzystania z Vlookup w programie Excel z funkcją zdefiniowaną przez użytkownika
Przypuśćmy, że masz tabelę pokazaną na poniższym zrzucie ekranu. Teraz musisz sprawdzić, czy podana wartość (w kolumnie E) znajduje się w kolumnie A i zwrócić odpowiednią wartość z formatowaniem w kolumnie C. Aby to osiągnąć, wykonaj następujące czynności.
1. W arkuszu zawiera wartość, którą chcesz przeoczyć, kliknij prawym przyciskiem myszy kartę arkusza i wybierz Wyświetl kod z menu kontekstowego. Zobacz zrzut ekranu:
2. W otwarciu Microsoft Visual Basic for Applications okno, skopiuj poniższy kod VBA do okna Code.
Kod VBA 1: przeglądanie i zwracanie wartości z formatowaniem
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. Następnie kliknij wstawka > Modułi skopiuj poniższy kod VBA 2 do okna Module.
Kod VBA 2: przeglądanie i zwracanie wartości z formatowaniem
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. kliknij Narzędzia > Referencje. Następnie sprawdź Środowisko wykonawcze skryptów firmy Microsoft Microsoft Okno w Referencje - VBAProject Okno dialogowe. Zobacz zrzut ekranu:
5. wciśnij inny + Q klawisze, aby wyjść z Microsoft Visual Basic for Applications okno.
6. Wybierz pustą komórkę sąsiadującą z wartością wyszukiwania, a następnie wprowadź formułę =LookupKeepFormat(E2,$A$1:$C$8,3) do Pasek formuły, a następnie naciśnij Wchodzę klawisz.
Uwagi: We wzorze E2 zawiera wartość, którą będziesz szukać, 1 $ A: 8 $ C $ to zakres i numer tabeli 3 oznacza, że odpowiednia wartość, którą zwrócisz, znajduje się w trzeciej kolumnie tabeli. Zmień je według potrzeb.
7. Kontynuuj wybieranie pierwszej komórki wynikowej, a następnie przeciągnij uchwyt wypełnienia w dół, aby uzyskać wszystkie wyniki wraz z ich formatowaniem, jak pokazano poniżej.
Podobne artykuły:
- Jak pominąć i zwrócić kolor tła wraz z wartością wyszukiwania w programie Excel?
- Jak pominąć i zwrócić format daty zamiast liczby w programie Excel?
- Jak korzystać z vlookup i sum w programie Excel?
- Jak pominąć wartość zwracaną w sąsiedniej lub następnej komórce w programie Excel?
- Jak przeoczyć wartość i zwrócić prawdę lub fałsz / tak lub nie w programie Excel?
Najlepsze narzędzia biurowe
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
- Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
- Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
- Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
- Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
- Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
- Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
- Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
- Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
- Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
