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

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