1樓：匿名使用者
用條件格式更方便。
選中第2到第500行，全部先設為白色，然後點選單「格式」-「條件格式」
下拉框中選擇「公式」，旁邊輸入公式 =mod(row()-2,10)<5 點「格式」,設定圖案為藍色，確定即可。
2樓：匿名使用者
sub abc()
dim a, b as integer
b = 1
for a = 2 to 500
if b <= 5 then
cells(a, 4).interior.colorindex = 5
b = b + 1
elseif b <= 10 then
cells(a, 4).interior.colorindex = 0
b = b + 1
if b = 11 then b = 1
end if
next a
end sub
3樓：匿名使用者
寫了一個請參考：
sub mycolor()
for i = 2 to 500 step 10range(cells(i, 4), cells(i + 4, 4)).interior.colorindex = 5 '藍色
range(cells(i + 5, 4), cells(i + 9, 4)).interior.colorindex = 2 '白色
next i
end sub
4樓：匿名使用者
條件格式即可做到。何必vba？
條件公式 =and(mod(row(),10)>1,mod(row(),10)<7)
ps中怎樣自動填充顏色，PS中怎樣自動填充顏色
在工具欄中設定下前景色，然後選擇油漆桶工具，直接填充到畫布即可。 你使用的工具叫 自定義圖形工具 在選單欄下方的屬性欄中有三種建立方式，第一種自動填充前景色，並建立路徑 圖層和向量蒙版 第二種只建立路徑而沒有填色 第三種在選定圖層自動填充前景色，但不建立圖層和路徑。 要不你選個範圍在填充。如果不行。...
Excel中怎麼自動填充，Excel中怎麼自動編號及序號自動填充
文庫精選 內容來自使用者 zjp q excel自動填充的技巧 excel自動填充可拖動滑鼠填充 自動填充 等差序列填充 等比序列填充 日期填充 按自定義序列進行填充。excel自動填充功能強大，可靈活應用excel自動填充 在使用excel進行資料處理的過程中，很多excel使用者都對 excel...
ecel如何自動啟用巨集，EXCEL如何自動啟用巨集
清蓮寺 可以做到不彈出啟用巨集禁用巨集視窗，點巨集命令後，直接啟動，方法 工具 巨集 安全性 選擇低，確定即可。如圖。不過不建議這樣操作，這樣對巨集病毒的防禦力很低，幾乎沒有抵抗巨集毒能力。 山口壇斜 工具 巨集 安全性 選低 檔案，選項，信任中心設定，巨集設定，啟用所有巨集，信任對vba物件工程模...