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