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

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

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

¥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

¦^´_ 1# av8d


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

TOP

¦^´_ 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?

TOP

¦^´_  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"¤û¦×ÄÑ"

TOP

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

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD