2017-04-27 2 views
0

Ich versuche, Vlookup zu tun, aber wie Sie alle wissen, vlookup kann nicht das Format zusammen mit Wert zurückgeben. Ich habe online gelesen, dass ich Vlookup mit Match verwenden kann, um das Format zurückzugeben. Also bitte bring mir bei, wie man den Wert zusammen mit dem Format zurückgibt. Bitte beachten Sie, dass nicht alle Werte in "Look" gefunden werden können, weshalb IsError verwendet wird. Danke für Ihre Hilfe. DieseWie Vlookup mit Übereinstimmung zu verwenden, um Format

With Sheet3 
x = 2 
Do Until IsEmpty(.Range("F" & x).value) 
    look = .Range("F" & x).value 
    result = Application.VLookup(look, Sheet2.Range("B:H"), 2, False) 
    If Not IsError(result) Then 
     .Range("G" & x).value = result 
    Else 
     .Range("G" & x).value = " " 
    End If 
    x = x + 1 
Loop 
End With 
+0

"Format" kann verschiedene Dinge bedeuten, können Sie angeben? Format der Zelle, Format der Daten usw. –

+0

Ich meine die Farbe der Zelle und der Grenze –

+0

Siehe meine Antwort unter –

Antwort

0

können im Allgemeinen verwendet werden, um das Format einer Zelle zurückzukehren:

Range.DisplayFormat 

MS Dokumentation ist here.

Farbe einer Zelle:

getColorIndex = ActiveCell.Interior.ColorIndex 

Set Grenze Informationen:

With Worksheets("Sheet1").Range("B2").Borders(xlEdgeBottom) 
    .LineStyle = xlContinuous 
    .Weight = xlThin 
    .ColorIndex = 3 
End With 

einfach den Code umgekehrt für einen Wert zu überprüfen, anstatt sie zu setzen. Dokumentation here.

Hoffe, das hilft!

+0

Können Sie zeigen, wie Range.DisplayFormat? –

+0

Wenn Sie es nicht mit einer bestimmten Zelle verwenden möchten, müssen Sie den Teil "DisplayFormat" löschen. Ändern Sie einfach 'getColorIndex = ActiveCell.DisplayFormat.Interior.ColorIndex' zu ' getColorIndex = ActiveCell.Interior.ColorIndex' –

+0

Wenn dies Ihre Frage beantwortet, in Betracht ziehen, es als Antwort zu akzeptieren. –

Verwandte Themen