Nhờ hướng dẫn cách tô màu nửa ô

[echo07]

Em có ý định tô màu một nửa ô mà chưa tìm thấy cách định dạng, kính nhờ các anh chị chỉ giúp ạ.

 

[BuiQuangThuan]

Em có ý định tô màu một nửa ô mà chưa tìm thấy cách định dạng, kính nhờ các anh chị chỉ giúp ạ.

View attachment 270616

Cái này gọi là pha màu chứ nhỉ

 

[echo07]

Cái này gọi là pha màu chứ nhỉ

Vâng, gọi vậy cũng được nhưng em pha thử rồi, nó không cho nửa trắng nửa đen rõ ràng mà nhìn nhợt nhạt lắm.

 

[leonguyenz]

Vâng, gọi vậy cũng được nhưng em pha thử rồi, nó không cho nửa trắng nửa đen rõ ràng mà nhìn nhợt nhạt lắm.

View attachment 270620

Bạn chọn 2 màu ở Color 1 và Color 2 đó.

 

[echo07]

Bạn chọn 2 màu ở Color 1 và Color 2 đó.
View attachment 270621

Nó vẫn tô nguyên cả ô mà, em muốn tô một nửa thôi

 

[leonguyenz]

Nó vẫn tô nguyên cả ô mà, em muốn tô một nửa thôi

Code này chia 3 màu như yêu cầu bài #1:

Sub xColor()
With Selection.Interior
    .Pattern = xlPatternLinearGradient
    .Gradient.Degree = 90
    .Gradient.ColorStops.Clear
    
    .Gradient.ColorStops.Add(0).Color = vbBlack
    .Gradient.ColorStops.Add(0.33).Color = vbBlack
    
    .Gradient.ColorStops.Add(0.34).Color = vbGreen
    .Gradient.ColorStops.Add(0.66).Color = vbGreen
    
    .Gradient.ColorStops.Add(0.67).Color = vbRed
    .Gradient.ColorStops.Add(1).Color = vbRed
End With
End Sub

 

[echo07]

Code này chia 3 màu như yêu cầu bài #1:

Sub xColor()
With Selection.Interior
    .Pattern = xlPatternLinearGradient
    .Gradient.Degree = 90
    .Gradient.ColorStops.Clear
   
    .Gradient.ColorStops.Add(0).Color = vbBlack
    .Gradient.ColorStops.Add(0.33).Color = vbBlack
   
    .Gradient.ColorStops.Add(0.34).Color = vbGreen
    .Gradient.ColorStops.Add(0.66).Color = vbGreen
   
    .Gradient.ColorStops.Add(0.67).Color = vbRed
    .Gradient.ColorStops.Add(1).Color = vbRed
End With
End Sub

View attachment 270622

Cảm ơn bạn nhé, cái này bạn tô 3 màu cho một ô tuy nhiên mình sửa code để tô mỗi khúc giữa được rồi, nếu không dùng code mà tô mỗi khúc giữa thì có cách nào không nhỉ.

 

[leonguyenz]

Cảm ơn bạn nhé, cái này bạn tô 3 màu cho một ô tuy nhiên mình sửa code để tô mỗi khúc giữa được rồi, nếu không dùng code mà tô mỗi khúc giữa thì có cách nào không nhỉ.

Dùng CF định dạng Data Bar bên trái hoặc bên phải thì được, còn trên hoặc dưới thì chịu thua.

 

[giaiphap]

Code này chia 3 màu như yêu cầu bài #1:

Sub xColor()
With Selection.Interior
    .Pattern = xlPatternLinearGradient
    .Gradient.Degree = 90
    .Gradient.ColorStops.Clear
   
    .Gradient.ColorStops.Add(0).Color = vbBlack
    .Gradient.ColorStops.Add(0.33).Color = vbBlack
   
    .Gradient.ColorStops.Add(0.34).Color = vbGreen
    .Gradient.ColorStops.Add(0.66).Color = vbGreen
   
    .Gradient.ColorStops.Add(0.67).Color = vbRed
    .Gradient.ColorStops.Add(1).Color = vbRed
End With
End Sub

View attachment 270622

Cách này nhìn thấy phần tiếp xúc giữa 2 màu nó bén quá, có cách nào nhìn thấy nó mềm hơn chút không @leonguyenz

 

[KEN2608]

Hay quá . Thanks bác

 

[leonguyenz]

Cách này nhìn thấy phần tiếp xúc giữa 2 màu nó bén quá, có cách nào nhìn thấy nó mềm hơn chút không @leonguyenz

Mềm là như Fill Gradient trong Format Cells đó anh Sự. Code thì sửa lại 2 dòng cận trên/dưới thành 1 dòng.