Πώς να εκτυπώσετε όλους τους κανόνες μορφοποίησης υπό όρους σε ένα φύλλο εργασίας;
Είναι εύκολο να δείτε όλους τους κανόνες μορφοποίησης υπό όρους σε ένα φύλλο εργασίας κάνοντας κλικ Αρχική > Μορφοποίηση υπό όρους > Διαχείριση κανόνων στο Excel, αλλά ξέρετε πώς να εκτυπώσετε όλους τους κανόνες μορφοποίησης συνθηκών σε αυτό το φύλλο εργασίας; Αυτό το άρθρο θα εισαγάγει ένα VBA για την επίλυση αυτού του προβλήματος.
Εκτυπώστε όλους τους κανόνες μορφοποίησης υπό όρους σε ένα φύλλο εργασίας
Εκτυπώστε όλους τους κανόνες μορφοποίησης υπό όρους σε ένα φύλλο εργασίας
Ακολουθήστε τα παρακάτω βήματα για να εκτυπώσετε όλους τους κανόνες μορφοποίησης υπό όρους σε ένα φύλλο εργασίας της VBA.
1. Ανοίξτε το καθορισμένο φύλλο εργασίας του οποίου οι κανόνες μορφοποίησης υπό όρους θα εκτυπώσετε και πατήστε άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε κάτω από τον κώδικα VBA στο νέο παράθυρο λειτουργικής μονάδας.
VBA: Λίστα όλων των κανόνων μορφοποίησης υπό όρους στο ενεργό φύλλο εργασίας
Sub M_snb()
Dim xRg As Range, xCell As Range
Dim xFormat As Object
Dim xFmStr, xFmAddress As String
Dim xDic As New Dictionary
Dim xSpArr, xOperatorArr
On Error Resume Next
Set xRg = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)
If xRg Is Nothing Then Exit Sub
xDic.Item("Title") = "Type|Typename|Range|StopIfTrue|Operator|Formula1|Formula2|Formula3"
If xSpArr.Count = 0 Then
xSpArr = Split("Cell Value|Expression|Color Scale|DataBar|Top 10|Icon Sets||Unique Values|Text|Blanks|Time Period|Above Average||No Blanks||Errors|No Errors|||||", "|")
xOperatorArr = Split("xlBetween|xlNotBetween|xlEqual|xlNotEqual|xlGreater|xlLess|xlGreaterEqual|xlLessEqual", "|")
End If
For Each xCell In xRg
Set xFormat = xCell.FormatConditions(1)
xFmAddress = xFormat.AppliesTo.Address
If Not xDic.Exists(xFmAddress) Then
xDic.Item(xFmAddress) = xFormat.Type & "|" & xSpArr(xFormat.Type - 1) & "|" & xFmAddress & "|" & xFormat.StopIfTrue
If Not IsEmpty(xFormat.Operator) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|" & xOperatorArr(xFormat.Operator - 1)
End If
If Not IsEmpty(xFormat.Formula1) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|'" & xFormat.Formula1
End If
End If
Next
If ActiveWorkbook.Worksheets("FmCondictionList") Is Nothing Then
Sheets.Add.Name = "FmCondictionList"
End If
Sheets("FmCondictionList").Cells(1).Resize(xDic.Count) = Application.Transpose(xDic.items)
Sheets("FmCondictionList").Columns(1).TextToColumns , , , , 0, 0, 0, 0, -1, "|"
End Sub
3. Κλίκ Εργαλεία > αναφορές.
4. Στο πλαίσιο διαλόγου Αναφορές - VBAProject, ελέγξτε το Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft και κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
5. Τώρα επιστρέφετε στο παράθυρο της ενότητας, πατήστε F5 ή κάντε κλικ στο τρέξιμο για να εκτελέσετε αυτό το VBA.
Τώρα ένα νέο φύλλο εργασίας που ονομάζεται "FmCondtionalListΔημιουργείται και προστίθεται πριν από το ενεργό φύλλο εργασίας. Και θα λάβετε όλους τους κανόνες μορφοποίησης υπό όρους που αναφέρονται σε αυτό το φύλλο εργασίας.
6. Κλίκ Αρχεία > > για να εκτυπώσετε τη λίστα των κανόνων μορφοποίησης υπό όρους.
Σχετικά άρθρα:
Πώς να εκτυπώσετε περιοχές, επιλογή και ολόκληρο βιβλίο εργασίας στο Excel γρήγορα;
Πώς να εκτυπώσετε κάθε σειρά / κελί σε ξεχωριστή σελίδα στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!