·L½Õ«ö¶s

sillykin

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

Kubi

¦^´_ 1# sillykin

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

¤U¸ü¦¸¼Æ: 6

2017-3-5 20:40

GBKEE

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

sillykin

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

sillykin

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

GBKEE

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

sillykin

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