register313

¦^´_ 1# man65boy

1. Private Sub CommandButton1_Click()
   
2. R = TextBox1
   
3. With Sheets("¸ê®Æ")
   
4.   .[B2:B4] = Application.Transpose(Sheets("¾÷¥x«¬¦¡").Range("A" & R & ":" & "C" & R))
   
5.   .[C6] = Sheets("¾÷¥x«¬¦¡").Cells(R, "D")
   
6.   .[F6] = Sheets("¾÷¥x«¬¦¡").Cells(R, "E")
   
7.   .[C8] = Sheets("¾÷¥x«¬¦¡").Cells(R, "F")
   
8.   .[F8] = Sheets("¾÷¥x«¬¦¡").Cells(R, "G")
   
9.   .[F10] = Sheets("¾÷¥x«¬¦¡").Cells(R, "H")
   
10. End With
    
11. End Sub

½Æ»s¥N½X

1. Private Sub CommandButton1_Click()
   
2. AR = Array("B2", "B3", "B4", "C6", "F6", "C8", "F8", "F10")
   
3. For I = 1 To 8
   
4.   Sheets("¸ê®Æ").Range(AR(I - 1)) = Sheets("¾÷¥x«¬¦¡").Cells(TextBox1, I)
   
5. Next I
   
6. End Sub

½Æ»s¥N½X