返回列表 上一主題 發帖

[發問] 插入欄位的控制

caichen3

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

[發問] 插入欄位的控制

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

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

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

123.rar (32.42 KB)

收藏 分享
寶寶

caichen3

帖子
80 
主題
27 
精華
0 
積分
108 
點名
0  
作業系統
windows 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-3-6 
最後登錄
2012-8-23 
2#
發表於 2012-5-29 14:49 | 顯示全部帖子
回復 2# register313


    感謝R大大的幫助:D
寶寶

TOP

caichen3

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

TOP

caichen3

帖子
80 
主題
27 
精華
0 
積分
108 
點名
0  
作業系統
windows 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-3-6 
最後登錄
2012-8-23 
4#
發表於 2012-6-3 15:50 | 顯示全部帖子
回復 5# register313


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

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題