返回列表 上一主題 發帖

[發問] 如何刪除控制項

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-3-26 15:56 | 顯示全部帖子
回復 3# caichen3
  1. Private Sub CommandButton5_Click()
  2.     Dim E As Object
  3.     For Each E In ActiveSheet.OLEObjects
  4.         If E.Name Like "OptionButton*" Then
  5.             If E.Object.GroupName = 4 Then E.Delete
  6.         End If
  7.     Next
  8. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-3-28 15:37 | 顯示全部帖子
本帖最後由 GBKEE 於 2012-3-28 15:53 編輯

回復 13# caichen3
為什麼我選取編號4按下刪除會同時將編號4、5一起刪除呢？幫你查看控制項的群組如下 GroupName=5 有10個OptionButton控制項
請你先用 Ex 的程式調整在同一列上的OptionButton  用列號設定為同一群組
用 Ex 的程式調整後再執行你的Private Sub CommandButton5_Click()
  1. OptionButton2  GroupName=1
  2. OptionButton1  GroupName=1
  3. OptionButton4  GroupName=1
  4. OptionButton3  GroupName=1
  5. OptionButton5  GroupName=1
  6. OptionButton11  GroupName=2
  7. OptionButton6  GroupName=2
  8. OptionButton7  GroupName=2
  9. OptionButton8  GroupName=2
  10. OptionButton9  GroupName=2
  11. OptionButton10  GroupName=3
  12. OptionButton13  GroupName=3
  13. OptionButton12  GroupName=3
  14. OptionButton17  GroupName=3
  15. OptionButton14  GroupName=3
  16. OptionButton15  GroupName=4
  17. OptionButton16  GroupName=4
  18. OptionButton18  GroupName=4
  19. OptionButton20  GroupName=4
  20. OptionButton19  GroupName=4
  21. OptionButton21  GroupName=5
  22. OptionButton22  GroupName=5
  23. OptionButton23  GroupName=5
  24. OptionButton26  GroupName=5
  25. OptionButton24  GroupName=5
  26. OptionButton25  GroupName=5
  27. OptionButton27  GroupName=5
  28. OptionButton28  GroupName=5
  29. OptionButton29  GroupName=5
  30. OptionButton30  GroupName=5
  31. OptionButton31  GroupName=6
  32. OptionButton32  GroupName=6
  33. OptionButton33  GroupName=6
  34. OptionButton34  GroupName=6
  35. OptionButton35  GroupName=6
  36. Sub Ex()  '在同一列上的OptionButton 以列號設定為同一群組
  37. Dim ob As OLEObject
  38. For Each ob In ActiveSheet.OLEObjects
  39.   If ob.Name Like "OptionButton*" Then   '
  40.     ob.Object.GroupName = ob.TopLeftCell.Row
  41.   End If
  42. Next
  43. End Sub
複製代碼
執行的Private Sub CommandButton5_Click() 須修改如下
  1. Private Sub CommandButton5_Click()
  2. Dim yyy As String
  3. Dim XXX As String
  4. Dim k As Integer
  5. Dim ob As Object
  6. gyou=Selection.Row
  7. ActiveSheet.Rows(gyou).ClearContents
  8. Range("I1").Value = Range("I1").Value - 1
  9. TMMPA = Range("I1").Value
  10. aaa = Chr(65)
  11. ccc = Chr(67)
  12. For I = 2 To 100
  13. XXX = I
  14. Range(aaa + XXX).Value = ("")
  15. Range(ccc + XXX).Value = ("")
  16. Next
  17. ActiveSheet.Range("A2:H200").Borders.LineStyle = XILinestyleNone
  18. ActiveSheet.Range("A2:H200").Interior.ColorIndex = xlColorIndexNone

  20. For R = 1 To TMMPA
  21. yyy = R + 1
  22. Range(aaa + yyy).Value = R
  23. Range(ccc + yyy).Value = R
  24. Next
  25. ActiveSheet.Range("A2:H" + yyy).Borders.LineStyle = xlContinuous
  26. ActiveSheet.Range("A2:H" + yyy).Borders(xlEdgeBottom).Weight = xlThick
  27. ActiveSheet.Range("A2:H" + yyy).Borders(xlEdgeRight).Weight = xlThick
  28. ActiveSheet.Range("A2:H" + yyy).Borders(xlEdgeLeft).Weight = xlThick
  29. ActiveSheet.Range("A2:A" + yyy).Interior.ColorIndex = 15
  30. For Each ob In ActiveSheet.OLEObjects
  31.   If ob.Name Like "OptionButton*" Then
  32.     If ob.Object.GroupName = Selection.Row Then ob.Delete
  33.   End If
  34. Next
  35. Selection.EntireRow.Delete   '刪除整列
  36. Ex        '***  再度的 將 在同一列上的OptionButton  用 [列號]設定為同一群組
  37. End Sub
複製代碼

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題