ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] °õ¦æCommandButton¦p¦óÅý©Ò¦³ToggleButton­È¬°False

[µo°Ý] °õ¦æCommandButton¦p¦óÅý©Ò¦³ToggleButton­È¬°False

  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

¦^´_ 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

TOP

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD