利用EXCEL VBA實現賬簿色階

05-03

在財務工作當中，尤其在製作序時賬時，為了更好的顯示不同分錄，需要採取色階對不同分錄進行區分，以方便閱讀。

由於每一筆分錄的的借方與貸方的科目數量不同且無規則，如果僅僅依靠excel自帶的色階功能，將無法實現以上目標。在此，需要藉助VBA實現定製的色階功能。

首先，首先來看看數據的基本情況：

原始數據

1，進入VBA後台

在鍵盤上摁下 ALT + F11；或者對著標籤，右擊滑鼠，點擊查看代碼

2，輸入代碼

代碼如下：

Sub 色階()
j = 1

For i = 3 To Cells(1, 1).End(xlDown).Row
If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
Cells(i, 2).EntireRow.Interior.Color = Cells(i - 1, 2).Interior.Color
Else
If j Mod 2 = 1 Then

Cells(i, 2).EntireRow.Interior.Color = RGB(255, 192, 0)
Else
Cells(i, 2).EntireRow.Interior.Color = xlNone
End If

j = j + 1
End If
Next
End Sub

代碼工作原理：

在對某行單元格進行著色時，僅僅只需要考慮改行單元格的記賬憑證是否與上一行的進賬憑證號是否相同；如果相同，那麼就用上一行單元格顏色，如果不同，那麼採用另外一種顏色。

3，運行代碼

在工具欄中點擊運行，彈出以下窗口，點擊運行即可

4，運行結果：

5，保存文件

在保存文件時，如果以後不想再用該代碼，直接保存問標準文件，後綴為xlsx;如果有可能再次運行，則另存為帶有宏的工作簿

感謝您的觀看，如果你工作中經常與EXCEL/WORD打交道，尤其是任務重複繁重時，可以多想想如何實現自動化。