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 modułu.
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 Function
4. kliknij Tools > 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ę obok szukanej wartości, a następnie wprowadź formułę =LookupKeepFormat(E2,$A$1:$C$8,3) do Pasek formuły, a następnie naciśnij Wchodzę klawisz.
Note: 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 zgodnie z potrzebami.
7. Kontynuuj wybieranie pierwszej komórki wyniku, a następnie przeciągnij uchwyt wypełniania w dół, aby uzyskać wszystkie wyniki wraz z ich formatowaniem, jak pokazano na poniższym zrzucie ekranu.
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
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
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!