標題: [發問] 插入欄位前的運算 [打印本頁]

---

作者: mpegwmvavi    時間: 2015-1-2 16:40     標題: 插入欄位前的運算

表格中第一列的某一個儲存格叫"右方插入三欄"
想在這個儲存格右邊插入三欄

我的Code:

1. Private Sub CommandButton4_Click()
   
2. Dim J As Integer
   
3. J = 1
   
4. Do Until Cells(1, J) = "右方插入三欄"
   
5. J = J + 1
   
6. Loop
   
7. Columns(J + 1 & Chr(58) & J + 3).Select  '這邊顯示應用程式或物件定義上錯誤
   
8. Selection.Insert Shift:=xlToRight
   
9. End Sub

複製代碼

搜尋了版上的舊文
http://forum.twbts.com/viewthrea ... ht=%B4%A1%A4J%C4%E6
,最後一句改成這樣就沒問題了

1. Private Sub CommandButton4_Click()
   
2. Dim J As Integer
   
3. J = 1
   
4. Do Until Cells(1, J) = "右方插入三欄"
   
5. J = J + 1
   
6. Loop
   
7. Cells(1, J + 1).Resize(, 3).EntireColumn.Insert
   
8. End Sub

複製代碼

雖然問題解決了
不過還是想弄懂自己的code為什麼會錯誤
想請大家指點,謝謝:)

---

作者: ashan0418    時間: 2015-1-5 10:30

回復 1# mpegwmvavi


列可以 rows("1:3").select 這樣的連續選取，
但欄卻不可以 columns("1:3").select 的方式選取，
欄必須以 columns("A:C").select 的方式才行!!

---

作者: mpegwmvavi    時間: 2015-1-6 23:04

回復 2# ashan0418


    的確是啊,沒想清楚,謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)