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

[µo°Ý] ¦p¦óÅý°j°é©ÒŪ¨ú¨ìªº¸ê®Æ³£Åã¥Ü¹L? (G¤j,ÁÂÁ§A)

[µo°Ý] ¦p¦óÅý°j°é©ÒŪ¨ú¨ìªº¸ê®Æ³£Åã¥Ü¹L? (G¤j,ÁÂÁ§A)

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-27 10:43 ½s¿è

For i = 1 To 18
    If Me.Controls("OptionButton" & i).Value = True Then   
    TextBox1 = i & "ÁʶR"
End Sub

¦pªGi=1,3,6,8,15,16
§Ú¸Ó¦p¦óÅýTextBox1 Åã¥Ü1,3,6,8,15,16ÁʶR

¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-25 23:13 ½s¿è

¦^´_ 2# GBKEE


    ÁÂÁÂG¤j~

§Ú¥i§_¶¶«K¸ß°Ý¤@¤U~
Sheets("ÂIÀ\").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 7)
3 2 1 1 7 ¤À§O¬O»¡©ú¦a¤èªº?§Ú¥uª¾¹D7¦n¹³¬O¦@7Äæªº·N«ä?

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD