Πώς να προσθέσετε χρώμα φόντου σε κεφαλίδες ή υποσέλιδα στο φύλλο Excel κατά την εκτύπωση;
Όπως γνωρίζουμε, μπορούμε να προσθέσουμε περιεχόμενο ή εικόνα στην κεφαλίδα ή στο υποσέλιδο ενός φύλλου, το οποίο θα εμφανίζεται κατά την εκτύπωση. Αλλά έχετε προσπαθήσει ποτέ να προσθέσετε χρώμα φόντου στις κεφαλίδες ή τα υποσέλιδα; Στην πραγματικότητα, δεν υπάρχει ενσωματωμένη λειτουργία που μπορεί να το χειριστεί, αλλά εδώ εισάγω μερικούς κυκλικούς τρόπους για την επίτευξη της λειτουργίας.
Προσθέστε το χρώμα φόντου στην κεφαλίδα ή το υποσέλιδο με το χρώμα Fill
Προσθέστε χρώμα φόντου στην κεφαλίδα και το υποσέλιδο από το VBA
Προσθέστε το χρώμα φόντου στην κεφαλίδα ή το υποσέλιδο με το χρώμα Fill
1. κλικ Διάταξη σελίδας > Εγκατάσταση σελίδας.
2. Στο Εγκατάσταση σελίδας διαλόγου, κάτω περιθώρια καρτέλα, πληκτρολογήστε 0 σε Η Κορυφαία , επικεφαλίδα, Κάτω μέρος και Υποσέλιδο κουτιά κειμένου.
3. κλικ OK. Στη συνέχεια, επιλέξτε την πρώτη σειρά και κάντε κλικ στο Αρχική > Συγχώνευση & Κέντρο.
3. Προχωρήστε για να επιλέξετε ένα χρώμα από Γεμίστε κόλοr λίστα για να προσθέσετε χρώμα φόντου στα συγχωνευμένα κελιά.
4. Επαναλάβετε τα βήματα 2 και 3 για να προσθέσετε το χρώμα φόντου στη σειρά υποσέλιδου που θέλετε.
Τώρα η σελίδα φαίνεται να προσθέτει χρώμα φόντου στην κεφαλίδα και στο υποσέλιδο.
Προσθέστε χρώμα φόντου στην κεφαλίδα και το υποσέλιδο από το VBA
Εδώ είναι ένας κώδικας VBA που μπορεί γρήγορα να προσθέσει χρώμα φόντου στην κεφαλίδα και το υποσέλιδο ταυτόχρονα.
1. Τύπος Alt + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στη νέα ενότητα.
VBA: Προσθήκη χρώματος φόντου στην κεφαλίδα και στο υποσέλιδο
Sub FakeHeaderFooter()
'UpdatebyExtendoffice20180628
Dim I, J As Long
Dim xRg As Range
Dim xRow, xCol As Long
Dim xRows, xCols As Long
Dim xDivRow, xDivCol As Long
Dim xTopArr, xButtArr As Variant
Dim PageSize1, PageSize2 As Integer
On Error Resume Next
xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")
xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")
PageSize1 = 46
PageSize2 = 8
With ActiveSheet.PageSetup
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.BlackAndWhite = False
End With
Set xRg = ActiveSheet.UsedRange
If xRg Is Nothing Then Exit Sub
xRows = xRg(xRg.Count).Row
xCols = xRg(xRg.Count).Column
If xRows < 46 Then xRows = 46
If xCol < 8 Then xCol = 8
xDivRow = Int(xRows / PageSize1)
xDivCol = Int(xCols / PageSize2)
If ((xRows Mod PageSize1) > 0) And (xDivRow <> 0) Then xDivRow = xDivRow + 1
If ((xCols Mod PageSize2) > 0) And (xDivCol <> 0) Then xDivCol = xDivCol + 1
If xDivRow = 0 Then xDivRow = 1
If xDivCol = 0 Then xDivCol = 1
Set xRg = Range("A1").Resize(xDivRow * PageSize1, xDivCol * PageSize2)
xRow = 1
xCol = 1
Cells.PageBreak = xlPageBreakNone
For I = 1 To xDivRow * PageSize1 Step PageSize1 + 1
For J = 1 To xDivCol * PageSize2 Step PageSize2
Cells(I, J).Resize(1, PageSize2) = xTopArr
Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34
Cells(I + PageSize1, J).Resize(1, PageSize2) = xButtArr
Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34
Rows(I + PageSize1 + 1).PageBreak = xlManual
Columns(J + PageSize2).PageBreak = xlManual
Next
Next
End Sub
3. Τύπος F5 για να εκτελέσετε τον κώδικα, τότε έχει προστεθεί συγκεκριμένο χρώμα φόντου στην πρώτη σειρά και στην 47η σειρά κάθε φύλλου που θα εμφανίζεται ως ψεύτικη κεφαλίδα και υποσέλιδο.
Σημείωση: στον κώδικα, μπορείτε να αλλάξετε τα παρακάτω σενάρια για να καλύψετε τις ανάγκες σας.
1. Αλλάξτε τα περιεχόμενα κεφαλίδας και υποσέλιδου όπως χρειάζεστε στη συμβολοσειρά:
xTopArr = Array ("Επάνω αριστερά", "", "", "Κορυφαίο κέντρο", "", "", "", "")
xButtArr = Array ("Κάτω αριστερά", "", "", "Κάτω κέντρο", "", "", "", "")
2. Αλλάξτε τον δείκτη χρώματος φόντου σε αυτό το τσίμπημα:
Κελιά (I, J). Μέγεθος (1, PageSize2). Εσωτερικό.ColorIndex = 34
Κελιά (I + PageSize1, J). Μέγεθος (1, PageSize2). Εσωτερικό.ColorIndex = 34
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!