5 Μέθοδοι για γρήγορη εφαρμογή του χρώματος συμπλήρωσης ενός κελιού πίνακα σε ολόκληρη τη σειρά, τη στήλη ή τον πίνακα

Σε αυτό το άρθρο, θα σας προσφέρουμε πέντε μεθόδους για να εφαρμόσετε γρήγορα το χρώμα πλήρωσης ενός κελιού πίνακα σε ολόκληρη τη σειρά, τη στήλη ή τον πίνακα.

Ίσως παρατηρήσετε ότι όταν αντιγράφετε σε ένα κελί πίνακα στο Word, λαμβάνετε μόνο το περιεχόμενο του κελιού αλλά ποτέ το χρώμα πλήρωσης. Επομένως, θέλουμε να σας δείξουμε πέντε λύσεις για την αντιμετώπιση αυτού του ζητήματος.    

Μέθοδος 1: Λάβετε μη αυτόματα την τιμή RGB του κελιού πίνακα

1. Πρώτα απ 'όλα, επιλέξτε το κελί του οποίου το χρώμα πλήρωσης πρέπει να λάβετε.
2. Στη συνέχεια κάντε κλικ στην καρτέλα "Σχεδίαση".
3. Βρείτε την παρακάτω εντολή "Shading" και κάντε κλικ στο αναπτυσσόμενο κουμπί αυτής της εντολής.
4. Στο μενού επιλέξτε "Περίγραμμα και σκίαση" για να ανοίξετε το ίδιο παράθυρο διαλόγου με το ίδιο όνομα.
5. Στη συνέχεια, ανοίξτε το πλαίσιο, κάντε κλικ στην καρτέλα "Σκίαση".
6. Μεταβείτε στο πεδίο "Συμπλήρωση" και κάντε κλικ στο αναπτυσσόμενο κουμπί.
7. Και επιλέξτε "Περισσότερα χρώματα" για να ανοίξετε το πλαίσιο "Χρώματα".
8. Επιλέξτε "RGB" για το πεδίο "Color model". Λάβετε την τιμή RGB παρακάτω.
9. Στη συνέχεια, κλείστε όλα τα πλαίσια και τοποθετήστε τον κέρσορα μέσα στο κελί προορισμού. Ή μπορείτε να επιλέξετε πολλά κελιά, γραμμές, στήλες ή ακόμα και ολόκληρο τον πίνακα.
10. Και κάντε κλικ στο αναπτυσσόμενο κουμπί στην εντολή "Shading" για να επιλέξετε "More Colors".
11. Εισαγάγετε την τιμή RGB στην καρτέλα "Custom" και κάντε κλικ στο "OK".

Μέθοδος 2: Ανοίξτε το παράθυρο "Αποκάλυψη μορφοποίησης"

Η ιδέα είναι παρόμοια, δηλαδή να λάβετε την τιμή RGB και στη συνέχεια να την εφαρμόσετε σε κελιά-στόχους, γραμμές, στήλες ή ολόκληρο τον πίνακα.

1. Αρχικά, τοποθετήστε το δείκτη εισαγωγής μέσα στο γεμάτο κελί.
2. Στη συνέχεια πατήστε "Shift + F1" για να ανοίξετε το παράθυρο "Αποκάλυψη μορφοποίησης". Και θα μπορείτε να δείτε την τιμή RGB του κελιού στην ενότητα "Σκίαση".
3. Ακολουθήστε τα βήματα 9 έως 11 στη μέθοδο 1.

Μέθοδος 3: Εφαρμόστε το χρώμα πλήρωσης ενός κελιού σε ολόκληρο τον πίνακα μέσω VBA

Όπως προτείνει ο υπότιτλος, εδώ είναι ο τρόπος ενοποίησης ολόκληρου του πίνακα σε ένα χρώμα.

1. Αρχικά, τοποθετήστε το δείκτη εισαγωγής μέσα σε ένα χρωματιστό κελί.
2. Πατήστε "Alt + F11" για να ενεργοποιήσετε το πρόγραμμα επεξεργασίας VBA.
3. Στη συνέχεια, κάντε κλικ στο "Κανονικό" έργο και κάντε κλικ στην καρτέλα "Εισαγωγή".
4. Στη συνέχεια, επιλέξτε "Module" σε αυτό το μενού.
5. Ανοίξτε το με διπλό κλικ.
6. Και επικολλήστε τους παρακάτω κωδικούς εκεί:

Sub ApplyColorOfOneCellToEntireTable()
  Dim nRowIndex As Integer
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nColumnIndex = Selection.Cells(1).ColumnIndex
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1)
    nCellBackColor = .Cell(nRowIndex, nColumnIndex).Shading.BackgroundPatternColor
    nCellForeColor = .Cell(nRowIndex, nColumnIndex).Shading.ForegroundPatternColor
    .Shading.BackgroundPatternColor = nCellBackColor
    .Shading.ForegroundPatternColor = nCellForeColor
  End With
End Sub

7. Τέλος, κάντε κλικ στο "Εκτέλεση" ή πατήστε "F5".

Μέθοδος 4: Εφαρμόστε το χρώμα πλήρωσης ενός κελιού σε ολόκληρη τη σειρά μέσω VBA

1. Αρχικά, τοποθετήστε τον κέρσορα μέσα σε ένα κελί.
2. Στη συνέχεια, εγκαταστήστε και εκτελέστε μια μακροεντολή ακολουθώντας ακριβώς τα ίδια βήματα στη μέθοδο 3.
3. Στη συνέχεια αντικαταστήστε τους παραπάνω κωδικούς με αυτούς:

Sub ApplyColorOfOneCellToEntireRow()
  Dim nRowIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nRowIndex = Selection.Cells(1).RowIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Rows(nRowIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

Μέθοδος 5: Εφαρμόστε το χρώμα πλήρωσης ενός κελιού σε ολόκληρη τη στήλη μέσω VBA

1. Πιθανότατα, βάλτε πρώτα το δρομέα μέσα σε ένα κελί.
2. Στη συνέχεια, εγκαταστήστε και εκτελέστε σωστά μια μακροεντολή.
3. Αντικαταστήστε τη μακροεντολή με αυτήν:

Sub ApplyColorOfOneCellToEntireColumn()
  Dim nColumnIndex As Integer
  Dim nCellForeColor As Long
  Dim nCellBackColor As Long
 
  If Selection.Information(wdWithInTable) = True Then
    nColumnIndex = Selection.Cells(1).ColumnIndex
    nCellBackColor = Selection.Cells(1).Shading.BackgroundPatternColor
    nCellForeColor = Selection.Cells(1).Shading.ForegroundPatternColor
  Else
    MsgBox ("Please put your cursor inside a cell.")
    Exit Sub
  End If
  With Selection.Tables(1).Columns(nColumnIndex).Shading
    .BackgroundPatternColor = nCellBackColor
    .ForegroundPatternColor = nCellForeColor
  End With
End Sub

Αντιμετώπιση προβλημάτων του Word

Υπάρχουν και θα υπάρχουν πάντα προβλήματα στη διαδικασία χρήσης του Word. Είναι λοιπόν πολύ απαραίτητο να μάθετε το σωστό κόλπο για να αντιμετωπίσετε όλα αυτά τα ενοχλητικά ζητήματα. Ένα από τα μέτρα που πρέπει να λάβετε είναι να κρατήσετε ένα Επιδιόρθωση λέξεων εργαλείο εκ των προτέρων. Τότε δεν θα πανικοβληθείτε όταν ένα έγγραφο αλλοιωθεί.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανακτήσει το excel και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com