[µo°Ý] ¦p¦óÅýUserform ©Î¬O MultiPage «ì´_¨ìUserform1.show ªºª¬ºA

PKKO

¦]¬°¬Y­Ó¿ï¶µ,¿ï¤F¤§«á©Ò¦³¸ê®Æ³£­n¥ý²MªÅ(¦^¨ì­ì©lª¬ºA)

¦ý¦]¬°MultiPage¤Wªº­ì¥ó¤Ó¦h,¤@­Ó¤@­Ó²M¦³ÂI¨¯­W
¥Îª«¥óÃþ§O²M¤]¥i¥H,¦ý¬O¦³³\¦h¤£¦PªººØÃþ

À³¸Ó¦³§ó»´ÃPªºµ{¦¡½X,¥i¥HÅý¦o¦^¨ìuserform1.show ªº®É­Ô§a?(©Ò¦³¸ê®Æ³£²MªÅ)

PKKO

¦^´_ 2# GBKEE
·PÁ¶Wª©¤j¤j,®Ú¾Ú±zªºµ{¦¡½X,§Ú·s¼W¤FComboBox µM«á¥[¤W¤@­Ó±ø¥ó,¥i¥H§¹¥þ²Å¦X§Úªº»Ý¨D,·PÁ®@!

1.     '²M°£¸ê®Æ
   
2.     Dim i As Integer, f As Control
   
3.     With MultiPage1
   
4.         .Value = 0: i = 0       'MultiPage1ªºÅã¥Ü¬° ²Ä¤@­¶
   
5.             For Each f In .Pages(i).Controls
   
6.                 Select Case TypeName(f)  '±±¨î¶µªº¦WºÙ
   
7.                     Case "OptionButton", "CheckBox", "ToggleButton"
   
8.                         f.Value = False
   
9.                     Case "TextBox", "ComboBox"
   
10.                         If f.Name <> "KEY1" Then f.Value = ""
    
11.                 End Select
    
12.             Next
    
13.     End With

½Æ»s¥N½X

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