[發問] 執行CommandButton如何讓所有ToggleButton值為False

oao

1. Private Sub CommandButton1_Click()
   
2. With ActiveSheet
   
3. .ToggleButton1.Value = False
   
4. .ToggleButton2.Value = False
   
5. .ToggleButton3.Value = False
   
6. .ToggleButton4.Value = False
   
7. .ToggleButton5.Value = False
   
8. .ToggleButton6.Value = False
   
9. .ToggleButton7.Value = False
   
10. .ToggleButton8.Value = False
    
11. .ToggleButton9.Value = False
    
12. .ToggleButton10.Value = False
    
13. .ToggleButton11.Value = False
    
14. .ToggleButton12.Value = False
    
15. .ToggleButton13.Value = False
    
16. .ToggleButton14.Value = False
    
17. .ToggleButton15.Value = False
    
18. End With
    
19. End Sub

複製代碼

請問上列的程式碼，要如何讓他更精簡呢？
懇請賜教，謝謝！

oao

回復 4# GBKEE
感謝GBKEE超級版主抽空回復讓問題迎刃而解，很高興在麻辣家族又學到一招，受教了，真的感恩，謝謝GBKEE版主。

GBKEE

回復 3# oao

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     Dim E As OLEObject
   
4.     For Each E In ActiveSheet.OLEObjects
   
5.         If E.progID = "Forms.ToggleButton.1" Then
   
6.             E.Object.Value = False
   
7.         End If
   
8.     Next
   
9. End Sub

複製代碼

oao

回復 2# owen06
我在網路上找了很久，也找不到解答，謝謝您的熱心！感恩。

owen06

回復 1# oao


在userform底下這樣寫是可以，但在工作表底下就不知道該怎麼改才能執行了

1. Private Sub CommandButton1_Click()
   
2. For I = 1 To 15
   
3. UserForm1.Controls("togglebutton" & I).Value = False
   
4. Next
   
5. End Sub

複製代碼