- Private Sub CommandButton3_Click()
- T1R1 = "¤p©ú"
- '¸ê®ÆÂà´«
- For i = 1 To 18
- If Me.Controls("OptionButton" & i).Value = True Then
- If i = 1 Then
- Sheets("ÂIÀ\").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 7) = Array(L1C, L2C, L3C, L4C, 1, "T1R" & i, TB1)
- End If
- End If
- Next i
- 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Æ[¬Ý! |