麻辣家族討論版版 » Excel程式區 » 插入欄位前的運算

返回列表下一主題上一主題發帖

[發問] 插入欄位前的運算

小學生 Rank: 1

帖子: 11
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: win7
軟體版本: office2011
閱讀權限: 10
性別: 男
註冊時間: 2011-5-5
最後登錄: 2015-6-27

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-1-2 16:40 | 只看該作者

[發問] 插入欄位前的運算

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

我的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為什麼會錯誤
想請大家指點,謝謝:)

樓主熱帖

收藏

MPEG

中學生 Rank: 2

帖子: 59
主題: 5
精華: 0
積分: 75
點名: 127
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 基隆
註冊時間: 2012-7-5
最後登錄: 2024-5-10

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

2^#

發表於 2015-1-5 10:30 | 只看該作者

回復 1# mpegwmvavi

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

小學生 Rank: 1

帖子: 11
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: win7
軟體版本: office2011
閱讀權限: 10
性別: 男
註冊時間: 2011-5-5
最後登錄: 2015-6-27

3^#

發表於 2015-1-6 23:04 | 只看該作者

回復 2# ashan0418

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

MPEG

靜思自在 : 君子為目標，小人為目的。

返回列表下一主題上一主題