Πώς να προσθέσετε γραμμή περιγράμματος παρακάτω όταν αλλάζει η τιμή σε μια στήλη Excel;
Υπάρχει μια λίστα δεδομένων που περιλαμβάνει επαναλαμβανόμενες τιμές και για καλύτερη ταξινόμηση των τιμών, προσθέτω μια γραμμή περιγράμματος παρακάτω όταν αλλάζει η τιμή στη λίστα όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Σε αυτό το άρθρο, θα μιλήσω για τον τρόπο γρήγορης προσθήκης γραμμής περιγράμματος παρακάτω όταν αλλάζει η τιμή σε μια στήλη Excel.
Προσθέστε τη γραμμή περιγράμματος παρακάτω όταν αλλάζει η τιμή με το VBA
Προσθέστε τη γραμμή περιγράμματος παρακάτω όταν αλλάζει η τιμή με το VBA
Προφανώς, δεν υπάρχει ενσωματωμένη λειτουργία στο Excel που μπορεί να σας βοηθήσει να προσθέσετε γραμμή περιγράμματος παρακάτω όταν αλλάζει η τιμή, αλλά υπάρχει ένας κωδικός VBA που μπορώ να εισαγάγω.
1. Τύπος Alt + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον παρακάτω κώδικα στο κενό σενάριο ενότηταe.
VBA: προσθέστε τη γραμμή περιγράμματος παρακάτω όταν αλλάζει η τιμή
Sub AddBorderLineWhenValueChanges()
'UpdatebyExtendoffice20160918
Application.ScreenUpdating = False
Dim LastRow As Long
Dim xrg As Range
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each xrg In Range("A2:A" & LastRow)
If xrg <> xrg.Offset(1, 0) Then
Range("A" & xrg.Row & ":K" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next xrg
Application.ScreenUpdating = True
End Sub
3. Τύπος F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια, οι οριακές γραμμές έχουν προστεθεί παρακάτω όταν αλλάζει η τιμή στην επιλογή A2: A.
Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!