Thay đổi màu của ô - .Interior.ColorIndex
Để thay đổi màu của một ô, chúng ta có thể sử dụng:
Cell.Interior.ColorIndex = Số
Ở đâu:
• Ô là tham chiếu ô
• Nội thất - đề cập đến màu của màu ô thực tế (Thuộc tính nội thất)
• Colourindex là giá trị từ 1 đến 56 cho một trong 56 màu được xác định trước của Excel
Và Num là màu số được gán cho ô. Tuy nhiên, không phải lúc nào cũng dễ nhớ số nào đại diện cho màu nào. Chương trình con sau đây thay đổi màu ô dựa trên số hàng. Vì vậy, ví dụ hàng 3 sẽ có màu 3, v.v.
Vì có 56 màu đặt trước trong Excel, điều này có nghĩa là các ô 59, 115 sẽ có cùng màu với ô trong hàng 3:
| 123456789101112 | Tùy chọn rõ ràngPrivate Sub CommandButton1_Click ()Colour_Range (Trang tính ("Trang 2"). Phạm vi ("A1: A2000"))Kết thúc SubSub Colour_Range (Cell_Range As Range)'Sẽ tô màu cho từng ô trong phạm viLàm mờ ôĐối với mỗi ô trong Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0) .Value = Cell.RowKế tiếpKết thúc Sub |
Quy trình được kích hoạt bởi một sự kiện nhấp chuột.
Để tải xuống tệp .XLSM cho hướng dẫn này, vui lòng nhấp vào đây.
