Tôi có thể tạo một ô nhiều màu mà không có độ dốc trong Excel không?

Tôi muốn áp dụng hai màu cho một ô và tách chúng theo đường chéo. Tôi biết rằng có một chức năng để thêm độ dốc trong Excel, nhưng tôi chưa tìm được cách nào để thiết lập độ mạnh của điểm dừng màu.

cell-format gradient

— Victor Odukoya
nguồn

Tôi không tin điều đó là có thể nếu không sử dụng VBA phức tạp ...

— Kinnectus

@Kinnectus, tôi rất muốn biết làm thế nào nó có thể đạt được, ngay cả khi điều đó có nghĩa là sử dụng VBA phức tạp, xin vui lòng!

— Bharat Anand

@BharatAnand chỉ cho bạn biết rằng tôi đã có thể đạt được nó. Tôi tự đăng một câu trả lời.

— Victor Odukoya

Vì vậy, sau khi chơi xung quanh một chút, tôi đã tìm ra cách để làm điều đó. Sai lầm của tôi là tôi chỉ thêm hai điểm dừng màu, khi tôi nên thêm 4 điểm dừng màu, để xóa độ dốc màu. Độ dốc đang được tự động thêm vào để tạo ra sự chuyển màu mượt mà giữa hai màu. Nếu bạn tạo khoảng cách dừng màu giữa hai màu càng nhỏ càng tốt, bạn sẽ không thấy một dải màu.

Đây là mã của tôi:

With Selection.Interior
    .Pattern = xlPatternLinearGradient
    .Gradient.Degree = 225
    .Gradient.ColorStops.Clear
End With

With Selection.Interior.Gradient.ColorStops.Add(0)
    .Color = RGB(255, 0, 0)
    .TintAndShade = 0
End With

With Selection.Interior.Gradient.ColorStops.Add(0.49999999)
    .Color = RGB(255, 0, 0)
    .TintAndShade = 0
End With

With Selection.Interior.Gradient.ColorStops.Add(0.5)
    .Color = RGB(0, 255, 0)
    .TintAndShade = 0
End With

With Selection.Interior.Gradient.ColorStops.Add(1)
    .Color = RGB(0, 255, 0)
    .TintAndShade = 0
End With

Và đây là giao diện của nó: Hai ô Excel màu

— Victor Odukoya
nguồn