Note: The other languages of the website are Google-translated. Back to English

Πώς να αντιγράψετε πολλά φύλλα πολλές φορές στο Excel;

Μερικές φορές, ενδέχεται να χρειαστεί να δημιουργήσουμε ένα αντίγραφο ή πολλά αντίγραφα συγκεκριμένων φύλλων εργασίας σε ένα βιβλίο εργασίας. Ακολουθούν ορισμένοι γρήγοροι τρόποι για να σας βοηθήσουν να αντιγράψετε εύκολα ένα φύλλο εργασίας ή πολλά φύλλα εργασίας πολλές φορές στο Excel.


Δημιουργήστε ένα αντίγραφο πολλαπλών φύλλων εργασίας μία φορά σε ενεργό βιβλίο εργασίας ή άλλο βιβλίο εργασίας με εντολή Μετακίνηση ή Αντιγραφή

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

1. Στο συγκεκριμένο βιβλίο εργασίας όπου θα αντιγράψετε φύλλα εργασίας, επιλέξτε πολλά φύλλα εργασίας στη γραμμή καρτέλας φύλλων.
Note: Κράτημα CTRL κλειδί, μπορείτε να επιλέξετε πολλές γειτονικές καρτέλες φύλλων κάνοντας κλικ σε αυτές μία προς μία στη γραμμή καρτέλας φύλλων. κράτημα SHIFT Πλήκτρο, μπορείτε να επιλέξετε πολλές γειτονικές καρτέλες φύλλων κάνοντας κλικ στην πρώτη καρτέλα φύλλου και την τελευταία στη γραμμή καρτέλας Φύλλο.

2. Κάντε δεξί κλικ στην επιλεγμένη καρτέλα φύλλων στη γραμμή καρτέλας φύλλων και επιλέξτε Μετακίνηση ή Αντιγραφή από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:
doc αντίγραφο πολλαπλών φύλλων 01

3. Στην Μετακίνηση ή Αντιγραφή πλαίσιο διαλόγου, προσδιορίστε τις ακόλουθες ρυθμίσεις:
(1) Προσδιορίστε το βιβλίο εργασίας προορισμού στο οποίο θα αντιγράψετε τα φύλλα εργασίας από το Να κάνετε κράτηση αναπτυσσόμενη λίστα. Μπορείτε να επιλέξετε το ενεργό βιβλίο εργασίας, ένα άλλο ανοιχτό βιβλίο εργασίας ή ένα νέο βιβλίο εργασίας όπως χρειάζεστε.
(2) Καθορίστε τη θέση των αντιγραμμένων φύλλων στη γραμμή Tab Sheet, μπορείτε να επιλέξετε μετά από όλα τα υπάρχοντα φύλλα.
(3) Έλεγχος Δημιουργήστε ένα αντίγραφο επιλογή, εάν δεν ενεργοποιήσετε αυτήν την επιλογή, τα επιλεγμένα φύλλα εργασίας θα μετακινηθούν στο βιβλίο εργασίας προορισμού.
(4) Κάντε κλικ στο OK κουμπί.

Τώρα θα κάνει μόνο ένα αντίγραφο των επιλεγμένων φύλλων εργασίας στο καθορισμένο βιβλίο εργασίας. Για να δημιουργήσετε πολλά αντίγραφα αυτών των φύλλων εργασίας, μπορείτε να επαναλάβετε τη λειτουργία πολλές φορές.

Μόνο πολλά κλικ για να δημιουργήσετε πολλά αντίγραφα πολλαπλών φύλλων εργασίας στο ενεργό βιβλίο εργασίας

Γενικά, μπορούμε να αντιγράψουμε πολλά φύλλα εργασίας με το Μετακίνηση ή Αντιγραφή δυνατότητα στο Excel. Ωστόσο, αυτή η δυνατότητα μπορεί να δημιουργήσει μόνο ένα αντίγραφο κάθε φορά. Εδώ, με το Kutools για Excel Αντιγραφή φύλλων εργασίας βοηθητικό πρόγραμμα, μπορείτε εύκολα να δημιουργήσετε όσα αντίγραφα πολλών φύλλων εργασίας χρειάζεστε στο ενεργό βιβλίο εργασίας μόνο με πολλά κλικ.


αντίγραφο διαφημίσεων πολλαπλών φύλλων εργασίας 01

Kutools για Excel - Περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel. Δωρεάν δοκιμή πλήρους δυνατότητας 30-Ημέρα, δεν απαιτείται πιστωτική κάρτα! Παρ'το Τώρα

Κάντε πολλά αντίγραφα ενός καθορισμένου φύλλου εργασίας σε ενεργό βιβλίο εργασίας με κωδικό VBA

Εάν θέλετε να δημιουργήσετε 10 αντίγραφα ενός καθορισμένου φύλλου εργασίας, το Μετακίνηση ή Αντιγραφή Η εντολή θα είναι χρονοβόρα και πρέπει να επαναλάβετε τη λειτουργία πολλές φορές. Αλλά με τον ακόλουθο κώδικα VBA, μπορείτε να αντιγράψετε γρήγορα το φύλλο εργασίας 10 φορές ταυτόχρονα.

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο παράθυρο της ενότητας.

VBA: Μετατρέψτε πολλά αντίγραφα συγκεκριμένων φύλλων εργασίας σε ενεργό βιβλίο εργασίας

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Note: Στον παραπάνω κώδικα, αντικαταστήστε το "Sheet1"με το όνομα του φύλλου που θα αντιγραφεί.

3. Στη συνέχεια πατήστε F5 για να εκτελέσετε τον κωδικό, εμφανίζεται ένα πλαίσιο προτροπής που σας ρωτάει τον αριθμό των αντιγράφων φύλλων που θέλετε.

4. Στη συνέχεια κάντε κλικ στο κουμπί OK, το καθορισμένο φύλλο εργασίας έχει αντιγραφεί 100 φορές στο ενεργό βιβλίο εργασίας.


Κάντε πολλά αντίγραφα πολλαπλών φύλλων εργασίας σε ενεργό βιβλίο εργασίας με το Kutools για Excel

Παρόλο που είναι απλό να δημιουργήσετε ένα αντίγραφο πολλών φύλλων εργασίας στο Excel, εάν θέλετε να δημιουργήσετε πολλά αντίγραφα πολλών φύλλων εργασίας στο τρέχον βιβλίο εργασίας, ίσως χρειαστεί να χρησιμοποιήσετε το Μετακίνηση ή Αντιγραφή αντικείμενο εντολής ξανά και ξανά. Θέλετε να τελειώσετε με ένα κλικ; Με το Αντιγραφή φύλλων εργασίας χρησιμότητα του πρόσθετου τρίτου μέρους Kutools για Excel, μπορείτε να δημιουργήσετε πολλά αντίγραφα πολλαπλών φύλλων εργασίας με ένα κλικ στο Excel.

Kutools για Excel - Περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel. Δωρεάν δοκιμή πλήρους δυνατότητας 30-Ημέρα, δεν απαιτείται πιστωτική κάρτα! Παρ'το Τώρα

1. Κλίκ Kutools Plus > Αντιγραφή φύλλων εργασίας. Δείτε το στιγμιότυπο οθόνης:

Note: Κάνοντας κλικ Kutools Plus > Φύλλο εργασίας > Αντιγραφή φύλλων εργασίας θα λάβει επίσης αυτήν τη δυνατότητα.

2. Εφαρμογή ρυθμίσεων στο Αντιγραφή πολλαπλών φύλλων εργασίας κουτί διαλόγου:
(1) Ελέγξτε τα φύλλα εργασίας από τα οποία θέλετε να αντιγράψετε Αντιγράψτε τα επιλεγμένα φύλλα εργασίας τμήμα.
(2) Καθορίστε Ο αριθμός των αντιγράφων.
(3) Προσδιορίστε τη θέση των αντιγραμμένων φύλλων, για παράδειγμα, πριν ή μετά από όλα τα φύλλα εργασίας, πριν ή μετά το τρέχον φύλλο εργασίας.
(4) Κάντε κλικ στο Ok κουμπί.

3. Εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι τα επιλεγμένα φύλλα εργασίας έχουν αντιγραφεί πολλές φορές όπως χρειάζεστε, κάντε κλικ στο OK κουμπί για έξοδο. Δείτε το στιγμιότυπο οθόνης:

Αυτός ο διαλογισμός στα Αντιγραφή πολλαπλών φύλλων εργασίας χαρακτηριστικό του Kutools για Excel θα δημιουργήσει πολλά αντίγραφα πολλαπλών καθορισμένων φύλλων εργασίας στο ενεργό βιβλίο εργασίας με πολλά μόνο κλικ. Κάντε μια δωρεάν δοκιμή!


Κάντε ένα αντίγραφο πολλαπλών φύλλων εργασίας από πολλά βιβλία εργασίας σε νέο

Εάν έχετε εγκαταστήσει το Kutools για Excel, μπορείτε επίσης να το εφαρμόσετε Συνδυάστε φύλλα εργασίας δυνατότητα να γίνει ένα αντίγραφο πολλαπλών φύλλων εργασίας από πολλά κλειστά βιβλία εργασίας σε ένα νέο βιβλίο εργασίας με αρκετά κλικ μόνο στο Excel.

Kutools για Excel - Περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel. Δωρεάν δοκιμή πλήρους δυνατότητας 30-Ημέρα, δεν απαιτείται πιστωτική κάρτα! Παρ'το Τώρα

1. Κλίκ Kutools Plus > Συνδυασμός για να ενεργοποιήσετε τη λειτουργία Combine Sheets.

2. Στο Combine Sheets Works - Step 1 of 3 wizard, ελέγξτε το Συνδυάστε πολλά φύλλα εργασίας από βιβλία εργασίας σε ένα φύλλο εργασίας και κάντε κλικ στο Επόμενο κουμπί. Δείτε το στιγμιότυπο οθόνης:

3. Στο Combine Sheets Works - Step 2 of 3 wizard, κάντε το παρακάτω στιγμιότυπο οθόνης που εμφανίζεται:
(1) Κάντε κλικ Προσθέτω > φιλέτο or Folder για να προσθέσετε βιβλία εργασίας από τα οποία θα αντιγράψετε φύλλα εργασίας.
(2) Στο Λίστα βιβλίων εργασίας ενότητα, ελέγξτε το βιβλίο εργασίας του οποίου τα φύλλα εργασίας θα αντιγράψετε.
(3) Στο Λίστα φύλλων εργασίας ενότητα, ελέγξτε τα φύλλα εργασίας που θα αντιγράψετε.
(4) Επανάληψη παραπάνω (2) και (3) για να επιλέξετε φύλλα εργασίας από άλλα βιβλία εργασίας που θα αντιγράψετε.
(5) Κάντε κλικ στο Επόμενο κουμπί.

4. Στο Combine Sheets Works - Step 3 of 3 wizard, διαμορφώστε τις ρυθμίσεις αντιγραφής όπως χρειάζεστε και κάντε κλικ στο φινίρισμα κουμπί.

5. Τώρα στο νέο παράθυρο διαλόγου, καθορίστε ένα φάκελο προορισμού για να αποθηκεύσετε το νέο βιβλίο εργασίας, ονομάστε το νέο βιβλίο εργασίας στο Όνομα αρχείου και κάντε κλικ στο Αποθήκευση κουμπί. Δείτε το στιγμιότυπο οθόνης:

Τώρα θα εμφανιστούν άλλα δύο παράθυρα διαλόγου και θα σας ζητήσουν να ανοίξετε το νέο βιβλίο εργασίας και να αποθηκεύσετε το σενάριο συνδυασμού, κάντε κλικ στα κουμπιά όπως χρειάζεστε. Μέχρι στιγμής, έχει αντιγράψει όλα τα καθορισμένα φύλλα εργασίας από πολλά βιβλία εργασίας κάθε φορά.

Με αυτό Συνδυάστε (φύλλα εργασίας) βοηθητικό πρόγραμμα, μπορείτε εύκολα να αντιγράψετε και να συνδυάσετε φύλλα εργασίας και βιβλία εργασίας όπως φαίνεται στην ακόλουθη λίστα. Κάντε μια δωρεάν δοκιμή!
(1) Συνδυάστε γρήγορα πολλά φύλλα εργασίας / εύρη από βιβλία εργασίας σε ένα φύλλο εργασίας.
(2) Γρήγορη συγχώνευση / συνδυασμός όλων των φύλλων εργασίας με το ίδιο όνομα σε βιβλία εργασίας σε ένα φύλλο εργασίας.
(3) Γρήγορη συγχώνευση / συνδυασμός φύλλων εργασίας ή βιβλίων εργασίας σε ένα βιβλίο εργασίας.
(4) Συνοψίστε / υπολογίστε γρήγορα δεδομένα από πολλά φύλλα εργασίας σε ένα φύλλο εργασίας.


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (25)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώντας τον κώδικα VBA, η ονομασία των διπλότυπων φύλλων εργασίας γίνεται με αντίστροφη σειρά. Ας πούμε ότι κάνω 10 αντίγραφα του Φύλλου1, θα καταλήξω στο Φύλλο1, Φύλλο1(10), Φύλλο1(9), Φύλλο1(8),.......είναι δυνατόν να τα έχω σε κανονική σειρά;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκίμασα τον κωδικό VBA και έλαβα σφάλμα συνδρομής εκτός εύρους (9). Αντικατέστησα το όνομα του φύλλου με οτιδήποτε μπορούσα να σκεφτώ ότι υπήρχε ήδη στο βιβλίο εργασίας. Καμιά ιδέα τι έκανα λάθος; Επίσης, υπάρχει τρόπος να ονομάσει κάθε φύλλο σταδιακά; Αυτό θα συνέδεε με την ερώτηση του Μάικλ, είμαι σίγουρος. Υποθέτω ότι η απάντηση στην ερώτησή του θα ήταν ότι θα έπρεπε να ρυθμίσετε τον στόχο Μετά σε "φύλλο"+x με κάποιο τρόπο και αυτό με τη σειρά του θα ίσχυε στην ερώτησή μου εάν υπήρχε τρόπος να προσδιορίσω τι θα ονομάζατε το νέο φύλλο. Θα μπορούσα πάντα να αλλάξω το "κύριο" του αφεντικού μου σε "0 Αυγούστου" ή οποιονδήποτε μήνα είναι, αλλά θα ήταν πιο εύκολο για εκείνη να καταλάβει αν το σενάριο έκανε την ονομασία αυτόματα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ, ο κώδικας vba ήταν τεράστιος
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ουάου, ευχαριστώ για τον κώδικα VBA. Βοηθάει πραγματικά πολύ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Χρησιμοποιώντας τον κωδικό VBA, η ονομασία των διπλότυπων φύλλων εργασίας γίνεται με αντίστροφη σειρά. Ας πούμε ότι κάνω 10 αντίγραφα του Φύλλου1, θα καταλήξω σε Φύλλο1, Φύλλο1(10), Φύλλο1(9), Φύλλο1(8),.......είναι δυνατόν να τα έχω σε κανονική σειρά;Του Michael Tadashi[/quote] Μπορούσε κανείς να απαντήσει σε αυτήν την ερώτηση; Πρέπει να δημιουργήσω 72 αντίγραφα, αλλά θα χρειαστεί να τα έχω στη σειρά (1 μέσω 72, αντί για 72 έως 1) Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote][quote]Χρησιμοποιώντας τον κωδικό VBA, η ονομασία των διπλότυπων φύλλων εργασίας γίνεται με αντίστροφη σειρά. Ας πούμε ότι κάνω 10 αντίγραφα του Φύλλου1, θα καταλήξω σε Φύλλο1, Φύλλο1(10), Φύλλο1(9), Φύλλο1(8),.......είναι δυνατόν να τα έχω σε κανονική σειρά;Από τον Χουάν[/quote] Μπορούσε κανείς να απαντήσει σε αυτήν την ερώτηση; Πρέπει να δημιουργήσω 72 αντίγραφα, αλλά θα χρειαστεί να τα έχω στη σειρά (1 μέσω 72, αντί για 72 έως 1) Ευχαριστώ!Του Michael Tadashi[/quote]e] Εάν θέλετε τα αντίγραφα των φύλλων να έχουν διαδοχική σειρά αντί προς τα πίσω, αλλάξτε την ακόλουθη γραμμή... After:=ActiveWorkbook.Φύλλα("Φύλλο 1") σε αυτό... After:=ActiveWorkbook.Φύλλα(Φύλλα εργασίας. Καταμέτρηση) Ο ολοκληρωμένος κώδικάς μου έμοιαζε με τον ακόλουθο που χρησιμοποιεί 2 προτροπές InputBox για να επιτρέψει έναν δυναμικό αριθμό αντιγράφων και όνομα φύλλου εργασίας.. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Πόσα αντίγραφα χρειάζεστε;") s = InputBox("Εισαγάγετε το όνομα του φύλλου εργασίας που θέλετε να αντιγράψετε") Για numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Επόμενο Τέλος Υπο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να έχω συνεχή αρίθμηση των αντιγράφων. Εάν το φύλλο που θέλω να αντιγράψω ονομάζεται I002 και θέλω το επόμενο να ονομάζεται I003,I004,I005 και ούτω καθεξής.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αναζητήστε τη λέξη "Μετά" και αλλάξτε την σε "Πριν". Αυτό θα δημιουργήσει αντίγραφα με τη σωστή σειρά «Πριν» από το Φύλλο1. Το μόνο πράγμα που πρέπει να θυμάστε είναι ότι η αρίθμηση θα ξεκινά πάντα από το (2), καθώς το πρωτότυπο φύλλο θα μετράται πάντα ως 1ο αντίγραφο. Επίσης, μπορείτε να αντικαταστήσετε το "Φύλλο1" με το όνομα της καρτέλας που προσπαθείτε να αντιγράψετε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ναι λειτουργεί ευχαριστώ Έχω κάνει με επιτυχία πολλαπλά αντίγραφα ενός μόνο φύλλου εργασίας στο ίδιο βιβλίο εργασίας χρησιμοποιώντας πολύ τον κώδικα vba thnx.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πώς να αντιγράψετε με τα ίδια πλάτη στηλών
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τα ίδια πλάτη στηλών με το αρχικό φύλλο εργασίας ή θέλετε όλα τα πλάτη των στηλών να είναι ίδια;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έλαβα το ίδιο σφάλμα με το Theou και κανείς δεν φαίνεται να το έχει αντιμετωπίσει. Οι καρτέλες μου ονομάζονται ήδη PO 51, PO 52, κ.λπ. και αντικατέστησα το Sheet1 με PO 51 για να το αντιγράψω και έβγαλα το σφάλμα εγγραφής εκτός εύρους (9) Ακολούθησα τον κωδικό του Schuyler για να λάβω τη σωστή σειρά, αλλά εξακολουθώ να λαμβάνω το σφάλμα και οφείλεται πάντα σε αυτές τις δύο γραμμές: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Έλαβα το ίδιο σφάλμα με τον Theou και κανείς δεν φαίνεται να το έχει αντιμετωπίσει. Οι καρτέλες μου ονομάζονται ήδη PO 51, PO 52, κ.λπ. και αντικατέστησα το Sheet1 με PO 51 για να το αντιγράψω και έβγαλα το σφάλμα εγγραφής εκτός εύρους (9) Ακολούθησα τον κωδικό του Schuyler για να λάβω τη σωστή σειρά, αλλά εξακολουθώ να λαμβάνω το σφάλμα και οφείλεται πάντα σε αυτές τις δύο γραμμές: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)Από την Debbi[/quote] Μπορείτε να συμπεριλάβετε τον πλήρη κώδικά σας για να διευκολύνετε τον εντοπισμό σφαλμάτων; Ένα "σφάλμα υπογραφής εκτός εύρους" συνήθως σημαίνει ότι ο κώδικας αναφέρεται σε κάτι που δεν υπάρχει. Το βρίσκω στον δικό μου κώδικα όταν έχω τυπογραφικό λάθος ή κάτι τέτοιου είδους.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμβάνω ένα σφάλμα ότι το 'numtimes' δεν έχει οριστεί...;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
που θα εισαγάγω αυτόν τον παραπάνω κώδικα στο vba πρέπει να δημιουργήσω κοινό κουμπί μετά μέσα ?? Χαιρετισμοί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ακολουθήστε τα παρακάτω βήματα:
1. Αντιγράψτε τον παραπάνω κωδικό
2. Κρατήστε πατημένα τα πλήκτρα ALT + F11 και ανοίγει το παράθυρο της Microsoft Visual Basic για εφαρμογές.
2. Κάντε κλικ στο Insert > Module και επικολλήστε τον ακόλουθο κώδικα στο παράθυρο Module.
4. Στη συνέχεια, πατήστε το πλήκτρο F5 για να εκτελέσετε τον κωδικό
5. Εμφανίζεται ένα πλαίσιο προτροπής για να σας ρωτήσει τον αριθμό των αντιγράφων φύλλων που θέλετε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όταν το δοκίμασα για πρώτη φορά, έλαβα το μήνυμα σφάλματος επειδή δεν άλλαξα το όνομα Φύλλο1. Αφού συνειδητοποίησα τι προκάλεσε το σφάλμα, έψαξα λίγο περισσότερο, καθώς δεν ήθελα να εισάγω με μη αυτόματο τρόπο το όνομα του φύλλου στη μακροεντολή. Και όταν χρειάζομαι αυτό το χαρακτηριστικό, είναι σχεδόν πάντα για το τρέχον φύλλο. Πρόσθεσα τη γραμμή a = activesheet.name Και αναθεώρησα τη γραμμή μετά από:=activeworkbook.sheets("sheet1") σε activeworkbook.sheets(a).copy _ Αυτό λειτούργησε πολύ καλά, αλλά παρατήρησα ότι η αρίθμηση είχε αντιστραφεί ... Αυτό δεν με ενόχλησε καθώς θα μετονομάζω με μη αυτόματο τρόπο τα νέα φύλλα ούτως ή άλλως. Όταν είδα την ανάρτηση του Schuyler, αναθεώρησα περαιτέρω τη γραμμή activeworkbook.sheets(a).copy _ σε after:=activeworkbook.sheets(worksheets.count) Τώρα είμαι ικανοποιημένος με το αποτέλεσμα. Η ολοκληρωμένη μακροεντολή μου: Sub copies() Dim x As Integer x = InputBox ("Εισαγάγετε τον αριθμό των φορών για αντιγραφή Sheet1") Για numtimes = 1 έως x ActiveWorkbook.Sheets("Sheet1").Αντιγραφή _ After:=ActiveWorkbook.Sheets( Φύλλα εργασίας. Καταμέτρηση) Επόμενο τέλος Υπο --- Όλα τα καλύτερα, Μπάρι
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ Barry. Η ολοκληρωμένη μακροεντολή σας είναι το μόνο πράγμα που λειτούργησε για μένα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
έλαβα συντακτικό σφάλμα στο "After:=ActiveWorkbook.Sheets(Worksheets.Count)


αλλά δεν ξέρω τι συμβαίνει... Μπορείτε να με βοηθήσετε σε παρακαλώ;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Φανταστικός κώδικας VBA - βοήθησε πραγματικά
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είμαι νέος σε αυτό, απλώς προσπαθώ να δημιουργήσω αντίγραφα του ίδιου φύλλου, αυτός είναι ο κώδικας που χρησιμοποιώ. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Πόσα αντίγραφα χρειάζεστε;") s = InputBox("Εισαγάγετε το όνομα του φύλλου εργασίας που θέλετε να αντιγράψετε") Για numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) Next End Sub όταν χρησιμοποιώ τον κωδικό μου δίνει το σφάλμα "Σφάλμα σύνταξης" τότε αυτό το κείμενο γίνεται κόκκινο ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) και το κείμενο γίνεται κίτρινο Sub Copier() τι μπορώ να κάνω για να το διορθώσω.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Είμαι νέος σε αυτό, απλώς προσπαθώ να δημιουργήσω αντίγραφα του ίδιου φύλλου, αυτός είναι ο κωδικός που χρησιμοποιώ. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Πόσα αντίγραφα χρειάζεστε;") s = InputBox("Εισαγάγετε το όνομα του φύλλου εργασίας που θέλετε να αντιγράψετε") Για numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) Next End Sub όταν χρησιμοποιώ τον κωδικό μου δίνει το σφάλμα "Σφάλμα σύνταξης" τότε αυτό το κείμενο γίνεται κόκκινο ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) και το κείμενο γίνεται κίτρινο Sub Copier() τι μπορώ να κάνω για να το διορθώσω.Του Tyler Dempsey[/quote] Ελέγξτε ξανά τον κωδικό σας και βεβαιωθείτε ότι δεν έχετε χώρο στο ActiveWorkbook. Φύλλα(α).Αντιγραφή _ ή σε Φύλλα(Φύλλα εργασίας.Αριθμός)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Είμαι νέος σε αυτό, απλώς προσπαθώ να δημιουργήσω αντίγραφα του ίδιου φύλλου, αυτός είναι ο κωδικός που χρησιμοποιώ. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Πόσα αντίγραφα χρειάζεστε;") s = InputBox("Εισαγάγετε το όνομα του φύλλου εργασίας που θέλετε να αντιγράψετε") Για numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) Next End Sub όταν χρησιμοποιώ τον κωδικό μου δίνει το σφάλμα "Σφάλμα σύνταξης" τότε αυτό το κείμενο γίνεται κόκκινο ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) και το κείμενο γίνεται κίτρινο Sub Copier() τι μπορώ να κάνω για να το διορθώσω.Του Tyler Dempsey[/quote] Εδώ είναι ο ακριβής κωδικός που θέλετε να χρησιμοποιήσετε: Sub Copier() Dim s Ως String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Πόσα αντίγραφα χρειάζεστε;") s = InputBox("Enter το όνομα του φύλλου εργασίας που θέλετε να αντιγράψετε") Για numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Επόμενο Τέλος Υπο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ, το τελευταίο μου έσωσε τη ζωή :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Κώδικας Εργασίας

Subcopier()
Dim s As String
Dim numtimes ως ακέραιος αριθμός
Dim numΑντιγράφει ως ακέραιος αριθμός
numCopies = InputBox ("Πόσα αντίγραφα χρειάζεστε;")
s = InputBox ("Εισαγάγετε το όνομα του φύλλου εργασίας που θέλετε να αντιγράψετε")
Για numtimes = 1 To numCopies
ActiveWorkbook.Sheets.Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Επόμενο
Sub End

αντιγράψτε ολόκληρη τη γραμμή από το ActiveWorkbook.Sheets...... αυτό ήταν το πρόβλημα και μερικά κενά

Να έχεις μια υπέροχη μέρα
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL