我們使用的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 “顏色間隔設置完成！”
原創文章，作者：投稿專員，如若轉載，請註明出處：https://www.506064.com/zh-tw/n/305516.html
微信掃一掃 
支付寶掃一掃 