전체 행, 열 또는 표에 표 셀의 채우기 색상을 빠르게 적용하는 5 가지 방법

이 기사에서는 전체 행, 열 또는 표에 표 셀의 채우기 색상을 빠르게 적용하는 XNUMX 가지 방법을 제공합니다.

Word에서 표 셀을 복사하면 셀 내용 만 표시되고 채우기 색은 표시되지 않습니다. 따라서이 문제를 해결하기위한 XNUMX 가지 해결 방법을 보여 드리고자합니다.    

방법 1 : 테이블 셀의 RGB 값을 수동으로 가져 오기

1. 먼저 채우기 색상이 필요한 셀을 선택하십시오.
2. 다음으로“디자인”탭을 클릭합니다.
3. "Shading"아래에서 명령을 찾아 해당 명령의 드롭 다운 버튼을 클릭합니다.
4. 메뉴에서 "테두리 및 음영"을 선택하여 같은 이름의 대화 상자를 엽니 다.
5. 그런 다음 열린 상자에서 "음영"탭을 클릭합니다.
6. "채우기"필드로 이동하여 드롭 다운 버튼을 클릭합니다.
7. 그리고 "추가 색상"을 선택하여 "색상"상자를 엽니 다.
8. "색상 모델"필드로 "RGB"를 선택합니다. 아래 RGB 값을 가져옵니다.
9. 그런 다음 모든 확인란을 닫고 커서를 대상 셀 안에 놓습니다. 또는 여러 셀, 행, 열 또는 전체 표를 선택할 수도 있습니다.
10. "Shading"명령에서 드롭 다운 버튼을 클릭하여 "More Colors"를 선택합니다.
11. "사용자 지정"탭에 RGB 값을 입력하고 "확인"을 클릭합니다.

방법 2 : "Reveal 서식"창 열기

기본 아이디어는 RGB 값을 얻은 다음 해당 값을 대상 셀, 행, 열 또는 전체 테이블에 적용하는 것과 유사합니다.

1. 먼저 채워진 셀 내부에 삽입 포인터를 놓습니다.
2. 그런 다음 "Shift + F1"을 눌러 "Reveal Formatting"창을 엽니 다. 그리고“Shading”섹션에서 셀의 RGB 값을 볼 수 있습니다.
3. 방법 9의 11-1 단계를 따릅니다.

방법 3 : VBA를 통해 전체 테이블에 한 셀의 채우기 색상 적용

자막에서 알 수 있듯이 전체 테이블을 하나의 색상으로 통합하는 방법이 있습니다.

1. 먼저 색상이 지정된 셀 내부에 삽입 포인터를 놓습니다.
2. VBA 편집기를 트리거하려면 "Alt + F11"을 누르십시오.
3. 다음으로“Normal”프로젝트를 클릭하고“Insert”탭을 클릭합니다.
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를 사용하는 과정에는 항상 문제가 있습니다. 따라서 이러한 모든 성가신 문제를 해결하려면 올바른 트릭을 배우는 것이 매우 필요합니다. 취해야 할 조치 중 하나는 단어 수정 미리 도구. 그러면 문서가 손상되면 당황하지 않을 것입니다.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 엑셀 복구 pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM