Πώς να αντιγράψετε ή να μετακινήσετε φύλλα χρησιμοποιώντας κώδικα VBA στο Excel για Mac

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 288402 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

Μπορείτε να χρησιμοποιήσετε το Microsoft κώδικα Visual Basic for Applications (VBA) για να αντιγράψετε ή να μετακινήσετε φύλλα μέσα σε ένα βιβλίο εργασίας ή μεταξύ βιβλίων εργασίας. Αυτό είναι ιδιαίτερα χρήσιμο εάν θέλετε να μετακινήσετε ή να αντιγράψετε πολλά φύλλα ή εάν θέλετε να δημιουργήσετε πολλά αντίγραφα ενός φύλλου.

Αυτό το άρθρο παρέχει δείγματα κώδικα VBA για να ολοκληρώσετε αυτές τις εργασίες.

Περισσότερες πληροφορίες

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, ρητή ή σιωπηρή. Αυτό περιλαμβάνει αλλά δεν περιορίζεται σε σιωπηρών εγγυήσεων εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες ούτε θα δημιουργήσουν διαδικασίες για να ικανοποιεί συγκεκριμένες απαιτήσεις σας. Σημείωση Στο Microsoft Excel 2001 για Macintosh χωρίς Microsoft Office 2001 για Mac Service Release 1, πρέπει να τοποθετήσετε τον κώδικα σε ένα ξεχωριστό βιβλίο εργασίας από τα φύλλα που αντιγράφονται.

Excel 2001 για Macintosh αντιμετώπισε ένα πρόβλημα όταν ο κώδικας VBA που αντιγράφει τα φύλλα είναι στο ίδιο βιβλίο εργασίας, όπως τα φύλλα που αντιγράφεται.

Αυτό το ζήτημα έχει επιλυθεί με Service Release 1 για το Microsoft Office 2001 για Mac. Για πρόσθετες πληροφορίες σχετικά με αυτό το ζήτημα στο Excel 2001 για Mac, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
286266Excel σταματά να ανταποκρίνεται όταν επιχειρείτε να αντιγράψετε το φύλλο εργασίας στο ίδιο βιβλίο εργασίας
:

Δείγμα κώδικα για να αντιγράψετε φύλλα εργασίας

Αντιγράψετε ένα συγκεκριμένο φύλλο του ενεργού βιβλίου εργασίας

Sub Copier1()
    'Replace "Sheet1" with the name of the sheet to be copied.
    ActiveWorkbook.Sheets("Sheet1").Copy _
       after:=ActiveWorkbook.Sheets("Sheet1")
End Sub
				

Αντιγράψετε ένα συγκεκριμένο φύλλο του ενεργού βιβλίου εργασίας πολλές φορές


Sub Copier2()
    Dim x As Integer
    
    x = InputBox("Enter number of times to copy Sheet1")
    For numtimes = 1 To x
        'Loop by using x as the index number to make x number copies.
        'Replace "Sheet1" with the name of the sheet to be copied.
        ActiveWorkbook.Sheets("Sheet1").Copy _
           After:=ActiveWorkbook.Sheets("Sheet1")
    Next
End Sub
				

Αντιγράψτε το ActiveSheet πολλές φορές

Sub Copier3()
   Dim x As Integer
   
   x = InputBox("Enter number of times to copy active sheet")
   For numtimes = 1 To x
      'Loop by using x as the index number to make x number copies.
      ActiveWorkbook.ActiveSheet.Copy _
         Before:=ActiveWorkbook.Sheets("Sheet1")
         'Put copies in front of Sheet1.
         'Replace "Sheet1" with sheet name that you want.
   Next
End Sub
				

Αντιγράψτε όλα τα φύλλα στο βιβλίο εργασίας μία φορά

Sub Copier4()
   Dim x As Integer

   For x = 1 To ActiveWorkbook.Sheets.Count
      'Loop through each of the sheets in the workbook
      'by using x as the sheet index number.
      ActiveWorkbook.Sheets(x).Copy _
         After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
         'Puts all copies after the last existing sheet.
   Next
End Sub
				

Δείγμα κώδικα για να μετακινήσετε φύλλα εργασίας

Μετακινήσετε το ενεργό φύλλο σε νέα θέση στο βιβλίο εργασίας

Sub Mover1()
    ActiveSheet.Move _
       After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
       'Moves active sheet to end of active workbook.
End Sub
				

Μετακίνηση του ενεργού φύλλου σε άλλο βιβλίο εργασίας

Sub Mover2()
    ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)
    'Moves active sheet to beginning of named workbook.
    'Replace Test.xls with the full name of the target workbook you want.
End Sub
				

Μετακινήσετε πολλά φύλλα ActiveWorkbook σε άλλο βιβλίο εργασίας

Sub Mover3()
   Dim BkName As String
   Dim NumSht As Integer
   Dim BegSht As Integer

   'Starts with second sheet - replace with index number of starting sheet.
   BegSht = 2
   'Moves two sheets - replace with number of sheets to move.
   NumSht = 2
   BkName = ActiveWorkbook.Name
    
    For x = 1 To NumSht
      'Moves second sheet in source to front of designated workbook.
      Workbooks(BkName).Sheets(BegSht).Move _
         Before:=Workbooks("Test.xls").Sheets(1)
         'In each loop, the next sheet in line becomes indexed as number 2.
      'Replace Test.xls with the full name of the target workbook you want.
    Next
End Sub
				

Αναφορές

Microsoft Excel Χ για Mac και νεότερες εκδόσεις

Για περισσότερες πληροφορίες σχετικά με τη μέθοδο αντιγραφής, από την Επεξεργασία Visual Basic, κάντε κλικ στο κουμπί Αναζήτηση στη Βοήθεια του Microsoft Visual Basic από το Βοήθεια μενού, πληκτρολογήστε μέθοδος αντιγραφής, κάντε κλικ στο κουμπί Αναζήτηση, και στη συνέχεια κάντε κλικ για να προβάλετε "Αντιγραφή μέθοδος". Παρατίθενται τα τρία θέματα. Διαλέξτε εκείνο που ισχύει για φύλλα εργασίας.

Για περισσότερες πληροφορίες σχετικά με τη μέθοδο Move, από την Επεξεργασία Visual Basic, κάντε κλικ στο κουμπί Αναζήτηση στη Βοήθεια του Microsoft Visual Basic από το Βοήθεια μενού, πληκτρολογήστε Μετακίνηση μέθοδος, κάντε κλικ στο κουμπί Αναζήτηση, και στη συνέχεια κάντε κλικ για να προβάλετε "Μετακίνηση της μεθόδου". Παρατίθενται τα τρία θέματα. Διαλέξτε εκείνο που ισχύει για φύλλα εργασίας.

Excel 2001 για Macintosh

Για περισσότερες πληροφορίες σχετικά με τη μέθοδο αντιγραφής, από την Επεξεργασία Visual Basic, κάντε κλικ στο Βοηθό του Office, πληκτρολογήστε μέθοδος αντιγραφής, κάντε κλικ στο κουμπί Αναζήτηση, και στη συνέχεια κάντε κλικ για να προβάλετε "Αντιγραφή μέθοδο (MS Excel VBA)".

Για περισσότερες πληροφορίες σχετικά με τη μέθοδο Move, από την Επεξεργασία Visual Basic, κάντε κλικ στο Βοηθό του Office, πληκτρολογήστε Μετακίνηση μέθοδος, κάντε κλικ στο κουμπί Αναζήτηση, και στη συνέχεια κάντε κλικ για να προβάλετε "Μετακίνηση μέθοδο (MS Excel VBA)".

Για πρόσθετες πληροφορίες σχετικά με προβλήματα με την αντιγραφή φύλλων εργασίας που περιέχει κώδικα στο ίδιο βιβλίο εργασίας, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
286266 XL2001: Excel "κολλάει" όταν προσπαθείτε να αντιγράψετε το φύλλο εργασίας στο ίδιο βιβλίο εργασίας

Microsoft Excel 98 Macintosh Edition

Για περισσότερες πληροφορίες σχετικά με τη μέθοδο αντιγραφής, από την Επεξεργασία Visual Basic, κάντε κλικ στο Βοηθό του Office, πληκτρολογήστε μέθοδος αντιγραφής, κάντε κλικ στο κουμπί Αναζήτηση, και στη συνέχεια κάντε κλικ για να προβάλετε "Αντιγραφή μέθοδο (Excel 97)".

Για περισσότερες πληροφορίες σχετικά με τη μέθοδο Move, από την Επεξεργασία Visual Basic, κάντε κλικ το Βοηθός του Office, πληκτρολογήστε Μετακίνηση μέθοδος, κάντε κλικ στο κουμπί Αναζήτηση, και στη συνέχεια κάντε κλικ για να προβάλετε "Μετακίνηση μέθοδο (Excel 97)".

Ιδιότητες

Αναγν. άρθρου: 288402 - Τελευταία αναθεώρηση: Πέμπτη, 6 Οκτωβρίου 2011 - Αναθεώρηση: 7.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X for Mac
  • Microsoft Excel 2001 για Mac
  • Microsoft Excel 98 για Macintosh
Λέξεις-κλειδιά: 
dftsdahomeportal kbinfo kbmt KB288402 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:288402

Αποστολή σχολίων

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com