2015-04-24 47 views
0

我正嘗試使用Vlookup將日期列中的條目從一個工作簿轉移到另一個工作簿中。我可以在單元格中傳輸數據而不是顏色編碼。是否可以將每個單元格的顏色代碼與數據一起傳輸?從Excel工作簿中將三種不同顏色的日期列複製到另一個工作簿中

我有三種不同的顏色紅,綠和黃,分別對應不完整,完整和正在處理。轉移細胞顏色編碼後,如果過程完成,我應該可以手動更改它。

+0

這可以在VBA中完成。您需要獲取紅色,綠色和黃色的顏色代碼。最簡單的方法是RGB值。然後在列中循環檢查顏色是否與RGB匹配,以及它們是否將值和顏色複製到另一列。 – Sam

+0

謝謝薩姆。我是初學者,我不知道如何去做你所說的話。我正在尋找一些示例代碼或文件,它可以幫助我找出答案。 – Sai

+0

如果你可以得到我的單元格的RGB值,我可以寫一些基本的代碼,它會告訴你該怎麼做。獲取RGB值用顏色轉到單元格。點擊填充旁邊的錯誤,點擊更多顏色,然後點擊客戶。然後它應該顯示RGB值 – Sam

回答

0

這裏是代碼,如果在列中有匹配,則將顏色複製過來。如果您已經擁有要檢查的列表,則不會使用Vloopup,因爲這看起來有點無意義。如果沒有匹配,它將保持默認顏色。

Dim i As Integer 
Dim a As Range 

For i = 1 To WorksheetFunction.CountA(Columns("C")) 
    On Error GoTo NextOne 
    Set a = Cells(WorksheetFunction.Match(Range("C" & i), Range("B1:B6"), 0), "B") 
    Range("C" & i).Interior.Color = a.Interior.Color 

NextOne: 
    Resume nextOne2 
nextOne2: 
Next i 

您將需要引用要使用的工作簿。您將需要查閱如何參考工作簿。並更改數據所在的列。

相關問題