Excel VBA自動給單元格填色

要求：乙個excel檔案中，有多個sheet，每個sheet中都有特定範圍的單元格需要填充顏色，手動填充太麻煩，下面是vba實現的自動填色

1

subincolor()23
dimi, j, sheetnum, rownum45
'獲取當前文件中的sheet個數
6     sheetnum =worksheets.count78
'從第i個sheet開始迴圈到最後乙個sheet
9for i = 25
tosheetnum
1011
'選中第i個sheet
12worksheets(i).select
1314
'獲取第i個sheet中有資料的最後一行的行號
15         rownum = worksheets(i).range("
a1048576
").end(xlup).row
1617
'從第j行開始迴圈到有資料的最後一行
18for j = 10
torownum
1920
'從第k列開始迴圈到第九列
21for k = 1to9
2223
'將第i個sheet中的第j行，第k列的單元格填充為rgb(255,255,204)色
24                 worksheets(i).cells(j, k).interior.color = rgb(255, 255, 204)25
26next
2728
next
2930
next
3132
end sub

Excel VBA 設定單元格對齊方式

返回或設定乙個variant值，它代表指定物件的水平對齊方式。語法 表示式.horizontalalignment 表示式 乙個代表cellformat物件的變數。說明 此屬性的值可設為以下常量之一 xlcenter xldistributed xljustify xlleft xlright 返回...

Excel VBA 刪除行 列或單元格

應用於 應用於 列表中range以外的物件的 delete 方法。刪除指定的物件。expression.delete 表示式 必需。該表示式返回上述物件之一。應用於range物件的 delete 方法。刪除指定的物件。expression.delete shift 表示式 必需。該表示式返回上述物件...

單元格寬度 如何讓文字自動適應單元格？

如圖 8 23所示為某公司人力資資部人員製作的考勤表，由於考勤表需要用a4紙橫向列印，但於空間有限，在單元格中錄入內容 如30 時，單元格寬度就會增加，工作人員希望實現在單元格中不管內容有多少單元格寬度都固定不變，如何操作？圖8 23考勤表 1 解決方案 利用 適應文字 功能讓文字自動適應單元格。2...