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

[µo°Ý] ¦³Ãö©ó°j°ésheets

[µo°Ý] ¦³Ãö©ó°j°ésheets

½Ð±Ð¦U¦ì¤j¨Ð¡A§Ú¶}¤F«Ü¦hsheets¡A¦U¦³¨ä¦WºÙ¡A±q¨C¤@­Ósheets¦U½Æ»s©T©wªºÀx¦s®æ¨ì²Ä¤@­Ósheet¡A©Ò¥H§Ú·Q¨ì¥Î°j°é
¤£¹L«o¹J¨ì°ÝÃD¡G fail.JPG
¤U¦C¬O§Úªºµ{¦¡½X¡A½Ð°Ý¬O­þÃä¥X°ÝÃD¡A©Î¬O¦³¨ä¥L§ó¦nªº¤èªk¥i¥H§¹¦¨³oµ{¦¡??
½Ð¦U¦ì¤j¨Ð¤£§[½ç±Ð~ÁÂÁÂ~

    Private Sub CommandButton1_Click()
    Dim a As Integer
    For a = 2 To 5
        Sheets(a).Select
        Range(Cells(3, 2), Cells(5, 11)).Select
        Selection.Copy
        Sheets(1).Select
        Range(Cells(3, 2), Cells(5, 11)).Select
        ActiveSheet.Paste
    Next
    End Sub

¸É¥R¤@¤U~·íµM§Ú¬O·Q­n±q²Ä¤G­Ósheet¶}©l±N¨ä¸ê®Æ¨Ì§Ç¶K¨ìsheet1
¦]¬°¦b¤@¶}©l­n±qsheet2ªº¸ê®Æ½Æ»s¨ìsheet1´N¦³°ÝÃD

©Ò¥H±µ¤U¨Óªºcode¨Ã¨S¦³­×§ï

TOP

¦U¦ì¤j¤j

¤W­Ó´Z©Ò«á..§Ú´N¤w¸gµo²{°ÝÃDÂI¤F...
¦]¬°§Ú¤W­±ªºµ{¦¡½X¬O¼g¦bMicrosoft Excel ª«¥óªº sheet1 ¸Ì­±
·í§Ú±Nµ{¦¡½X©ñ¦b¼Ò²Õ¤º´N¥i¥H¥¿±`work

¦ý¬O§Ú¤´¤£©ú¥Õ¬°¦ó­n¦h¤@­Ó¨BÆJ??
§Æ±æ¦U¦ì¤j¨Ð¯àÀ°¦£¸Ñµª¡AÁÂÁÂ

TOP

¦^´_ 2# a703130
¤£ª¾¹D¦³¨S¦³·|¿ù·N
  1. Private Sub CommandButton1_Click()
  2.     Dim a As Integer
  3.     For a = 2 To 5
  4.         With Sheets(a)
  5.         .Range(.Cells(3, 2), .Cells(5, 11)).Copy Sheets(1).Cells(3 + (a - 2) * 3, 2)
  6.         End With
  7.     Next
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# a703130
§Aªºµ{§Ç¦b¬Osheet1ª«¥ó¼Ò²Õ
·íSheets(a).Select «á
°õ¦æRange(Cells(3, 2), Cells(5, 11)).Select
³o¸ÌªºRange(Cells(3, 2), Cells(5, 11))¬O«üsheet1¤u§@ªíªº½d³ò·íµM·|¥X¿ù

§A±Nµ{§Ç²¾¨ì¤@¯ë¼Ò²Õ Range»PCells ¬O«ü§@¥Î¤¤ªº¤u§@ªíSheets(a)½d³ò ©Ò¥H¤£·|¦³¿ù»~
Sheet1ª«¥ó¼Ò²Õ ¦p¤W¼Ó Hsieh            With Sheets(a)
                                     . Range(.Cells(3, 2), .Cells(5, 11)).....
               ´N¬O©ú¨º¤@¤u§@ªíªº½d³ò¤£©ö¥X¿ù

TOP

§Ú¤F¸Ñ·N«ä¤F

Range(Cells(3, 2), Cells(5, 11)).Select
¥u¬O³æ¯Â¦Asheet1¸Ì­±©Ò¿ï¾Üªº
¦ý¬O§Úªº°j°é«o«ü©w¨ì¤Fsheet(a)
Ãø©Ç°õ¦æ·|¦³°ÝÃD¡A¤]ÁÂÁ Hsieh ¤jÀ°¦£

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD