Hình thức có thể đóng một yếu tố rất lớn trong tính chuyên nghiệp của bản trình bày bảng tính của bạn. Thường có những lúc tôi muốn khớp một màu cụ thể nằm ngoài bảng Màu chủ đề của bảng tính hiện tại. Cũng có những lúc tôi muốn khớp một màu Excel để tôi có thể sử dụng nó bên trong một chương trình khác [chẳng hạn như Photoshop, Ribbet, v.v. ]. Cách tốt nhất để đảm bảo bạn đang sử dụng cùng một màu chính xác là tìm mã màu của màu cụ thể đó. Có hai cách để làm điều này. thủ công hoặc vĩ mô [vâng, tôi vừa phát minh ra từ đó]. Vì tôi là một chàng trai tốt, tôi sẽ hướng dẫn bạn cách làm cả hai. Vui thích. ]
Cách thủ công để tìm mã màu RGB
Chọn một ô có chứa màu tô mà bạn muốn tra cứu
Nhấp vào nút Thùng sơn trên tab Dải băng Trang chủ của bạn
Chọn tùy chọn Màu sắc khác
Chuyển đến tab Tùy chỉnh và đảm bảo Mô hình màu = RGB
Bây giờ bạn sẽ thấy mã màu RGB cho ô đã chọn của bạn
Phương pháp này có thể được thực hiện tương tự cho phông chữ ô và màu đường viền. Bước duy nhất bạn cần thay đổi ở trên là bước #2
Xem kích thước đầy đủ
Bây giờ với mã VBA
Dưới đây tôi đã đăng mã VBA xác định mã màu. Có thể dễ dàng dán các macro này vào tệp Macro cá nhân của bạn nếu bạn cho rằng mình sẽ sử dụng mã này thường xuyên
Tìm ra màu tô
Sub GetRGBColor_Fill[]
'PURPOSE. Xuất mã màu RGB cho Màu tô của ActiveCell
'SOURCE. www. Bảng tínhGuru. com
Dim HEXcolor As String
. Nội địa. Color], 6] RGBcolor As String
HEXcolor = Right["000000" & Hex[ActiveCell.Interior.Color], 6]
RGBcolor = "RGB [" & CInt ["&H" & Right[HEXcolor, 2 . Địa chỉ[Sai, Sai] & ". Tô màu"
", " & CInt["&H" & Mid[HEXcolor, 3, 2]] & _
", " & CInt["&H" & Left[HEXcolor, 2]] & "]"
MsgBox RGBcolor, vbInformation, "Cell " & ActiveCell.Address[False, False] & ": Fill Color"
Kết thúc Phụ
Tìm ra màu phông chữ
Sub GetRGBColor_Font[]
'PURPOSE. Xuất mã màu RGB cho Màu phông chữ của ActiveCell
'SOURCE. www. Bảng tínhGuru. com
Dim HEXcolor As String
. Nét chữ. Color], 6] RGBcolor As String
HEXcolor = Right["000000" & Hex[ActiveCell.Font.Color], 6]
RGBcolor = "RGB [" & CInt ["&H" & Right[HEXcolor, 2 . Địa chỉ[Sai, Sai] & ". Màu chữ"
", " & CInt["&H" & Mid[HEXcolor, 3, 2]] & _
", " & CInt["&H" & Left[HEXcolor, 2]] & "]"
MsgBox RGBcolor, vbInformation, "Cell " & ActiveCell.Address[False, False] & ": Font Color"
Hết Phụ
Sử dụng mã VBA được tìm thấy trên Internet
Bây giờ bạn đã tìm thấy một số mã VBA có khả năng giải quyết vấn đề tự động hóa Excel của mình, bạn sẽ làm gì với nó?
Bắt đầu Tự động hóa Excel
Bạn mới làm quen với VBA và không biết bắt đầu từ đâu? . Bài viết này sẽ không làm bạn choáng ngợp với những thuật ngữ lập trình hoa mỹ, vì nó cung cấp cho bạn một cách tiếp cận đơn giản và dễ hiểu đối với những điều cơ bản mà tôi ước mình biết khi cố gắng dạy bản thân cách tự động hóa các tác vụ trong Excel bằng VBA Macros
Ngoài ra, nếu bạn chưa xem qua tính năng tự động hóa mới nhất của Excel có tên là Power Query, thì tôi cũng đã tổng hợp hướng dẫn dành cho người mới bắt đầu để tự động hóa bằng tính năng Power Query của Excel. Tính năng Excel tích hợp ít được biết đến này cho phép bạn tự động hợp nhất và xóa dữ liệu mà không cần mã hóa
Làm cách nào để tôi sửa đổi điều này để phù hợp với nhu cầu cụ thể của mình?
Rất có thể bài đăng này không cung cấp cho bạn câu trả lời chính xác mà bạn đang tìm kiếm. Tất cả chúng ta đều có những tình huống khác nhau và không thể tính đến mọi nhu cầu cụ thể mà một người có thể có. Đó là lý do tại sao tôi muốn chia sẻ với bạn. Hướng dẫn của tôi để có được giải pháp cho vấn đề của bạn NHANH CHÓNG. Trong bài viết này, tôi giải thích các chiến lược tốt nhất mà tôi đã nghĩ ra trong nhiều năm để có câu trả lời nhanh cho các vấn đề phức tạp trong Excel, PowerPoint, VBA, bạn có thể đặt tên cho nó.
Tôi thực sự khuyên bạn nên xem hướng dẫn này trước khi hỏi tôi hoặc bất kỳ ai khác trong phần nhận xét để giải quyết vấn đề cụ thể của bạn. Tôi có thể đảm bảo rằng 9 trên 10 lần, một trong những chiến lược của tôi sẽ mang lại cho bạn [những] câu trả lời mà bạn đang cần nhanh hơn thời gian tôi phải quay lại với bạn bằng một giải pháp khả thi. Tôi cố gắng hết sức để giúp đỡ mọi người, nhưng đôi khi tôi không có thời gian để trả lời câu hỏi của mọi người [dường như không bao giờ có đủ thời gian trong ngày. ]