標題: [發問] 插入欄位的控制 [打印本頁]

---

作者: caichen3    時間: 2012-5-29 13:56     標題: 插入欄位的控制

本帖最後由 caichen3 於 2012-5-29 13:57 編輯

如果在第2列按"插入 "：於第二列新增2個欄位並且合併儲存格，第三列新增二欄(不合併)
如果在第3列按"插入 "：只在第三列新增一個欄位

range("A2")是總共使用幾個欄位

---

作者: register313    時間: 2012-5-29 14:16

回復 1# caichen3

1. Private Sub CommandButton3_Click()
   
2. If Selection.Row = 2 Then
   
3.    Selection.EntireColumn.Insert
   
4.    Selection.EntireColumn.Insert
   
5.    Selection.Resize(1, 2).Merge
   
6. ElseIf Selection.Row = 3 Then
   
7.    Selection.EntireColumn.Insert
   
8. End If
   
9. Range("A2").Value = Range("A2").Value + 1
   
10. End Sub

複製代碼

---

作者: caichen3    時間: 2012-5-29 14:49

回復 2# register313


    感謝R大大的幫助:D

---

作者: caichen3    時間: 2012-6-3 14:37

本帖最後由 caichen3 於 2012-6-3 14:40 編輯

請問各位大大:假設想在第一列按插入
會新增6列，第一列全部合併，第2 列每2列合併,該如何控制第2列呢??
Private Sub CommandButton3_Click()
If Selection.Row = 1 Then
   Selection.EntireColumn.Insert
  Selection.EntireColumn.Insert
  Selection.EntireColumn.Insert
  Selection.EntireColumn.Insert
  Selection.EntireColumn.Insert
  Selection.EntireColumn.Insert
   Selection.Resize(1, 6).Merge



elseIf Selection.Row = 2 Then
   Selection.EntireColumn.Insert
   Selection.EntireColumn.Insert
   Selection.Resize(1, 2).Merge
ElseIf Selection.Row = 3 Then
   Selection.EntireColumn.Insert
End If

End Sub

---

作者: register313    時間: 2012-6-3 15:30

回復 4# caichen3

1. Private Sub CommandButton3_Click()
   
2. If Selection.Row = 1 Then
   
3.    Selection.Resize(1, 6).EntireColumn.Insert
   
4.    Selection.Offset(1, 0).Resize(1, 2).Merge
   
5.    Selection.Offset(1, 2).Resize(1, 2).Merge
   
6.    Selection.Offset(1, 4).Resize(1, 2).Merge
   
7.    Selection.Resize(1, 6).Merge
   
8. End If
   
9. End Sub

複製代碼

---

作者: caichen3    時間: 2012-6-3 15:50

回復 5# register313


    感謝R大大，受益良多:D

---

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