[發問] 插入欄位的控制

caichen3

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

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

register313

回復 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

回復 2# register313


    感謝R大大的幫助:D

caichen3

請問各位大大:假設想在第一列按插入
會新增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

回復 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

回復 5# register313


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