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

[µo°Ý] ¦p¦óÅýÅܼƶ]°j°é?

[µo°Ý] ¦p¦óÅýÅܼƶ]°j°é?

  1. Private Sub CommandButton3_Click()
  2. T1R1 = "¤p©ú"
  3. '¸ê®ÆÂà´«
  4. For i = 1 To 18
  5.     If Me.Controls("OptionButton" & i).Value = True Then
  6.         If i = 1 Then
  7.         Sheets("ÂIÀ\").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 7) = Array(L1C, L2C, L3C, L4C, 1, "T1R" & i, TB1)
  8.         End If
  9.     End If
  10. Next i
  11. End Sub
½Æ»s¥N½X
"T1R" & i ¶]¥X¨Óªº­È¤@ª½³£¬OT1R1~
¥i¬O§Ú¤W­±¦³¼g¤@­ÓÅܼÆT1R1="¤p©ú"
©Ò¥H"T1R" & i ¶]¥X¨Óªº­ÈÀ³¸Ó¬O¤p©ú~«ç»ò·|¬OT1R1 ? ¨D¸Ñ¤¤~§Ú¤]§V¤O§ä¸ê®Æ¤¤~¦A¦¸³Â·Ð¦U¦ì¤j¤jÆ[¬Ý!

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD