返回列表 上一主題 發帖

[發問] 如何刪除控制項

本帖最後由 Hsieh 於 2012-3-26 16:04 編輯

回復 3# caichen3


    以你的圖片上所顯示的按鈕標題字串規則可利用題號來區別
  1. Sub Del_Opt()
  2. Dim k%
  3. k = InputBox("欲刪除的群組", , 4)
  4. For Each ob In ActiveSheet.OLEObjects
  5. If ob.progID = "Forms.OptionButton.1" Then
  6.    If Val(ob.Object.Caption) = k Then ob.Delete '題號與k值相同就刪除
  7. End If
  8. Next
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 7# caichen3

ob.Object.GroupName = k
但是你在建立選項按鈕時給他的GroupName是只有數字嗎?
學海無涯_不恥下問

TOP

回復 9# caichen3
把檔案附上才能了解問題所在
學海無涯_不恥下問

TOP

回復 11# caichen3
你要刪除的是選取儲存格那一列的群組嗎?
For Each ob In ActiveSheet.OLEObjects
  If ob.Name Like "OptionButton*" Then
    If ob.TopLeftCell.Row = gyou Then ob.Delete
  End If
Next
Cells(gyou, 1).Resize(, 8).Delete xlShiftUp
學海無涯_不恥下問

TOP

回復 13# caichen3

play.gif
學海無涯_不恥下問

TOP

回復 17# caichen3

是的,以選項按紐位置做判斷
所以你說會有重複刪除的狀況,我就不知道你是怎麼做的
學海無涯_不恥下問

TOP

回復 19# caichen3
看動畫
按鈕放在第4列就是4
第5列就是5
play.gif
學海無涯_不恥下問

TOP

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題