excel底紋怎么設置顏色（添加excel底紋顏色的步驟）

我們使用的Excel應用程序，默認打開任何Excel文件后，不管輸入任何數據，單元格的底紋顏色都是無色的，如果我們有大量行數和列數的數據在里面，在看某一個行或某一列的數據時，會顯得很不方便。

用過其他管理軟件系統的朋友應該對數據錄入或者查看界面的表格數據間隔設置印象深刻，非常利于用戶直觀看到具體某行或者某列的數據，由于行與行 或者 列與列 之間用不同的顏色間隔顯示，對比非常明顯，查看數據也不會因為看錯行數或列數而導致看錯目標單元格內的數據。

雖然說Excel默認不情況下沒有這個功能，但是我們可以自己通過設置或者編碼來實現，那么筆者這里就展示通過VBA代碼來設置Excel工作表內已使用單元格區域的底紋間隔顏色，從而可以仿效其他管理軟件系統一樣對工作表內的數據做簡單區分。

準備工作如下：

在新創建的名為“示例數據”的Excel文件內填充一些數據，用于測試，如下截圖示：

經過編碼后的執行過程，其實執行過程在數據量很少的情況下，時間極短，筆者為了有一個中間過渡，讓它顏色間隔設置完成后彈出一個提示對話框：

最終結果如下：

完整的示例代碼截圖如下所示：

下面是完整的示例代碼：

Sub 設置間隔顏色()

Dim rngs As Excel.Range

Dim rowCount As Integer, columnCount As Integer

Dim i As Integer, j As Integer

Set rngs = ActiveSheet.UsedRange

rowCount = rngs.Rows.Count

columnCount = rngs.Columns.Count

For i = 1 To rowCount

If i Mod 2 <> 0 Then

For j = 1 To columnCount

rngs.Cells(i, j).Interior.Color = RGB(255, 0, 0)

Next j

Else

For j = 1 To columnCount

rngs.Cells(i, j).Interior.Color = RGB(0, 255, 0)

Next j

End If

Next i

Set rngs = Nothing

MsgBox “顏色間隔設置完成！”