GBKEE

¦^´_ 1# PKKO

1. Option Explicit
   
2. Private Sub UserForm_Click() '¦bªí³æ¤W«ö¤U¥ªÁ䪺¨Æ¥ó
   
3.     Ex
   
4. End Sub
   
5. Private Sub Ex()
   
6.     Dim i As Integer, f As Control
   
7.     With MultiPage1
   
8.         .Value = 0          'MultiPage1ªºÅã¥Ü¬° ²Ä¤@­¶
   
9.         For i = 0 To .Count - 1
   
10.             For Each f In .Pages(i).Controls
    
11.                 Select Case TypeName(f)  '±±¨î¶µªº¦WºÙ
    
12.                     Case "OptionButton", "CheckBox", "ToggleButton"
    
13.                         f.Value = False
    
14.                     Case "TextBox"
    
15.                         f.Value = ""
    
16.                 End Select
    
17.             Next
    
18.         Next
    
19.     End With
    
20. End Sub

½Æ»s¥N½X