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

TextBox1´M§ä¦C¼Æ¸ê®Æ

TextBox1´M§ä¦C¼Æ¸ê®Æ

½Ð±Ð¦U¦ì¦Ñ®v­Ì¡A¥i§_¯à§Q¥Î¦bTextBox1¿é¤J¼Æ­È¡A´N§â¥L¤@¾ã¦Cªº¸ê®Æ¶Ç¨ì"¸ê®Æ"¬¡­¶ªº«ü©wÀx¦s®æ¸Ì¡C
Ãþ¦üindexªºÀ³¥Î¡A¦³³Ò¦Ñ®v­Ì¨ó§U!
20120625.rar (12.69 KB)

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

TOP

¦^´_ 2# register313


    ·PÁÂregister313¦Ñ®vªº2­Óµ{¦¡¸ÑÃD¡AÅý¤p§Ì¤S¥i¦h¦hÆ[¼¯°Ñ¦Ò¾Ç²ß¡A·PÁ§A!

TOP

¦^´_ 3# man65boy
¤]¥i¥H¦p¦¹
  1. Option Explicit
  2. Private Sub CommandButton1_Click()
  3.     Dim Ar(), i As Integer
  4.     With Sheets("¸ê®Æ")
  5.         Ar = Array(.[B2], .[B3], .[B4], .[C6], .[F6], .[C8], .[F8], .[F10])
  6.     End With
  7.     For i = 1 To 8
  8.         Ar(i - 1).Value = Sheets("¾÷¥x«¬¦¡").Cells(TextBox1, i)
  9.     Next i
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE


    ¤]ÁÂÁÂGBKEE¦Ñ®vªºµ{¦¡¡AÅý¤p§Ì¤S¦h¤F¥i°O¿ý¤U¨Ó¾Ç²ßªºÀ³¥Î¡AÁÂÁ§A~~

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD