ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð±Ð¦U¦ì¥ý¶i¦h­ÓOptionButton³]©w

½Ð±Ð¦U¦ì¥ý¶i¦h­ÓOptionButton³]©w

§Úªºµ{¦¡­n¼g¦¨¨Ï¥ÎOptionButton°µ¿ï¶µ:
¦bframe5¤¤¦³5­ÓOptionButton,¿ï¾Ü¤F¤§«á±µ¤U¨Ó·|¨ìframe28 ¤S·|¦³2­ÓOptionButton°µ¿ï¾Ü
µ{¦¡¦p¤U:
²Ä¤@²ÕOptionButton
'------------------------------
flg = False
i = 1
For Each opt1 In Frame5.Controls
    If opt1.Value = True Then
        flg = True
        C_Index = opt1.Caption
        Exit For
    End If
    If i = 6 And flg = False Then
        mybtn = MsgBox(mymsg5, vbExclamation, mytitle)
        Exit Sub
    End If
i = i + 1
Next
'---------------------
¤¤¶¡¦³¨ä¥Lµ{¦¡
'---------------------
²Ä¤G²ÕOptionButton

flg = False
iE = 1
For Each opt2 In Frame28.Controls
    If opt2.Value = True Then   '-----------------------°õ¦æ¨ì³o¤@¦æ«oÅã¥Ü:°õ¦æ¶¥¬q¿ù»~ '438'  ª«¥ó¤£¤ä´©¦¹ÄݩʩΤèªk
        flg = True                                                                              ½Ð°Ý§Ú¸Ó¦p¦ó§ï?
        PR_Index = opt2.Caption
        Exit For
    End If

    If iE = 2 And flg = False Then
        mybtn = MsgBox(mymsg6, vbExclamation, mytitle)
        Exit Sub
    End If
iE = iE + 1
Next

¦^´_ 1# acdx
If TypeName(opt2) = "OptionButton" then       '¥ý½T©wopt2¬OOptionButton±±¨î¶µ
    If opt2.Value Then  '¤~¯à½T©w¥¦¦³ValueÄÝ©Ê
        flg = True                                                                              
        PR_Index = opt2.Caption
        Exit For
    End If
End if

TOP

¦^´_ 2# stillfish00

¨ú¥©ªk
¥[ on error resume next
¥i¦æ¶Ü¡H
ss

TOP

¦^´_ 3# sunnyso

³o¤@©Û¯u¬O§®ªü~°ª©Û
Á°Õ

TOP

¦^´_ 2# stillfish00


¥[¤Jfish00 ¤j¤jªº±ø¥ó¦¡«áµo²{
For Each opt2 In Frame28.Controls·|±qOptionButton11¶}©lÀˬd
¦Ó§ÚªºOptionButton11~16¬O¦bframe5¤¤, OptionButton17~18¬O¦bframe28¤¤
©Ò¥H·í§Ú­ncheck frame28¤¤ªºOptionButton®Éµ{¦¡·|¥ý±qOptionButton11,12,13.....,17,18Àˬd
·í§ÚªºUserform¸Ì¦³¦h­Óframe§t¦³OptionButton®É¸Ó¦p¦óÁקKµ{¦¡¨C¦¸³£¥Ñ²Ä¤@­Ó(OptionButton11)¶}©lÀˬd?
¦p¦ó«ü©wµ{¦¡¥ÑOptionButton17¶}©lÀˬd?

TOP

¦^´_ 5# acdx
·í§ÚªºUserform¸Ì¦³¦h­Óframe§t¦³OptionButton®É¸Ó¦p¦óÁקKµ{¦¡¨C¦¸³£¥Ñ²Ä¤@­Ó(OptionButton11)¶}©lÀˬd?

µ{¦¡¤£·|±q²Ä¤@­ÓÀˬd
For Each opt2 In Frame28.Controls
³o¬O¹ï©Ò¦³¦bFrame28¤º³¡ªº±±¨î¶µ¡A°£«D§AªºFrame5¤S¦bFrame28¤º³¡¡A§_«hÀ³¸Ó¤£·|¦³§A»¡ªº±¡ªp¡C

¨º¡A°²³]Frame5¯uªº¦bFrame28¤º³¡¡A
§A¥u·QÀˬdFrame28¤º²Ä¤@¼hªºOptionButton(¤£§t¤lFrame¤º³¡ªºOptionButton)
¥i¥H¥Î..
For Each opt2 In Frame28.Controls
    If opt2.parent is Frame28 and TypeName(opt2) = "OptionButton" then
³o¼Ë¥h¿z¿ï

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD