How to make cell pattern and colour in diagonal
- Thread starter Kutty
- Start date
p45cal
Well-Known Member
Yes, you can do nearly this with:
but it has a gradual gradient which you can't change using the user interface, so it's not much good for you:
However, you can make that delineation much clearer with a bit of code; you'll only have to do it with one cell once, thereafter you can delete the code (so your workbook doesn't have to be macro-enabled) and copy|Paste formats to other cells.
The code affects the selected cell(s) adds all formatting needed:
Which gives:
actually, the last line gives a diagonal border, leaving:
and if there's a value in the cell that'll show too:
but it has a gradual gradient which you can't change using the user interface, so it's not much good for you:
However, you can make that delineation much clearer with a bit of code; you'll only have to do it with one cell once, thereafter you can delete the code (so your workbook doesn't have to be macro-enabled) and copy|Paste formats to other cells.
The code affects the selected cell(s) adds all formatting needed:
Code:
Sub blah()
With Selection.Interior
.Pattern = xlPatternLinearGradient
With .Gradient
.Degree = 45
.ColorStops.Clear
.ColorStops.Add (0)
.ColorStops.Add (0.49)
With .ColorStops.Add(0.51)
.Color = vbYellow
End With
With .ColorStops.Add(1)
.Color = vbYellow
End With
End With
End With
Selection.Borders(xlDiagonalUp).LineStyle = xlContinuous
End SubWhich gives:
actually, the last line gives a diagonal border, leaving:
and if there's a value in the cell that'll show too:
p45cal
Well-Known Member
No.
You only need to run the code once on one cell (or more if you want). Thereafter you can delete the code because you can copy paste formats from that cell (or any cell which has that format).
