¦p¦ó§PÂ_FOR+IF°j°éªºELSE

av8d

¥H¤U¬OFOR+IF°j°é·íTrueªº®É­Ô°µ~
For i = 19 To 36
    If Controls("OptionButton" & i) = True Then
    TextBox1 = TextBox1 & " " & Controls("OptionButton" & i).Caption & "¡q" & CommandButton9.Caption & "¡r"
    Controls("OptionButton" & i).Value = False
    Exit For
    End If
Next i
¨º¦pªG³£OptionButton³£¨S¦³³Q¿ï¨úªº®É­Ô°µ~§Ú¸Ó«ç»ò¼g?
§Ú¦Û¦æ§ï¼g«á~¥¢±Ñ~¦p¤U
For i = 19 To 36
    If Controls("OptionButton" & i) = True Then
    TextBox1 = TextBox1 & " " & Controls("OptionButton" & i).Caption & "¡q" & CommandButton9.Caption & "¡r"
    Controls("OptionButton" & i).Value = False
    Exit For
    Else
    TextBox1 = CommandButton9.Caption
    End If
Next i

av8d

¦^´_ 1# av8d


    ¦Û¦æ§ä¥X°ÝÃD¤F~ÁÂÁÂ!

av8d

¦^´_ 2# av8d


    ¥Ñ©ó3¤ÀÄÁ¤ºµLªk½s¿è~§Ú¦b¦¹Ä~Äò´£°Ý~

¦p¦ó±NLabel3.Captionªº¤º®e¨ú«e­±¤T­Ó¦r?

¦pªG§ÚªºLabel3.Caption¤º®e¬OA1.¤û¦×ÄÑ
¤@¯ë§Ú­Ì¤U¨ç¼Æ¬OLeft~¦pªG¬O­n¨úLabel3.Caption«e¤T­Ó¦r~
µª®×¬OA1.
§Ú¸Ó¦p¦ó¨ú¦r?

lalalada

¦^´_  av8d


    ¥Ñ©ó3¤ÀÄÁ¤ºµLªk½s¿è~§Ú¦b¦¹Ä~Äò´£°Ý~

¦p¦ó±NLabel3.Captionªº¤º®e¨ú«e­±¤T­Ó¦r?
...
av8d µoªí©ó 2012-7-29 23:14

...¬Ý¤£À´­C?
©Ò¥H§A¬O­n¨ú"A1." ÁÙ¬O"¤û¦×ÄÑ"

GBKEE

¦^´_ 3# av8d
Mid(Label3.Caption, 1, 3)
¦h¬d¬ÝVBA »¡©ú,½m²ß½d¨Ò ·|¶i¨Bªº