標題: [發問] commandbutton隨儲存格移動 [打印本頁]

---

作者: caichen3    時間: 2012-6-5 11:13     標題: commandbutton隨儲存格移動

請位各位大大~
如何將commandbutton隨著儲存格移動呢？？
按鈕放置於A3:A4，在第二列按下插入，按鈕會自動往下移至A4:A5

---

作者: GBKEE    時間: 2012-6-5 11:50

回復 1# caichen3


    [attach]11260[/attach]

---

作者: caichen3    時間: 2012-6-5 21:13

回復 2# GBKEE


    但將按鈕屬性設成"大小位置隨儲格存而變"為什麼按鈕依然不動呢？？

---

作者: register313    時間: 2012-6-5 23:02

回復 3# caichen3

[attach]11274[/attach]

---

作者: GBKEE    時間: 2012-6-6 08:09

回復 3# caichen3

1. Private Sub CommandButton1_Click()
   
2. Dim x As Integer
   
3. Dim k As Integer
   
4. Dim xxx As String
   
5. x = UserForm1.ComboBox1.Value
   
6. k = Range("H1").Value
   
7. If x > k Then
   
8.    x = x - k
   
9.    For i = 1 To x
   
10.        '***Range("A3:G3").Insert
    
11.        Range("A3").EntireRow.Insert
    
12.    Next
    
13. ElseIf x < k Then
    
14.    x = k - x
    
15.    For i = 1 To x
    
16.        '**Range("A3:G3").Delete
    
17.        Range("A3").EntireRow.Delete
    
18.    Next
    
19. End If

複製代碼

---

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