[發問] 如何刪除控制項

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

3^#

發表於 2012-3-26 15:22 | 只看該作者

選項按鈕是以vba程式的方式加入，右邊的按鈕是以[開發人員]/[插入]/[active X 按制項]的方式加入，
若我有5組選項按鈕，要刪除GroupName=4，程式碼如下：

Private Sub CommandButton5_Click()
ActiveSheet.Shapes.Item(4).Delete
End Sub

當我執行時，結果便會將右邊的按鈕刪除，是為什麼呢？

123.JPG (67.74 KB)

寶寶

GBKEE

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-3-26 15:56 | 只看該作者

回復 3# caichen3

Private Sub CommandButton5_Click()
Dim E As Object
For Each E In ActiveSheet.OLEObjects
If E.Name Like "OptionButton*" Then
If E.Object.GroupName = 4 Then E.Delete
End If
Next
End Sub

複製代碼

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 245
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-11

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-3-26 16:03 | 只看該作者

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

回復 3# caichen3

以你的圖片上所顯示的按鈕標題字串規則可利用題號來區別

Sub Del_Opt()
Dim k%
k = InputBox("欲刪除的群組", , 4)
For Each ob In ActiveSheet.OLEObjects
If ob.progID = "Forms.OptionButton.1" Then
If Val(ob.Object.Caption) = k Then ob.Delete '題號與k值相同就刪除
End If
Next
End Sub

複製代碼

學海無涯_不恥下問

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

6^#

發表於 2012-3-26 16:30 | 只看該作者

感謝各位大大的回覆喔

寶寶

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

7^#

發表於 2012-3-27 16:24 | 只看該作者

本帖最後由 caichen3 於 2012-3-27 17:38 編輯

請問各位大大
我有5項需求陳述(圖1)，當我按下右邊"刪除"按鈕，刪除第4項需求陳述，圖畫呈現如圖2，若希望將圖2下面選項按鈕依序往上排列該如何呢？？
以下是我的程式碼：
rivate Sub CommandButton5_Click()
gyou = Selection.Row
ActiveSheet.Rows(gyou).ClearContents
Range("I1").Value = Range("I1").Value - 1
TMMPA = Range("I1").Value
aaa = Chr(65)
ccc = Chr(67)
Dim yyy As String
Dim XXX As String
Dim k As Integer
Dim ob As Object

For I = 2 To 100
XXX = I
Range(aaa + XXX).Value = ("")
Range(ccc + XXX).Value = ("")
Next
ActiveSheet.Range("A2:H200").Borders.LineStyle = XILinestyleNone
ActiveSheet.Range("A2:H200").Interior.ColorIndex = xlColorIndexNone

For R = 1 To TMMPA
yyy = R + 1
Range(aaa + yyy).Value = R
Range(ccc + yyy).Value = R
Next
ActiveSheet.Range("A2:H" + yyy).Borders.LineStyle = xlContinuous
ActiveSheet.Range("A2:H" + yyy).Borders(xlEdgeBottom).Weight = xlThick
ActiveSheet.Range("A2:H" + yyy).Borders(xlEdgeRight).Weight = xlThick
ActiveSheet.Range("A2:H" + yyy).Borders(xlEdgeLeft).Weight = xlThick
ActiveSheet.Range("A2:A" + yyy).Interior.ColorIndex = 15

k = gyou - 1
For Each ob In ActiveSheet.OLEObjects
If ob.Name Like "OptionButton*" Then
If ob.Object.GroupName = k Then ob.Delete
End If
Next

End Sub

1.JPG (60.73 KB)

2.JPG (54.29 KB)

寶寶

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 245
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-11

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2012-3-27 17:41 | 只看該作者

回復 7# caichen3

ob.Object.GroupName = k
但是你在建立選項按鈕時給他的GroupName是只有數字嗎?

學海無涯_不恥下問

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

9^#

發表於 2012-3-27 17:54 | 只看該作者

嗯~我後來將每個選項按鈕的GroupName都改為數字

寶寶

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 245
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-11

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2012-3-27 18:12 | 只看該作者

回復 9# caichen3
把檔案附上才能了解問題所在

學海無涯_不恥下問