Shape_ChangeColour.bas

Sub Shape_ChangeColour()  'Lệnh đổi màu Shape
Dim shp As Object
'Xác định Shape cần đổi màu
Set shp = Sheet1.Shapes("Rectangle 1")
    'Nằm tại Sheet1
    'Tên là Rectangle 1
'Logic thực hiện việc đổi màu
    If [F9] = 1 Then  'Xét kết quả tại ô F9 nếu có giá trị là 1
      [F9] = 2  'Lấy kết quả ô F9 bằng 2 để ghi nhận đã đổi màu
        shp.Fill.Visible = msoTrue  
        shp.Fill.ForeColor.RGB = RGB(255, 0, 0)
    Else  'Trường hợp không phải giá trị là 1
      [F9] = 1  'Trả về giá trị là 1, có thể bỏ qua nếu không cần thiết
      shp.Fill.Visible = msoFalse 'Trả về trạng thái ban đầu của shape
    End If  'Kết thúc câu lệnh IF
End Sub