Πώς να μετακινήσετε μια συγκεκριμένη σειρά σε ένα νέο φύλλο όταν το πλαίσιο ελέγχου είναι επιλεγμένο στο Excel;
Αυτό το άρθρο αναφέρεται για τη μετακίνηση μιας συγκεκριμένης σειράς σε ένα νέο φύλλο όταν το πλαίσιο ελέγχου είναι επιλεγμένο στο Excel.
Μετακίνηση γραμμής όταν το πλαίσιο ελέγχου είναι επιλεγμένο με κωδικό VBA
Μετακίνηση γραμμής όταν το πλαίσιο ελέγχου είναι επιλεγμένο με κωδικό VBA
Κάντε τα εξής για να μετακινήσετε μια συγκεκριμένη σειρά σε ένα καθορισμένο φύλλο εργασίας κατά την επιλογή ενός πλαισίου ελέγχου στο Excel.
1. Μεταβείτε στο φύλλο εργασίας που πρέπει να μετακινήσετε σειρά με βάση το πλαίσιο ελέγχου, κάντε κλικ στο Εργολάβος > Κύριο θέμα > Πλαίσιο ελέγχου (ActiveX Control) για να εισαγάγετε ένα πλαίσιο ελέγχου. Δείτε το στιγμιότυπο οθόνης:
2. Κάντε δεξί κλικ στην καρτέλα φύλλων και, στη συνέχεια, κάντε κλικ στο Προβολή κωδικού από το μενού με δεξί κλικ. Δείτε το στιγμιότυπο οθόνης:
3. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στο παράθυρο Code.
Κωδικός VBA: Μετακίνηση γραμμής σε ένα καθορισμένο φύλλο εργασίας όταν είναι επιλεγμένο ένα πλαίσιο ελέγχου
Private Sub CheckBox1_Click()
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
If CheckBox1.value Then
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range row you will move(single cell):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1).EntireRow
xRg.Copy
ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
xRg.Clear
Application.CutCopyMode = False
End If
End Sub
Note: Στον κώδικα, τα Shee3 και A1 υποδεικνύουν ότι η καθορισμένη σειρά θα μετακινηθεί στην πρώτη σειρά στο Sheet3. Αλλάξτε τα ανάλογα με τις ανάγκες σας.
4. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
5. Απενεργοποιήστε τη λειτουργία σχεδίασης κάνοντας κλικ στο Λειτουργία σχεδίασης κουμπί για το Εργολάβος Tab.
6. Επιλέξτε το πλαίσιο ελέγχου και μετά a Kutools για Excel εμφανίζεται το παράθυρο διαλόγου, επιλέξτε το πρώτο κελί της σειράς (ή ολόκληρη τη σειρά) που πρέπει να μετακινήσετε και κάντε κλικ στο OK κουμπί. Στη συνέχεια, η καθορισμένη ολόκληρη σειρά θα μετακινηθεί αμέσως σε ένα συγκεκριμένο φύλλο εργασίας. Δείτε το στιγμιότυπο οθόνης:
Σχετικά άρθρα:
- Πώς να μετακινήσετε ολόκληρη τη σειρά σε άλλο φύλλο με βάση την τιμή κελιού στο Excel;
- Πώς να μετακινήσετε ολόκληρη τη σειρά στο κάτω μέρος του ενεργού φύλλου με βάση την τιμή κελιού στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!