[發問] 請問如何在插入新的一列時, 作為觸發事件?

　暱稱: Josh

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-12-1 19:06 | 只看該作者

Hello, all

小弟第一次發問, 有任何言詞不當的地方請不吝指正.

如上圖,
我想在Row47到50之間插入一新列, 並作為事件觸發另一個指令,
在有數字的欄位中貼上指定的公式 (因為單純插入一列, 公式不會自動承襲上一列).

但不知道可以用什麼語法來觸發"插入一列"這個事件,
請各位大神不吝解惑.

Many thanks...
Josh

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2017-12-2 15:51 | 只看該作者

回復 1# joshzhong
試試看
工作表上的預設事件(儲存格有改變所觸動事件)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Set Rng = Range("C45:H50") '指定插入新的一列的範圍
If Target.Columns.Count = Rng.Columns.Count Then
'Columns.Count:傳回範圍內欄位的總數
'Rows.Count:傳回範圍內列位的總數
If Not Intersect(Rng, Target) Is Nothing And Target.Rows.Count = 1 Then
'Intersect 方法傳回 ***[Range 物件]***，此物件代表兩個或多個範圍重疊的矩形範圍。
' Target.Rows.Count = 1 '一列的範圍
If Target.Cells(1).Column = Rng.Cells(1).Column And Target.Cells(Target.Cells.Count).Column = Rng.Cells(Rng.Cells.Count).Column Then
'Target.Cells(1).Column = Rng.Cells(1).Column
'插入新的一列的第一個欄號=指定插入新的一列的範圍的第一個欄號
'Target.Cells(Target.Cells.Count).Column = Rng.Cells(Rng.Cells.Count).Column
'插入新的一列的最後一個欄號 = 指定插入新的一列的範圍的最後一個欄號
MsgBox Target.Address
End If
End If
End If
End Sub