處理Excel 工作表中的資料時,常常需要知道最下一列資料的列號,以及最右一欄資料是第幾欄,以便設定For … Next 迴圈的終值。
例如在公司存貨月報表上按 填底色 鈕,會自動檢查表格的範圍,然後每隔一列填入深色作為底色,以方便閱讀表格。
Step 1.
建立輸出入介面
1. 新增活頁簿並以「BackColor」為新活頁簿名稱。
2. 將表格複製到工作表1 中,再建立一個ActiveX 命令按鈕控制項。
Step 2.
1. 使用End 屬性取得表格的最下列列號,以及最右欄是第幾欄
2. 因為是隔列填底色,所以For 迴圈中的增值設為2。
3. 儲存格範圍可以使用Range(Cells(列1,欄1), Cells(列2,欄2))來表示,其中
Cells(列1,欄1)為左上角儲存格、Cells(列2,欄2) 為右下角儲存格。
4. 使用儲存格的Interior.Color 屬性可以設定底色。
Step 3.
取得工作表最下一列的列號,和最右一欄是第幾欄,程式寫法為: