- 帖子
- 56
- 主題
- 8
- 精華
- 0
- 積分
- 81
- 點名
- 0
- 作業系統
- Window7
- 軟體版本
- OFFICE2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-6-25
- 最後登錄
- 2016-1-17
|
Dim Ar()
GBKEE 發表於 2011-7-6 08:52 
Ar() 為宣告為陣列的縮寫嗎?
Resize(UBound(Ar), 2)
GBKEE 發表於 2011-7-6 08:52 
學習 Resize應用,節錄 說明檔順道貼上供參考
但其中 UBound(Ar)的含義與用法為何?- Resize 屬性
- 請參閱請參閱請參閱請參閱調整指定的範圍。傳回 Range 物件,該物件代表調整後的範圍。
- expression.Resize(RowSize, ColumnSize)
- expression 必選。該運算式傳回要調整大小的 Range 物件。
- RowSize 選擇性的 Variant。新範圍中所包含的列數。如果省略此引數,範圍中的列數保持不變。
- ColumnSize 選擇性的 Variant。新範圍中所包含的欄數。如果省略此引數,範圍中的欄數保持不變。
- 範例
- 此範例調整 Sheet1 中選擇範圍的大小,使之增加一列和一欄。
- Worksheets("Sheet1").Activate
- numRows = Selection.Rows.Count
- numColumns = Selection.Columns.Count
- Selection.Resize(numRows + 1, numColumns + 1).Select
-
- 此範例假設在 Sheet1 中有一個包含標題列的表格。此範例選定該表格,但不選定標題列。執行此範例之前,現用儲存格必須處於該表格中。
- Set tbl = ActiveCell.CurrentRegion
- tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
- tbl.Columns.Count).Select
複製代碼 |
|