[µo°Ý] [µo°Ý] Ãö©ó OptionButton ´`Àô®Ö¿ï°ÝÃD

mark15jill

°ÝÃD
­Y¦bÀô¹Ò¤¤<Userform2>¡AÂIÀ»Button1 ¡A¦^¨ìUserform1 ¡A¦ý­ì¥ý¦bUserform1©ÒÂIÀ»ªºOptionButton1®Ö¿ï­n«ç¨ú®ø¡H
¦³¸ÕµÛ¦bUserform2¤º¹w¥ý±±¨îUserform1ªºOptionbutton1®Ö¿ïª¬ºA®ø°£¡A¦ý¦ü¥G­þÃä°µ¿ù¡C
³Â·Ð¦U¦ì¤j¤j±Ð¾É¡AÁÂÁ¡C
Àô¹Ò¡G
Userform1¤º
OptionButton1  <ÂI¿ï«á¶}±ÒUserform2¡A¨Ã±NUserform1ÁôÂÃ>
OptionButton2  <ÂI¿ï«á¶}±ÒUserform3¡A¨Ã±NUserform1ÁôÂÃ>

Userform2¤º
Button1 <ÂI¿ï«á¶}±ÒUserform1¡A¨Ã±NUserform2ÁôÂÃ>

Userform3¤º
Button1 <ÂI¿ï«á¶}±ÒUserform1¡A¨Ã±NUserform3ÁôÂÃ>

µ{¦¡½X¡G(­ì¥ýª©¥»)
Userform1¤ºPrivate Sub OptionButton1_Click()
    If OptionButton1.Value = True Then
        Me.Hide
        UserForm2.Show
    End If   
End Sub

Private Sub OptionButton2_Click()
    If OptionButton2.Value = True Then
        Me.Hide
        UserForm3.Show
    End IfEnd Sub

Userform2¤º
Private Sub CommandButton1_Click()
    Me.Hide
    UserForm1.Show
End Sub

Userform3¤º
Private Sub CommandButton1_Click()
    Me.Hide
    UserForm1.Show
End Sub

GBKEE

¦^´_ 1# mark15jill
UserForm1

1. Option Explicit
   
2. Private Sub OptionButton1_Click()
   
3.     If OptionButton1.Value = True Then
   
4.         OptionButton1.Value = False
   
5.         Me.Hide
   
6.         UserForm2.Show
   
7.     End If
   
8. End Sub
   
9. Private Sub OptionButton2_Click()
   
10.     If OptionButton2.Value = True Then
    
11.         OptionButton2.Value = False
    
12.         Me.Hide
    
13.         UserForm3.Show
    
14.     End If
    
15. End Sub

½Æ»s¥N½X

mark15jill

¦^´_ 2# GBKEE

¤j¤j ÁÂÁ±оÉ...
¤p§Ì·Q±o¤Ó²`¤F£¾£¾ §Ñ°O³æ¯ÂValue ´N¥i¥H¸Ñ¨M¡C
ÁÙ¤@­È¦b¨ºÃäOptionbutton2.Checked=false ...QQ"