- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 1# man65boy - Private Sub CommandButton1_Click()
- R = TextBox1
- With Sheets("¸ê®Æ")
- .[B2:B4] = Application.Transpose(Sheets("¾÷¥x«¬¦¡").Range("A" & R & ":" & "C" & R))
- .[C6] = Sheets("¾÷¥x«¬¦¡").Cells(R, "D")
- .[F6] = Sheets("¾÷¥x«¬¦¡").Cells(R, "E")
- .[C8] = Sheets("¾÷¥x«¬¦¡").Cells(R, "F")
- .[F8] = Sheets("¾÷¥x«¬¦¡").Cells(R, "G")
- .[F10] = Sheets("¾÷¥x«¬¦¡").Cells(R, "H")
- End With
- End Sub
½Æ»s¥N½X- Private Sub CommandButton1_Click()
- AR = Array("B2", "B3", "B4", "C6", "F6", "C8", "F8", "F10")
- For I = 1 To 8
- Sheets("¸ê®Æ").Range(AR(I - 1)) = Sheets("¾÷¥x«¬¦¡").Cells(TextBox1, I)
- Next I
- End Sub
½Æ»s¥N½X |
|