5 phương pháp để nhanh chóng áp dụng màu tô của một ô trong bảng cho toàn bộ hàng, cột hoặc bảng

Trong bài viết này, chúng tôi sẽ cung cấp cho bạn năm phương pháp để nhanh chóng áp dụng màu tô của một ô trong bảng cho toàn bộ hàng, cột hoặc bảng.

Bạn có thể nhận thấy rằng khi bạn sao chép vào một ô của bảng trong Word, bạn chỉ nhận được nội dung của ô chứ không bao giờ có màu tô. Do đó, chúng tôi muốn chỉ cho bạn năm cách giải quyết để giải quyết vấn đề này.    

Phương pháp 1: Lấy giá trị RGB của ô trong bảng theo cách thủ công

1. Trước hết, chọn ô có màu tô mà bạn cần lấy.
2. Tiếp theo nhấp vào tab "Thiết kế".
3. Tìm lệnh bên dưới “Shading” và nhấp vào nút thả xuống trên lệnh đó.
4. Trên menu chọn “Borders and Shading” để mở hộp thoại cùng tên.
5. Tiếp theo trong hộp mở ra, nhấp vào tab “Shading”.
6. Chuyển đến trường "Điền" và nhấp vào nút thả xuống.
7. Và chọn “More Colors” để mở hộp “Colors”.
8. Chọn “RGB” cho trường “Mô hình màu”. Lấy giá trị RGB bên dưới.
9. Sau đó đóng tất cả các khung và đặt con trỏ vào ô cần chọn. Hoặc bạn có thể chọn nhiều ô, hàng, cột hoặc thậm chí toàn bộ bảng.
10. Và nhấp vào nút thả xuống trên lệnh “Shading” để chọn “More Colors”.
11. Nhập giá trị RGB trong tab “Tùy chỉnh” và nhấp vào “OK”.

Phương pháp 2: Mở ngăn “Hiển thị định dạng”

Ý tưởng tương tự là lấy giá trị RGB rồi áp dụng nó cho các ô, hàng, cột hoặc toàn bộ bảng mục tiêu.

1. Đầu tiên, đặt con trỏ chèn bên trong ô đã điền.
2. Tiếp theo, nhấn “Shift + F1” để mở ngăn “Hiển thị định dạng”. Và bạn sẽ có thể thấy giá trị RGB của ô trong phần “Shading”.
3. Thực hiện theo bước 9 đến 11 trong phương pháp 1.

Phương pháp 3: Áp dụng màu tô của một ô cho toàn bộ bảng thông qua VBA

Như phụ đề gợi ý, đây là cách để hợp nhất toàn bộ bảng trong một màu.

1. Để bắt đầu, con trỏ chèn vị trí bên trong một ô màu.
2. Nhấn “Alt + F11” để kích hoạt trình chỉnh sửa VBA.
3. Tiếp theo, nhấp vào dự án “Bình thường” và nhấp vào tab “Chèn”.
4. Sau đó chọn “Mô-đun” trên menu đó.
5. Mở nó bằng cách nhấp đúp chuột.
6. Và dán các mã sau vào đó:

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. Cuối cùng, nhấp vào “Chạy” hoặc nhấn “F5”.

Phương pháp 4: Áp dụng màu tô của một ô cho toàn bộ hàng thông qua VBA

1. Lúc đầu, đặt con trỏ bên trong một ô.
2. Tiếp theo cài đặt và chạy macro theo đúng các bước trong phương pháp 3.
3. Tiếp theo thay thế các mã trên bằng các mã sau:

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

Phương pháp 5: Áp dụng màu tô của một ô cho toàn bộ cột thông qua VBA

1. Có khả năng, trước tiên hãy đặt con trỏ vào bên trong một ô.
2. Sau đó cài đặt và chạy macro đúng cách.
3. Thay thế macro bằng cái này:

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

Xử lý các vấn đề về Word

Đã và sẽ luôn có những vấn đề trong quá trình sử dụng Word. Vì vậy, việc học đúng mẹo để giải quyết tất cả những vấn đề khó chịu này là điều khá cần thiết. Một trong những biện pháp bạn phải thực hiện là nắm lấy một sửa từ công cụ trước. Sau đó, bạn sẽ không hoảng sợ khi tài liệu bị hỏng.

Giới thiệu tác giả:

Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi excel và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm