返回列表 上一主題 發帖

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

caichen3

帖子
80 
主題
27 
精華
0 
積分
108 
點名
0  
作業系統
windows 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-3-6 
最後登錄
2012-8-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-22 13:32 | 顯示全部帖子

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

請教大大們~
若想要在目前儲存格按下「插入」按鈕，會插入新的一列，並且在新的一列中會新增一列核取方塊？
在目前儲存格按下「刪除」按鈕，會刪除整列包括所在列的核取方塊？？
Private Sub 插入_Click()
Dim i As Integer
Dim k As Integer
Dim ob As OLEObject
Dim xR  As Range

With ActiveSheet
gyou = Selection.Row
ActiveSheet.Rows(gyou ).Insert
Range("M1").Value = Range("M1").Value + 1

k = gyou + 1
Set xR = Cells(k, 3)
For i = 1 To 3
    Select Case i
        Case "1"
        mystr = "功能性需求"
        Case "2"
        mystr = "感官性需求"
        Case "3"
        mystr = "隱藏需求"
    End Select
   
    With xR.Offset(, i)
         Set ob = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
         ob.Object.Caption = mystr
    End With
Next

End With
End Sub

當我在所在列按下「插入」，所在列本來的核取方塊並不會往下移，而是在下一列新增核取方塊是為什麼呢？？

6-11(new).rar (113.44 KB)

收藏 分享
寶寶

caichen3

帖子
80 
主題
27 
精華
0 
積分
108 
點名
0  
作業系統
windows 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-3-6 
最後登錄
2012-8-23 
2#
發表於 2012-5-23 12:48 | 顯示全部帖子
感謝k大大的幫助
有沒有什麼方法可將控制項往下移呢？  
Dim objCurrRow As Object
Dim intCurrTop As Long
With Selection
        intCurrTop = .Top
End With
   
For Each s In ActiveSheet.Shapes
        If s.Top >= intCurrTop Then
            s.offset(1,0)
        End If
Next

希望是將所在列以下(包括所在列)的控制項全部往下移一列
寶寶

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題