使用Excel 2003中的VBA按單元格背景顏色對數據進行排序

Question

在此先感謝。

有人可以幫助我在整理使用單元格背景色的數據Excel 2003中

我有400行出其中30行有單元格區域A1填充背景色爲黃色。我需要根據VBA中的顏色對數據進行排序，以減少我對數據執行的迭代次數（如果我可以對數據進行排序，排序後的數據將位於頂部，我只能解析30行而不是循環所有400行） 。

Answer 1

與Excel 2007年開始，您可以在下面的步驟執行此任務：第一，選擇工作表區域，然後單擊Sort->Advanced，然後在對話框中選擇「Sort On」選項「單元格顏色」，並進行自定義相關到你的任務。您可以使用宏錄製器來生成基本的VBA代碼（如果您希望我們優化它，請將其包含在您的帖子中）。

相關到Excel 2003，可能的解決方案將使用放置在代碼模塊一個輔助函數：

' in Excel 2003 it could be Public by default if placed in code Module 
Public Function BackgroundColorIndex(myRange As Range) 
    BackgroundColorIndex = myRange.Interior.ColorIndex 
End Function 

然後加入此功能的一些輔助塔和該列中的值進行排序。此解決方案也可以在後續的Excel版本（2007+）中使用。

希望這會有所幫助。