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

·L½Õ«ö¶s

optionbutton¤p¤p°ÝÃD

¤£ª¾¨ºÃä¥X°ÝÃD¡A¯à§_°ª¤âÀ°¬Ý¤@¤U

OptionButton.rar (30.7 KB)

TOP

¦^´_ 1# sillykin

½Ð°Ñ¦Ò
OptionButton-1.rar (27.81 KB)

TOP

  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sh As Worksheet, E
  4.     For Each Sh In Sheets
  5.         If Sh.Name <> "¤u§@ªí1" Then
  6.             For Each E In Sh.OptionButtons
  7.                 If Trim(E.Caption) = "ªÅ¥Õ" Then E.Value = True
  8.             Next
  9.         End If
  10.     Next
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁÂKubi¡BGBKEEªº¦^ÂÐ..
¯÷¦]¦b¤u§@ªí¤ÎUSERFORMªº¨Ï¥Î¤è¦¡³£¤£¤Ó¤@¼Ë
À³¸Ó¬O»¡±±¨î¤¸¥óªº¦]¯À§a!!
¦b³o¸Ì¾Ç²ß«Ü¦h...·PÁ¤j¤j­@¤ßªº±Ð¾É

TOP

·L½Õ«ö¶s

¥»©«³Ì«á¥Ñ sillykin ©ó 2017-3-6 23:40 ½s¿è

·L½Õ«ö¶s¦p¦óÂk0©O??
¥»Àɮפ¤¶È¸Õ°µ¤@­Ó·L½Õ«ö¶s,¦ý¦p¦ó¸Õ°µ¦h­Ó·L½Õ«ö¶s,­n¦p¦ó¤@¦¸Âk0©O??
³æ­Ó¤Î¦h­ÓÂk0¤è¦¡

·L½Õ«ö¶s.rar (14.22 KB)

¦^´_ 5# sillykin

­×§ï3#ªºµ{¦¡½X
  1. Sub Ex()
  2.     Dim Sh As Worksheet, E  As Spinner  '·L½Õ«ö¶s
  3.     For Each Sh In Sheets
  4.         If Sh.Name <> "¤u§@ªí1" Then
  5.             For Each E In Sh.Spinners
  6.                 E.Value = E.Min '³Ì¤p­È
  7.                 'E.Value = E.Max '³Ì¤j­È
  8.                 'E.Value = E.Max - E.Min
  9.             Next
  10.         End If
  11.     Next
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁÂGBKEE­@¤ßªº¦^ÂÐ

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD