5 методів швидкого застосування кольору заливки комірки таблиці до цілого рядка, стовпця або таблиці

У цій статті ми запропонуємо вам п’ять методів швидкого застосування кольору заливки комірки таблиці до цілого рядка, стовпця або таблиці.

Ви можете помітити, що коли копіюєте в комірку таблиці у програмі Word, ви отримуєте лише вміст комірки, але ніколи не колір заливки. Тому ми хочемо показати вам п’ять обхідних шляхів вирішення цієї проблеми.    

Спосіб 1. Отримайте вручну значення RGB для комірки таблиці

1. Перш за все, виберіть клітинку, колір заливки якої вам потрібно отримати.
2. Далі натисніть вкладку "Дизайн".
3. Знайдіть команду нижче «Затінення» та натисніть на спадне меню цієї команди.
4. У меню виберіть «Межі та затінення», щоб відкрити те саме діалогове вікно.
5. Далі у відкритому полі натисніть вкладку “Затінення”.
6. Перейдіть у поле «Заповнення» та натисніть на випадаючу кнопку.
7. І виберіть «Більше кольорів», щоб відкрити поле «Кольори».
8. Виберіть “RGB” для поля “Кольорова модель”. Отримайте значення RGB нижче.
9. Потім закрийте всі поля та помістіть курсор у цільову комірку. Або ж ви можете вибрати кілька комірок, рядків, стовпців або навіть всю таблицю.
10. І натисніть кнопку розкривного меню на команді «Затінення», щоб вибрати «Більше кольорів».
11. Введіть значення RGB на вкладці «Спеціально» та натисніть «ОК».

Спосіб 2: Відкрийте панель «Розкрити форматування»

Ідея схожа: отримати значення RGB, а потім застосувати його до цільових комірок, рядків, стовпців або всієї таблиці.

1. По-перше, розмістіть покажчик вставки всередині заповненої комірки.
2. Потім натисніть «Shift + F1», щоб відкрити панель «Розкрити форматування». І ви зможете побачити значення RGB комірки в розділі «Затінення».
3. Виконайте кроки 9-11 у способі 1.

Спосіб 3: Застосуйте колір заповнення однієї комірки до цілої таблиці за допомогою VBA

Як підказує підзаголовок, ось спосіб об’єднати всю таблицю в один колір.

1. Для початку розмістіть покажчик вставки всередині кольорової комірки.
2. Натисніть “Alt + F11”, щоб запустити редактор VBA.
3. Далі натисніть проект «Звичайний» та натисніть вкладку «Вставити».
4. Потім виберіть “Модуль” у цьому меню.
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 існують і завжди будуть проблеми. Тож цілком необхідно навчитися правильному трюку, щоб боротися з усіма цими надокучливими проблемами. Одним із заходів, які ви повинні вжити, є закріплення Виправлення слів інструмент заздалегідь. Тоді ви не будете панікувати, коли документ зіпсується.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити Excel та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com