[µo°Ý] °õ¦æCommandButton¦p¦óÅý©Ò¦³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

½Æ»s¥N½X

½Ð°Ý¤W¦Cªºµ{¦¡½X¡A­n¦p¦óÅý¥L§óºë²©O¡H
Àµ½Ð½ç±Ð¡AÁÂÁ¡I

owen06

¦^´_ 1# oao


¦buserform©³¤U³o¼Ë¼g¬O¥i¥H¡A¦ý¦b¤u§@ªí©³¤U´N¤£ª¾¹D¸Ó«ç»ò§ï¤~¯à°õ¦æ¤F

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

½Æ»s¥N½X

oao

¦^´_ 2# owen06
§Ú¦bºô¸ô¤W§ä¤F«Ü¤[¡A¤]§ä¤£¨ì¸Ñµª¡AÁÂÁ±zªº¼ö¤ß¡I·P®¦¡C

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

½Æ»s¥N½X

oao

¦^´_ 4# GBKEE
·PÁÂGBKEE¶W¯Åª©¥D©âªÅ¦^´_Åý°ÝÃDªï¤b¦Ó¸Ñ¡A«Ü°ª¿³¦b³Â»¶®a±Ú¤S¾Ç¨ì¤@©Û¡A¨ü±Ð¤F¡A¯uªº·P®¦¡AÁÂÁÂGBKEEª©¥D¡C