- 帖子
- 80
- 主題
- 27
- 精華
- 0
- 積分
- 108
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-3-6
- 最後登錄
- 2012-8-23
|
本帖最後由 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 |
|
發表於 2012-5-29 13:56
| 
