λογισμικό

* Γνώση Υπολογιστών >> λογισμικό >> Υπολογιστικά φύλλα

Πώς να αντιγράψει ένα επιλεγμένου κελιού για την επικόλληση σε ένα Macro

Μια μακροεντολή είναι ένα μικρό κομμάτι του κώδικα που μπορείτε να δημιουργήσετε στο Microsoft Office για να προσαρμόσετε τις εφαρμογές σας . Οι μακροεντολές που έχουν δημιουργηθεί στη Visual Basic for Applications ( VBA ) , ένα υποσύνολο της γλώσσας προγραμματισμού Visual Basic που έχει σχεδιαστεί για ευκολία στη χρήση . Αν θέλετε να αντιγράψετε ένα κελί και να επικολλήσετε το περιεχόμενο σε άλλο κελί , μια μακροεντολή είναι το ιδανικό εργαλείο για να εκτελέσετε αυτή τη λειτουργία . Απλά προσθέστε τον κώδικα στο Microsoft Excel και μπορείτε να αντιγράψετε τα περιεχόμενα κάθε κελιού . Τα πράγματα που θα χρειαστείτε για Microsoft Office 2003 ή το 2007
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το φύλλο εργασίας στο οποίο θέλετε να αντιγράψετε και να επικολλήσετε τα κύτταρα .

2

Κάντε κλικ στην καρτέλα "Προγραμματιστής " και στη συνέχεια κάντε κλικ στο " Visual Basic ".
εικόνων 3

Κάντε κλικ στο "Εισαγωγή" καρτέλα στο παράθυρο " Visual Basic" και , στη συνέχεια, κάντε κλικ στο " Ενότητα . " Ένα νέο παράθυρο θα ανοίξει
Η 4

Αποκοπή και επικόλληση του παρακάτω κώδικα στο παράθυρο : .

Sub CpyPste ( )

Dim Πουλήστε Όπως Σειρά

Dim NewRow Όπως Long

Dim Rng Όπως Σειρά

' απενεργοποιήσετε την οθόνη ενημέρωση

Application.ScreenUpdating = False

NewRow = 401

Set Rng = Range ( " A1 : A400 " )

Για κάθε Πουλήστε Στην Rng

Γραμμές ( Sell.Row & " : " & Sell.Row ) . Επιλέξτε

Selection.Copy

Γραμμές ( NewRow & " : " & NewRow ) . Επιλέξτε

Selection.PasteSpecial Paste : = xlValues ​​, Λειτουργίας : = xlNone , SkipBlanks : = _

False , μεταφερθεί στην εθνική νομοθεσία : = False

Application.CutCopyMode = False

NewRow = NewRow + 1

Επόμενο Πώληση

Range ( "A1 " ) . Επιλέξτε

Application.ScreenUpdating = True

End Sub
5

να αλλάξετε τον κωδικό ανάλογα με τις ανάγκες σας . Τροποποιήστε το εύρος ( "A1 : A400 " ) στο εύρος των δεδομένων του εγγράφου σας . Για παράδειγμα , αν τα δεδομένα είναι στα κελιά B1 έως B10 , θα αλλάξετε την περιοχή για να ( " B1 : B10 " ) . Θα πρέπει , επίσης, να καθορίσετε όπου τα δεδομένα είναι να επικολληθούν ( Α401 κυττάρων σε αυτό το macro , καθορίζεται από το " 401 " ) .
Η

6 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη μακροεντολή .


εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα