Giúp mình viết Code VBA để fill color cho các shape theo nội dung của cell (1 người xem)

[karsparop]

Chào các bạn,
Hiện tại mình đang muốn viết một code VBA tự động fill color cho các Shape có tên tương ứng với nội dung của cell.
VD: ở Sheet 1 mình có 5 shape (Text Box) có tên tương ứng là 001, 002, 003, 004, 005.
ở Sheet 2 mình có 3 cột như sau:

[TABLE="width: 500"]
[TR]
[TD]Cutting
[/TD]
[TD]Welding
[/TD]
[TD]Painting
[/TD]
[/TR]
[TR]
[TD]001
[/TD]
[TD]002
[/TD]
[TD]003
[/TD]
[/TR]
[TR]
[TD]004
[/TD]
[TD]005
[/TD]
[TD][/TD]
[/TR]
[/TABLE]

Mình muốn các shape ở sheet 1 có tên hoặc nội dung tương ứng với cột Cutting sẽ được fill màu đỏ, với cột Welding được fill màu Vàng, với cột Painting được fill màu xanh.
Cảm ơn mọi người.

 

[huuthang_bd]

Tôi nghĩ bạn nên điền trực tiếp dữ liệu lên ô và dùng Conditional Formatting để tô màu thì sẽ tiện hơn (nếu vẫn đáp ứng nhu cầu của bạn)

 

[karsparop]

Mình không hiểu rõ ý của bạn lắm. Mục đích của mình là muốn đổi màu cho shape dựa vào nội dung tương ứng với các cells mà. Mình muốn làm code này để làm báo cáo tiến độ bằng hình ảnh để biết công việc đó đã đến bước nào rồi.