[µo°Ý] ¦p¦ó±NOptionButton§PÂ_§ï¦¨TextBox§PÂ_?

av8d

1.     On Error Resume Next
   
2. 
   
3.     For I = 6 To 21
   
4. 
   
5.         If Me.Controls("OptionButton" & I).Value = True Then
   
6. 
   
7.             Set Ws = Sheets("" & I + 2006 & "")
   
8. 
   
9.             If Ws Is Nothing Then
   
10. 
    
11.                 ThisWorkbook.Sheets.Add().Name = "" & I + 2006 & ""
    
12.             
    
13.                 Sheets("2012").Select
    
14.             
    
15.                 Cells.Copy Sheets("" & I + 2006 & "").[A1]
    
16.         
    
17.                 Sheets("" & I + 2006 & "").Select
    
18.         
    
19.                 Range("A1").Formula = I + 2006
    
20. 
    
21.                 Call test
    
22. 
    
23.                 Unload Me
    
24.             
    
25.                 Call ShowMsgBox
    
26. 
    
27.             Else
    
28.         
    
29.                 Ws.Select
    
30.         
    
31.                 Range("A1").Formula = I + 2006
    
32. 
    
33.                 Call test
    
34. 
    
35.                 Unload Me
    
36.             
    
37.                 Call ShowMsgBox
    
38. 
    
39.             End If
    
40.         End If
    
41. 
    
42.     Next

½Æ»s¥N½X

¥H¤W¬O§PÂ_OptionButtonªºµ{¦¡½X~¦pªG§Ú±NOptionButton§ï¦¨TextBox~¥B¤£»Ý­n§PÂ_
ª½±µ±Ë¥h
For I = 6 To 21

        If Me.Controls("OptionButton" & I).Value = True Then
ª½±µ§PÂ_~¸Ó¦p¦ó°µ?¦]¬°§Ú­×§ï«á°õ¦æµo²{¾ã­Ó°õ¦æ³t«×Åܱo«ÜºC~