- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 16
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
5#
發表於 2014-8-16 08:31
| 只看該作者
回復 1# bobomi
應該是要用 :
Columns( 3 ).delete
的格式才是正確的.
(我猜它是直接拿 range 的格式來套用才發生這樣的烏龍, Columns 與 Rows 沒有第二個參數, 多列<欄>的表示方式是 ("1:5") , 括號中間要用字串的形式才會接受)
===== 以下是 Office 2000 的說明 =====
參照列和欄
請參閱特定可用 Rows 屬性或 Columns 屬性處理整列或整欄。這兩個屬性傳回代表儲存格範圍的 Range 物件。以下範例中，用 Rows(1) 傳回工作表 Sheet1 上的第一列，然後將 Font 物件的 Bold 屬性設定為 True。
Sub RowBold()
Worksheets("Sheet1").Rows(1).Font.Bold = True
End Sub
下列表格表示使用 Rows 屬性和 Columns 屬性的一些列和欄參照。
參照 意義
Rows(1) 第一列
Rows 工作表上所有的列
Columns(1) 第一欄
Columns("A") 第一欄
Columns 工作表上所有的欄
如果要同時處理若干列或欄，可先建立一個物件變數，然後用 Union 方法把對 Rows 屬性或 Columns 屬性的多個呼叫組合起來。下列範例將使用中活頁簿中第一張工作表上的第一列、第三列和第五列的字型設定為粗體。
Sub SeveralRows()
Worksheets("Sheet1").Activate
Dim myUnion As Range
Set myUnion = Union(Rows(1), Rows(3), Rows(5))
myUnion.Font.Bold = True
End Sub
===== 以上是 Office 2000 的說明 =====
其實類似的烏龍還有很多,
例如它對 Dictionary 用法的舉例:
下面的程式碼舉例說明了如何建立一個 Dictionary 物件：
Dim d '建立一個變數
Set d = CreateObject(Scripting.Dictionary)
d.Add "a", "Athens" '加入一些關鍵字和項目
d.Add "b", "Belgrade"d.Add "c", "Cairo"
...
到了 Office 2003 還是一樣錯誤的舉例(更後面的版本有沒有修正我就不清楚了).
剛開始還是新手學 Excel VBA 時,
那行 Set d = CreateObject(Scripting.Dictionary)
應該要寫成 Set d = CreateObject("Scripting.Dictionary")
就只是少了兩個雙引號,
足足浪費了我一個小時的時間找問題點. |
|
發表於 2014-8-11 14:00
| 
