下面是一個將0~9的數字自動設定格式的例子，在worksheet_change加入如下程式碼：

privatesubworksheet_change(byvaltargetasrange)

onerrorgotoline1"當出現錯誤時轉到line1語句處執行.這裡是退出迴圈

iftarget.value=0then

"如果單元格的值小於或等於9並且大於或等於0就進入迴圈

selectcasetarget.value

case9

target.font.colorindex=3"此語句為設定字型顏色的

target.interior.colorindex=5"此句是設定單元格背影顏色的，下面的可依此法新增。

case8

target.font.colorindex=45

case7

target.font.colorindex=8

case6

target.font.colorindex=7

case5

target.font.colorindex=23

case4

target.font.colorindex=27

case3

target.font.colorindex=5

case2

target.font.colorindex=12

case1

target.font.colorindex=9

caseelse"case0(也可以換成前面的這句.之所以這樣做,是為了防止有一些意想不到的事情發生)

target.font.colorindex=15

endselect

endif

line1:

endsub

你可以跟據需要修改。