Miten Exelissä saa solun värjättyä puoliksi? Tai 1/3 on eriväristä???
solun puoliksi värjäys
aaaaaapuvaaa
41891
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Turvaa tilisi vahvistamalla puhelinnumerosi. Voit silloin palauttaa unohtuneen salasanan tekstiviestillä.
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 4
Vanhimmat
Ei mitenkään.
piirtotyökalua ja piirrä soluun suorakaide ja värjää se...
Onnistuu liukuvärjäyksellä?
Tässä esimerkki moduliin, josta pääpiirteittäin selviää miten homman voisi ratkaista. En tiedä sopiiko käyttötarkoitukseen - muutoin kuvio seuraan solun koon muutoksia mutta leveys ei muutu - joku varmaan voi auttaa eteenpäin.
Sub puolitus()
Dim w As Worksheet
Set w = Worksheets("Sheet1")
Dim kuvio As Shape
t = ActiveCell.Top
h = ActiveCell.Left
l = ActiveCell.Width
k = ActiveCell.Height
Set kuvio = w.Shapes.AddShape(msoShapeRectangle, h, t, l / 2, k)
With kuvio
.Fill.Transparency = 0.7
.Fill.ForeColor.RGB = RGB(255, 100, 255)
End With
End Sub