- 帖子
- 11
- 主題
- 4
- 精華
- 0
- 積分
- 21
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2011
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-5-5
- 最後登錄
- 2015-6-27
|
表格中第一列的某一個儲存格叫"右方插入三欄"
想在這個儲存格右邊插入三欄
我的Code:- Private Sub CommandButton4_Click()
- Dim J As Integer
- J = 1
- Do Until Cells(1, J) = "右方插入三欄"
- J = J + 1
- Loop
- Columns(J + 1 & Chr(58) & J + 3).Select '這邊顯示應用程式或物件定義上錯誤
- Selection.Insert Shift:=xlToRight
- End Sub
http://forum.twbts.com/viewthrea ... ht=%B4%A1%A4J%C4%E6
,最後一句改成這樣就沒問題了- Private Sub CommandButton4_Click()
- Dim J As Integer
- J = 1
- Do Until Cells(1, J) = "右方插入三欄"
- J = J + 1
- Loop
- Cells(1, J + 1).Resize(, 3).EntireColumn.Insert
- End Sub
不過還是想弄懂自己的code為什麼會錯誤
想請大家指點,謝謝:) |
|
發表於 2015-1-2 16:40
| 
