Πώς να αναπτύξετε ή να κλείσετε όλες τις σειρές και τις στήλες ομάδας στο Excel;
Στο Excel, μπορείτε να χρησιμοποιήσετε το βοηθητικό πρόγραμμα ομάδας για να ομαδοποιήσετε δεδομένα όπως χρειάζεστε. Αλλά αν υπάρχουν πολλές ομάδες στο φύλλο, πώς μπορείτε να αναπτύξετε γρήγορα ή να κλείσετε όλες τις ομάδες χωρίς να κάνετε κλικ χειροκίνητα; Εδώ, εισάγω κωδικούς VBA για εύκολη επίλυση αυτής της εργασίας στο Excel.
Αναπτύξτε ή κλείστε όλες τις ομάδες γραμμών και στηλών στο Excel
Αναπτύξτε ή κλείστε όλες τις ομάδες γραμμών και στηλών στο Excel
Ακολουθούν ορισμένοι κωδικοί VBA που μπορούν να σας βοηθήσουν να αναπτύξετε ή να κλείσετε όλες τις ομάδες ταυτόχρονα.
1. Τύπος Alt + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον κώδικα πλήγματος στη νέα ενότητα。
VBA: Ανάπτυξη όλων των ομάδων
Sub ExpandAll()
'UpdatebyExtendoffice20181031
Dim I As Integer
Dim J As Integer
On Error Resume Next
For I = 1 To 100
Worksheets("Sheet1").Outline.ShowLevels rowLevels:=I
If Err.Number <> 0 Then
Err.Clear
Exit For
End If
Next I
For J = 1 To 100
Worksheets("Sheet1").Outline.ShowLevels columnLevels:=J
If Err.Number <> 0 Then
Err.Clear
Exit For
End If
Next J
End Sub
3. Τύπος F5 κλειδί, οι ομάδες στο Φύλλο1 έχουν επεκταθεί.
Εάν θέλετε να κλείσετε όλες τις ομάδες, μπορείτε να χρησιμοποιήσετε τον παρακάτω κώδικα:
Sub CollapseAll()
Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub
Σημείωση: στους παραπάνω κωδικούς, το Sheet1 είναι το φύλλο που περιέχει ομάδες που θα επεκταθούν ή θα κλείσουν. Αν χρειαστεί, αλλάξτε το στο δικό σας όνομα φύλλου.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
