2017-04-27 362 views
0

我正在嘗試做Vlookup,但正如你們所有人都知道vlookup不能將值與格式一起返回。我已經在網上閱讀過,我可以使用Vlookup with Match來返回格式。所以請教我如何將這個值與格式一起返回。請注意,並非所有「look」中的值都可以找到,這就是爲什麼使用IsError的原因。謝謝你的幫助。如何使用帶匹配的Vlookup返回格式

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

「格式」可以表示不同的東西,你可以指定嗎?單元格格式,數據格式等。 –

+0

我的意思是單元格和邊框的顏色 –

+0

看到我的回答如下 –

回答

0

這通常可用於返回一個單元格的格式:

Range.DisplayFormat 

MS文檔here

顏色的細胞:

getColorIndex = ActiveCell.Interior.ColorIndex 

設定邊界信息:

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

只是扭轉代碼來檢查的值,而不是設置它。文檔here

希望這會有所幫助!

+0

你可以展示如何使用Range.DisplayFormat? –

+0

如果您不想將它用於特定的單元格,則必須放棄「DisplayFormat」部分。只需更改 'getColorIndex = ActiveCell.DisplayFormat.Interior.ColorIndex' 至 'getColorIndex = ActiveCell.Interior.ColorIndex' –

+0

如果回答了您的問題,請考慮接受它作爲答案。 –