隨心所欲新增列與控制項 - Excel程式區

[發問] 隨心所欲新增列與控制項

論壇貢獻勳章

1^# 跳轉到 »

發表於 2012-5-22 14:00 | 顯示全部帖子

先回一下"第2/3個"問題
2. 把現時選上的row和checkbox delete (checkbox 用top來定位)

Dim objCurrRow As Object
Dim intCurrTop As Long
Dim intNextTop As Long
With Selection
intCurrTop = .Top
intNextTop = .Offset(1, 0).Top
End With
For Each s In ActiveSheet.Shapes
If s.Top >= intCurrTop And s.Top < intNextTop And Left(s.Name, 8) = "CheckBox" Then
s.Delete
End If
Next
Selection.EntireRow.Delete

複製代碼

3.
"當我在所在列按下「插入」，所在列本來的核取方塊並不會往下移，而是在下一列新增核取方塊是為什麼呢？？"
把
k = gyou + 1
換成
k = gyou
試試...

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

靜思自在 : 世上有兩件事不能等：一、孝順二、行善。