5 метода за бързо прилагане на цвета на запълване на клетка от таблица към целия ред, колона или таблица

В тази статия ще ви предложим пет метода за бързо прилагане на цвета на запълване на клетка от таблица към целия ред, колона или таблица.

Може да забележите, че когато копирате в клетка на таблица в Word, получавате само съдържанието на клетката, но никога цвета на запълване. Затова искаме да ви покажем пет решения за справяне с този проблем.    

Метод 1: Ръчно получаване на RGB стойността на клетката на таблицата

1. Първо изберете клетката, чийто цвят на запълване трябва да получите.
2. След това щракнете върху раздела „Дизайн“.
3. Намерете командата под „Засенчване“ и щракнете върху падащия бутон на тази команда.
4. В менюто изберете „Граници и засенчване“, за да отворите диалогов прозорец със същото име.
5. След това в отвореното поле щракнете върху раздела „Засенчване“.
6. Отидете до полето „Попълване“ и щракнете върху бутона с падащо меню.
7. И изберете „Още цветове“, за да отворите полето „Цветове“.
8. Изберете „RGB“ за полето „Цветов модел“. Вземете RGB стойността по-долу.
9. След това затворете всички полета и поставете курсора в целевата клетка. Или можете да изберете няколко клетки, редове, колони или дори цялата таблица.
10. И щракнете върху падащия бутон върху командата „Засенчване“, за да изберете „Още цветове“.
11. Въведете RGB стойността в раздела „По избор“ и щракнете върху „OK“.

Метод 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. Накрая щракнете върху „Run“ или натиснете „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. Така че е доста необходимо да научите правилния трик за справяне с всички тези досадни проблеми. Една от мерките, които трябва да предприемете, е да се сдобиете с a Поправка на думи инструмент предварително. Тогава няма да изпадате в паника, след като документът се повреди.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстанови Excel и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com