Hướng dẫn macro to color cells in excel - macro để tô màu các ô trong excel

Áp dụng cho: Microsoft Excel 365, 2021, 2019, 2016.

Trong ngày hôm nay, VBA cho hướng dẫn tự động hóa Excel, chúng tôi sẽ tìm hiểu về cách chúng tôi có thể lập trình thay đổi màu sắc của một ô dựa trên giá trị ô.

Chúng ta có thể sử dụng kỹ thuật này khi phát triển bảng tính bảng điều khiển chẳng hạn.

Bước #1: Chuẩn bị bảng tính của bạn

Nếu bạn chưa phát triển trên Excel, chúng tôi khuyên bạn nên xem xét hướng dẫn giới thiệu của chúng tôi về các macro Excel. Bạn cũng cần đảm bảo rằng tab Nhà phát triển có sẵn trong Ribbon Microsoft Excel của bạn, vì bạn sẽ sử dụng nó để viết một số mã đơn giản.

• Mở Microsoft Excel. Lưu ý rằng mã được cung cấp trong hướng dẫn này dự kiến ​​sẽ hoạt động trong Excel 2007 và hơn thế nữa.
• Trong một bảng tính trống, thêm bảng sau:

• Bây giờ hãy tiếp tục và xác định một phạm vi được đặt tên bằng cách nhấn: Công thức >> Xác định tên

• Đánh OK

Bước #2: Thay đổi màu bên trong ô dựa trên giá trị với cell.interior.color

• Đánh vào mục phát triển trong dải ruy băng.Developer entry in the Ribbon.
• Nhấn Visual Basic hoặc Alt+F11 để mở trình chỉnh sửa VBA nhà phát triển của bạn.
• Tiếp theo làm nổi bật bảng tính mà bạn muốn chạy mã của mình. Ngoài ra, chọn một mô -đun có mã VBA của bạn.
• Đi trước và dán mã này. Trong ví dụ của chúng tôi, chúng tôi sẽ sửa đổi màu bên trong của một loạt các ô thành các giá trị RGB tế bào cụ thể tương ứng với các màu đỏ, vàng và xanh lá cây.
• Cụ thể, chúng tôi sử dụng ô Excel VBA Cell.Interior.Color và vượt qua giá trị RGB hoặc chỉ số màu tương ứng.Cell.Interior.Color and pass the corresponding RGB value or color index.

Sub Color_Cell_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Status")

For Each MyCell In StatusRange

StatValue = MyCell.Value
Select Case StatValue

    Case "Progressing"
    MyCell.Interior.Color = RGB(0, 255, 0)
    
    Case "Pending Feedback"
    MyCell.Interior.Color = RGB(255, 255, 0)
    
    Case "Stuck"
    MyCell.Interior.Color = RGB(255, 0, 0)

End Select

Next MyCell

End Sub

• Chạy mã của bạn - bằng cách nhấn trên F5 hoặc chạy >> chạy phụ / userform.
• Bạn sẽ nhận thấy bảng điều khiển trạng thái được điền như hình dưới đây:

• Lưu mã của bạn và đóng Trình chỉnh sửa VBA của bạn.