Beth hỏi làm thế nào để sao chép định dạng màu của một ô bên ngoài vào một ô trong sổ làm việc hiện tại. Thật không may, không có cách nội tại nào để thực hiện điều này bằng cách sử dụng các tính năng liên kết của Excel. Tuy nhiên, bạn có thể sao chép định dạng từ sổ làm việc này sang sổ làm việc khác bằng cách sử dụng macro.

Ví dụ, hãy xem xét đoạn mã macro sau:

Dim lMyColor As Long Workbooks.Open Filename:="C:\mypath\myworkbook.xlsm"

lMyColor = Range("A1").Interior.Color Windows("TargetBook.xlsm").Activate Range("E8").Interior.Color = lMyColor

Mã này mở một sổ làm việc (myworkbook.xlsm) và lấy màu tô từ ô A1. Sau đó, nó chuyển trở lại sổ làm việc đích (từ đó mã này được giả định đang chạy) và nhồi màu tô vào ô E8.

Cách tiếp cận này hoạt động hiệu quả nếu bạn đang sao chép màu tô từ một ô sang một ô. Thay vào đó, nếu bạn muốn sao chép một dải ô hoặc sao chép nhiều định dạng hơn chỉ là màu tô, thì bạn có thể được phục vụ tốt hơn với cách tiếp cận này:

Workbooks.Open Filename:= "C:\mypath\myworkbook.xlsm"

Range("A1:B6").Copy Windows("TargetBook.xlsm").Activate Range("E8").PasteSpecial Paste:=xlPasteFormats, _   Operation:=xlNone, SkipBlanks:=False, _   Transpose:=False

Một lần nữa, mã này mở sổ làm việc bên ngoài. Sau đó, nó sử dụng phương thức .Copy cho một dải ô (A1: B6). Sau khi chuyển sang sổ làm việc đích, các định dạng từ các ô đó được dán vào các ô bắt đầu từ E8.

Nếu bạn quyết định sử dụng mã như thế này, bạn có thể đặt nó trong macro Auto_Open cho sổ làm việc đích. Tất nhiên, bạn cần sửa đổi mã để nó tham chiếu đến đường dẫn và tên sổ làm việc thích hợp, cùng với phạm vi nguồn và mục tiêu mong muốn.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (11169) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: